07/04/01 11:47:38 bh2+2cXg
buffer 0
picload "test.jpg" //適当な画像
SZx = double(ginfo_winx)
SZy = double(ginfo_winy)
screen 1,SZx,SZy
kakusokudo = 0.05
furehaba = 0.0
dim chp_zure,SZy
i = 0
repeat
？repeat SZy
？？chp_zure(cnt) = furehaba * sin( kakusokudo * double(cnt + i) )
？loop
？redraw 0
？color 0,0,0 : boxf
？repeat SZy
？？pos chp_zure(cnt), cnt
？？gcopy 0,0,cnt,SZx,1
？loop
？redraw 1
？i += 5
？kakusokudo += 0.0001
？furehaba += 0.1
？await 16
loop
ちょっと書いてみた。こんな感じでいい？