小さいBASICで正方形がいっぱい

今日は iPod touch 上の BASIC-II を使って、
短いが一工夫のあるプログラムを作ってみました。

ランダムに正方形を描いていくプログラムです。
私の iPod touch では、実行が遅くて少しイライラしました。
iPhone 5s なら、もっとずっと速く描けるでしょうねえ。

ボケ防止に丁度よい頭の体操になりました。

以下にプログラムと、実行途中の画像を載せておきます。

10 REM *Draw random squares*
20 GCLS
25 CLS
30 FOR n=0 TO 200
40 dx=rand(50)+10
50 dy=rand(100)
51 dy=dy-50
55 ss=dx*dx+dy*dy
56 s=sqrt(ss)
57 ux=dx/s
58 uy=dy/s
60 x1=rand(320)
70 y1=rand(480)
80 x2=x1+dx
90 y2=y1+dy
110 x3=x2+dy
120 y3=y2-dx
140 x4=x3-dx
150 y4=y3-dy
190 cu=rand(14)
200 for i =0 to s
210 xx1=x1+ux*i
220 yy1=y1+uy*i
230 xx4=x4+ux*i
240 yy4=y4+uy*i
250 LINE xx1,yy1,xx4,yy4,cu,2
270 next
500 c=rand(14)
505 if c=cu then goto 500
510 LINE x1,y1,x2,y2,c,2
530 LINE x2,y2,x3,y3,c,2
550 LINE x3,y3,x4,y4,c,2
570 LINE x4,y4,x1,y1,c,2
600 NEXT