Free Asset Waterfall Animation

I'm fine, thanks. Hopefully you too!

Not much to port. I used the following to make the gif (OBS capturing the blitz window):

Graphics3D 800,600,32,2

SetBuffer BackBuffer()

camera=CreateCamera()

TranslateEntity camera,0,0,-2.0

z2_max=5;15;5

Dim concentric(z2_max)

For i=0 To z2_max

 num$=""+(i+1)

 concentric(i)=LoadTexture("frames1\waves_concent_tex"+num$+".png",2)

Next

mesh=LoadMesh("waterfall.b3d")

z2=0

lake=CreateCube()

ScaleEntity lake,1.5,.01,1.5

RotateEntity lake,0,180,0

TranslateEntity lake,0,-.8,0

Dim waterfall_tex(10)

For i=0 To 10

 waterfall_tex(i)=LoadTexture("frames1\waterfall_tex"+i+".jpg",2)

Next

EntityFX mesh,1 Or 16

brush=CreateBrush()

;BrushBlend brush,3

BrushTexture brush,waterfall_tex(0)

PaintMesh mesh, brush

EntityParent lake,mesh

EntityFX lake,1 ;Or 16

EntityBlend lake,1

CameraClsColor camera,0,0,255

;--------------------------main

While KeyHit(1)=0

 If KeyDown(57) Then TurnEntity mesh,0,1,0

 BrushTexture brush,waterfall_tex(z)

 PaintMesh mesh, brush

 EntityTexture lake,concentric(z2)

 RenderWorld()

 Flip

 z=z+1

 If z>10 Then z=0

 z2=z2+1

 If z2>z2_max Then z2=0

 Delay 50

Wend