this here is based on more sprites, maybe u can use.
rem
rem AGK Application 1.08 19
rem MR 23.08.2013 Screen Wave
SetDisplayAspect( 4.0/3.0 )
dim i[100]
dim s[100]
MainLoop()
end
function MainLoop()
sync()
spr=loadsprite("screen.png") //<- any background image
setspritesize(spr,100,100)
drawsprite(spr)
MakeWave()
deletesprite(spr)
w#=0
do
print("Hello Wave")
print(screenfps())
DoWave(w#)
w#=w#+360.0/60.0
if w#>360.0 then w#=w#-360.0
if getpointerpressed()=1 then exit
Sync()
loop
FreeWave()
endfunction
function MakeWave()
for y=0 to 99
i[y]=GetImage( 0, y,getvirtualwidth(), 1.0 )
s[y]=createsprite(i[y])
setspritesize(s[y],getvirtualwidth(),1.5)
setspriteposition(s[y],0,y)
setspritedepth(s[y],0)
next
endfunction
function DoWave(w#)
for y=0 to 99
setspriteposition(s[y],cos(w#),y+sin(w#)*4.0)
w#=w#+360.0/100.0
next
endfunction
function FreeWave()
for y=0 to 99
deletesprite(s[y])
s[y]=0
deleteimage(i[y])
i[y]=0
next
endfunction
AGK 108 (B)19 + AppGameKit V2 Alpha .. : Windows 8.1 Pro 64 Bit : AMD Radeon R7 265 : Mac mini