Stuff

Graphics3D 800, 600, 0, 2

SetBuffer BackBuffer()

Global cam = CreateCamera()  
cube = CreateCube()  
light = CreateLight()  


Global watwidth = 200
Global watlength = 200

Global watmesh = CreateMesh()
Global watsurf = CreateSurface(watmesh)
Dim watverts(watwidth, watlength)


RotateEntity light,90,0,0  

PositionEntity cube, 0, 0, 5

genwater(1)

While Not KeyDown(1)  
    UpdateWorld
    RenderWorld      
    TurnEntity cube,0.1,0.2,0.3 
    Text 0, 0, "wtf?"   
    Flip 
Wend

Function genwater(height)
	For q = 0 To watlength
		For w = 0 To watwidth
			watverts(w,q) = AddVertex(watsurf, w, height, q, (w Mod 2), (q Mod 2))
			VertexColor (watsurf, watverts(w,q), 255, 255, 255)
		Next
	Next
	
	For q = 0 To (watlength - 1)
		For w = 0 To (watwidth - 1)
			AddTriangle(watsurf, watverts(w, q+1), watverts(w+1, q), watverts(w, q))
			AddTriangle(watsurf, watverts(w, q+1), watverts(w+1, q+1), watverts(w+1, q))
		Next
	Next
End Function