- 631 名前:名前は開発中のものです。 mailto:sage [2007/04/01(日) 11:57:28 ID:l/QzLrkf]
- ;モレも作ってみたヨ
#define PI 3.1415926535897932386 w=32 ;波の強さ t=128 ;波の間隔 buffer 2,640,480 :picload "",1 gsel 0 repeat repeat ginfo_winy x=sin(PI*((cnt*360/t+a)\360)/180)*w y=cnt pos x,y :gcopy 2,0,y,ginfo_winx,1 loop redraw 1: redraw 2 :color 0,0,0 :boxf :color 255,255,255 a+=16 ;波の速さ await 16 loop
|

|