Sorry your browser is not supported!

rem
rem AGK Application 1.08B18
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