sample\hsp3dish\grotate.hsp » Plain Format
#include "hsp3dish.as" ; ; grotate命令による画像回転サンプル ; randomize title "grotate" celload "hsp3dish.png",3 ;screen 0,640,480,0 cls 4 font "Arial",14 m="HSP3 grotate sample" max=20 dim xx,max dim yy,max dim px,max dim py,max dim rot,max dim prot,max repeat max xx.cnt=rnd(320) yy.cnt=rnd(480) rot.cnt=rnd(4096) p=rnd(5)-2:if p=0 : p=-1 px.cnt=p*2 p=rnd(5)-2:if p=0 : p=-1 py.cnt=p*2 prot.cnt=rnd(16) prot.cnt+=8 loop repeat redraw 0 color 64,64,64:boxf pos 0,0 grotate 3,0,0,double(rot(0))*0.005 gmode 2,64,64 repeat max pos xx.cnt,yy.cnt ;gcopy 3,0,0 grotate 3,0,0,double(rot.cnt)*0.005 xx.cnt+=px.cnt if (xx.cnt<2)|(xx.cnt>318) : px.cnt=-px.cnt yy.cnt+=py.cnt if (yy.cnt<2)|(yy.cnt>478) : py.cnt=-py.cnt rot.cnt+=prot.cnt loop pos 12,12:color 0,0,0:mes m pos 10,10:color 255,255,255:mes m redraw 1 await 1000/30 ;await 12 loop stop