07/04/01 11:57:28 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