Heat wave

[Draco9898]

This is another take on the underwater effect, if you can try to find some way to speed up this process

Oops and you'll need this image, or replace it with one of your own:



Original Image

PlayBASIC Code: [Select]

CreateImage 1,800,200
CreateImage 2,800,1
LoadImage "DracoDrawn1oz.png",3
RenderToImage 1
LockBuffer
   For X=1 To 5
  DrawImage 3,GetImageWidth(3)*(X-1),0,1
   Next X
UnLockBuffer
RenderToScreen

Do
   Cls 0
   Text 10,10,FPS()
   
   `Draw to Image
   RenderToImage 1
   LockBuffer
   For X=1 To 5
  DrawImage 3,GetImageWidth(3)*(X-1),0,1
   Next X
   
   `Distort Image
   Sine#=Sine#+12
   If Sine#>360
  Sine#=0
   EndIf 
   For X=1 To 200
  GetImage 2,0,X,800,X+2
  DrawImage 2,0+Sin(Sine#+(X*22)),X,1
   Next X
   UnLockBuffer
   RenderToScreen
   
   `Draw Heat wave image to screen
   For x=1 To 3
  DrawImage 1,0,30+(x-1)*200,1
   Next X
Sync
Loop