- 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
