無駄に宇宙

HSP3掲示板でif文無しでスクリプトを書いているようだったので、俺も書いてみた。

if無しできれいに見えるものといったら、やっぱりサインコサインで円を描くことだろうとそういうことしか思いつかなかったので、適当に・・

#module
#deffunc an double _x, double _y, double _cc
r=2.0*3.14/360.0
pos sin(r*_cc)*_x/2.0+ginfo_cx+_x/2.0, cos(r*_cc)*_y/2.0+ginfo_cy+_y/2.0
return
#deffunc star double _zoom, double _cc
px=ginfo_cx
py=ginfo_cy
cc=cnt
repeat 36
cc2=cnt
repeat (_zoom),1
i1=(cnt*(_zoom*6.4))-(cnt*cnt*(6))
pos px-i1/2,py+double(cnt)*_zoom*1.9 : an i1,6,cc+cc2*10 : pset ginfo_cx,ginfo_cy
loop
loop
return
#global
#const num 400
randomize
repeat num
rx.cnt=rnd(840)-200
ry.cnt=rnd(680)-200
rw.cnt=rnd(640)
rh.cnt=rnd(180)+200
rs.cnt=rnd(100)+1
loop
repeat
redraw 0 : color : boxf : color 255,255,255 : pos 367,131 : star 12,cnt
pos 59,103 : an ginfo_winx, 200, double(cnt)/4.0 : star 8,(double(cnt)/12.0)
cc=double(cnt)
repeat num
pos rx.cnt, ry.cnt : an rw.cnt, rh.cnt,cc/rs.cnt
pset ginfo_cx, ginfo_cy
loop
redraw 1 : wait 1
loop

無駄に宇宙である。