How can I create moving water (2D) in BlitzMax?

BlitzMax Forums/BlitzMax Programming/How can I create moving water (2D) in BlitzMax?

SofaKng (Posted 2007) [#1]

How can I create moving water (2D) in BlitzMax? I'm thinking of simple waves that move from left-to-right (or right-to-left). More specifically, remember the water at the bottom of a Worms level? That's what I'm trying to recreate :) I'm found some code in the archives but they are only for BlitzPlus AND they really aren't exactly what I'm looking for (although they aren't that bad...)

Robert Cummings (Posted 2007) [#2]

Make an image of a /\ triangle, move it from left to right while scaling it up and down on the Y axis. Also need to reposition it as you do so, the effect is nice and the code simple. Repeat for as many waves as you need

Perturbatio (Posted 2007) [#3]

or you could just have tiled animated sprites.

fredborg (Posted 2007) [#4]

Like this? Graphics 640,480 Local image:TImage = LoadImage(MakeWavePix(64,64,16)) Local a:Float = 0 Local offx:Int = 0 Local offy:Int = 0 While Not KeyHit(KEY_ESCAPE) Cls a:+5 offx = (offx + 1) Mod 64 offy = 8+Sin(a)*8 For Local x:Int = -64 To GraphicsWidth() Step 64 DrawImage image,x+offx,GraphicsHeight()-64+offy Next Flip Wend Function MakeWavePix:TPixmap(w:Int,h:Int,wh:Int,red:Int=100,grn:Int=120,blu:Int=200) Local p:TPixmap = CreatePixmap(w,h,PF_RGBA8888) Local argb0:Int = $FF000000 | (red Shl 16) | (grn Shl 8) | blu Local argb1:Int = $00000000 | (red Shl 16) | (grn Shl 8) | blu For Local x:Int = 0 Until p.width Local a:Float = (x/Float(p.width)) * 360.0 Local c:Int = (Cos(a)*0.5*wh) + wh For Local y:Int = 0 Until p.height If y<c p.WritePixel(x,y,argb1) Else p.WritePixel(x,y,argb0) EndIf Next Next Return p EndFunction

LarsG (Posted 2007) [#5]

elegant, fredborg! :)

Why0Why (Posted 2007) [#6]

Fredborg, I agree with Lars. Elegant and simple!

ImaginaryHuman (Posted 2007) [#7]

I think worms just had an animated sprite, or set of them in parallax, pasted down there.