sample\basic\starmove.hsp » Plain Format
; test2 buffer 1,320,240 color 12,12,12 boxf screen 0,320,240 cls 1 font "MS ゴシック",40,1 cvalue=0.0 *main redraw 0 gmode 6,320,240,256 pos 0,0:gcopy 1 dir=cvalue size=70+sin(cvalue)*30 repeat 16 x=150+sin(dir+cvalue)*size y=102+cos(dir-cvalue)*size cc=sin(cvalue*0.5)*192 color abs(cc),160,255 pos x,y:mes "★" dir+=0.2 loop redraw 1 await 10 cvalue+=0.1 goto *main stop