const water_subdiv=...

Graphics3D 1024,768

SetBuffer BackBuffer()


Global Timer = CreateTimer(70)

Global Cam = CreateCamera()
   
Dim Vertex(0,0,3)
Global Surf
Global VertSqr, Temp

; Da das Tile quadratisch ist, ergeben sich folgende sinnvolle Trianglezahlen:
;2, 8, 18, 32, 50, 72, 98, ..., falsche Zahlen werden allerdings angepasst.
Global Water = CreateWaterMesh (32,200) ; An der Zweiten Zahl rumspielen!!!

EntityColor Water,255,255,255

AmbientLight 20,20,150

Piv = CreatePivot()
EntityParent Cam,Piv
MoveEntity Cam,0,25,-30
PointEntity Cam,Piv

Milli = MilliSecs()
While Not KeyHit(1)
   
   TurnEntity Piv,0,.1,0
   
   UpdateWaves Water
   
   RenderWorld
   Color 250,250,250
   Text 10,20, "Water W/D: " + MeshWidth(Water) + "*" + MeshDepth(Water)
   Text 10,40, "Triangles: " + CountTriangles(Surf)
   
   If Not (MilliSecs()-Milli) = 0 Text 10,0, "FPS: " + 1000/(MilliSecs()-Milli)
   Milli=MilliSecs()
   Flip 0
   
Wend

Function UpdateWaves(Mesh)
   temp = temp + 1
   For i = 0 To VertSqr
      For j = 0 To VertSqr
         VertexCoords Surf,Vertex(i,j,0),Vertex(i,j,1),(Sin(Vertex(i,j,1)*20+temp)+Sin(Vertex(i,j,3)*20+1+temp)),Vertex(i,j,3)
      Next
   Next
End Function

Function CreateWaterMesh(Width=32,Triangles = 32)

Local Mesh, Rows = Sqr(Triangles/2)

   Mesh = CreateMesh(Piv)
   
   VertSqr = Rows
   Dim Vertex(Rows,Rows,3)
   
   Surf = CreateSurface(Mesh)
   For x = 0 To Rows
      For y = 0 To Rows
         Vertex(x,y,0)=AddVertex (Surf,x*(Width/Rows),0,y*(Width/Rows))
   
         Vertex(x,y,1)=VertexX(Surf,Vertex(x,y,0))
         Vertex(x,y,2)=VertexY(Surf,Vertex(x,y,0))
         Vertex(x,y,3)=VertexZ(Surf,Vertex(x,y,0))
      Next
   Next
   For x = 0 To Rows-1
      For y = 0 To Rows-1
         v1 = Vertex(X,Y,0)
         v2 = Vertex(X,(Y+1),0)
         v3 = Vertex((x+1),Y,0)
         v4 = Vertex((X+1),(Y+1),0)

         AddTriangle(Surf,v1, v2, v4)
         AddTriangle(Surf,v4,v3,v1)
      Next
   Next
   
   MoveEntity Mesh,-MeshWidth(Mesh)/2,0,-MeshDepth(Mesh)/2
   
   If MeshWidth(Mesh) <> Width Then
      scl# = Width/MeshWidth(Mesh)
      ScaleMesh Mesh,scl,1,scl
   End If
Return Mesh
End Function