Include "xors3d.bb"
Global pivot,camera,mxs#,mys#,Light,watermesh,watertex
Dim plane#(0,0)
Dim noise#(0)
xGraphics3D(800, 600, 32, False, 0)

watermesh=preparations()


While(Not (xKeyHit(KEY_ESCAPE) Or xWinMessage("WM_CLOSE")))


GrimMagicWater(watermesh,3,6,10,Rnd(0.05,0.08),1)

xUpdateWorld
xRenderWorld()
Control(0.2,1)
xFlip()
Wend
End


Function GrimMagicWater(meshid,waveheight#,horizwave#,wavel ength#,Noiseamplitude#,speed#)
xPointEntity light,camera
xPositionEntity (light,225*Sin(xMillisecs()/30),145,225*Cos(xMillisecs()/30))
xPositionEntity (watermesh,xEntityX(camera,1),0,xEntityZ(camera,1) )
xRotateEntity (watermesh,0,xEntityYaw(camera,1)-45,0 )
If xEntityY(camera,1)<1 Then xPositionEntity camera,xEntityX(camera,1),1,xEntityZ(camera,1),1
xScaleTexture watertex,1+Sin(xMillisecs()/100)/10,1+Cos(xMillisecs()/50)/10
;waveheight#=1
;horizwave#=3
;Noiseamplitude#=0.14
;wavelength#=10 ; ìåíüøåå çíà÷åíèå îçíà÷àåò áîëüøóþ äëèíó
wavehorizlength#=35
;speed#=1
time#=xMillisecs()*speed

mesh=meshid
meshsurf=xGetSurface(mesh,0)
qvert=xCountVertices(meshsurf)
For i=0 To qvert-1
x000#=plane#(i,0)
y000#=plane#(i,2)
z000#=0
xTFormPoint (x000,z000,y000,mesh,0)
x00#=xTFormedX()
y00#=xTFormedZ()

z01#=waveheight*Cos(time/wavelength+x00*wavelength/3)+horizwave*Sin(time/wavehorizlength#+y00*wavelength/5)+Noiseamplitude*Sin(noise#(i)+time/4)
x01#=x00-waveheight*Cos(time/wavelength+x00*wavelength/3)+Noiseamplitude*Cos(noise#(i)+time/4)
y01#=y00-horizwave*Sin(time/wavehorizlength#+y00*wavelength/5)+Noiseamplitude*Sin(noise#(i)+time/4)
xTFormPoint (x01,z01,y01,0,mesh)
xVertexCoords meshsurf,i,xTFormedX(),xTFormedY(),xTFormedZ()
xVertexTexCoords meshsurf,i,x00/25,y00/25
Next
xUpdateNormals mesh
End Function


Function preparations()
pivot=xCreatePivot()
camera = xCreateCamera(pivot)
light = xCreateLight()
watermesh = xLoadMesh("mesh/water.b3d")
xPositionEntity(watermesh, 0.0, 0.0, 0.0)
watertex=xLoadTexture("maps/water.jpg")
xEntityTexture (watermesh,watertex)
mesh=watermesh
meshsurf=xGetSurface(mesh,0)
qvert=xCountVertices(meshsurf)
Dim plane#(qvert,3)
Dim noise#(qvert)
For i=0 To qvert-1
plane#(i,0)=xVertexX(meshsurf,i) ;x
plane#(i,1)=xVertexY(meshsurf,i) ;x
plane#(i,2)=xVertexZ(meshsurf,i) ;x
noise#(i)=Rnd(0,359.99)
Next
Return watermesh
End Function

Function control(speed#,mousesensitivity#)
If xKeyDown(key_1) Then xWireframe(True) Else xWireframe(False)
xText(10, 10, "FPS: " + xGetFPS())
xText(10,30,"Trisinview: "+xTrisRendered ())
mxs#=mxs#+(xMouseXSpeed()/5.0)
mys#=mys#+(xMouseYSpeed()/5.0)
xRotateEntity (camera,mousesensitivity#*mys#,-mousesensitivity#*mxs#,0)
xMoveMouse xGraphicsWidth()/2,xGraphicsHeight()/2
If xKeyDown(17) Or xKeyDown(200) xMoveEntity camera,0,0,speed#
If xKeyDown(31) Or xKeyDown(208) xMoveEntity camera,0,0,-speed#
If xKeyDown(30) Or xKeyDown(203) xMoveEntity camera,-speed#,0,0
If xKeyDown(32) Or xKeyDown(205) xMoveEntity camera,speed#,0,0
xPositionEntity pivot,xEntityX#(camera,1),xEntityY#(camera,1),xEnt ityZ#(camera,1)
xPositionEntity camera,0,0,0
End Function

xMOUSE_LEFT = 1
xMOUSE_RIGHT = 2
xMOUSE_MIDDLE = 3
xMOUSE4 = 4
xMOUSE5 = 5
xMOUSE6 = 6
xMOUSE7 = 7
xMOUSE8 = 8
xKEY_ESCAPE = 1
xKEY_1 = 2
xKEY_2 = 3
xKEY_3 = 4
xKEY_4 = 5
xKEY_5 = 6
xKEY_6 = 7
xKEY_7 = 8
xKEY_8 = 9
xKEY_9 = 10
xKEY_0 = 11
xKEY_MINUS = 12
xKEY_EQUALS = 13
xKEY_BACK = 14
xKEY_TAB = 15
xKEY_Q = 16
xKEY_W = 17
xKEY_E = 18
xKEY_R = 19
xKEY_T = 20
xKEY_Y = 21
xKEY_U = 22
xKEY_I = 23
xKEY_O = 24
xKEY_P = 25
xKEY_LBRACKET = 26
xKEY_RBRACKET = 27
xKEY_RETURN = 28
xKEY_ENTER = xKEY_RETURN
xKEY_LCONTROL = 29
xKEY_RCONTROL = 157
xKEY_A = 30
xKEY_S = 31
xKEY_D = 32
xKEY_F = 33
xKEY_G = 34
xKEY_H = 35
xKEY_J = 36
xKEY_K = 37
xKEY_L = 38
xKEY_SEMICOLON = 39
xKEY_APOSTROPHE = 40
xKEY_GRAVE = 41
xKEY_LSHIFT = 42
xKEY_BACKSLASH = 43
xKEY_Z = 44
xKEY_X = 45
xKEY_C = 46
xKEY_V = 47
xKEY_B = 48
xKEY_N = 49
xKEY_M = 50
xKEY_COMMA = 51
xKEY_PERIOD = 52
xKEY_SLASH = 53
xKEY_RSHIFT = 54
xKEY_MULTIPLY = 55
xKEY_MENU = 56
xKEY_SPACE = 57
xKEY_F1 = 59
xKEY_F2 = 60
xKEY_F3 = 61
xKEY_F4 = 62
xKEY_F5 = 63
xKEY_F6 = 64
xKEY_F7 = 65
xKEY_F8 = 66
xKEY_F9 = 67
xKEY_F10 = 68
xKEY_NUMLOCK = 69
xKEY_SCROLL = 70
xKEY_NUMPAD7 = 71
xKEY_NUMPAD8 = 72
xKEY_NUMPAD9 = 73
xKEY_SUBTRACT = 74
xKEY_NUMPAD4 = 75
xKEY_NUMPAD5 = 76
xKEY_NUMPAD6 = 77
xKEY_ADD = 78
xKEY_NUMPAD1 = 79
xKEY_NUMPAD2 = 80
xKEY_NUMPAD3 = 81
xKEY_NUMPAD0 = 82
xKEY_DECIMAL = 83
xKEY_TILD = 86
xKEY_F11 = 87
xKEY_F12 = 88
xKEY_NUMPADENTER = 156
xKEY_RMENU = 221
xKEY_PAUSE = 197
xKEY_HOME = 199
xKEY_UP = 200
xKEY_PRIOR = 201
xKEY_LEFT = 203
xKEY_RIGHT = 205
xKEY_END = 207
xKEY_DOWN = 208
xKEY_NEXT = 209
xKEY_INSERT = 210
xKEY_DELETE = 211
xKEY_LWIN = 219
xKEY_RWIN = 220
xKEY_BACKSPACE = xKEY_BACK
xKEY_NUMPADSTAR = xKEY_MULTIPLY
xKEY_RALT = 184
xKEY_CAPSLOCK = 58
xKEY_NUMPADMINUS = xKEY_SUBTRACT
xKEY_NUMPADPLUS = xKEY_ADD
xKEY_NUMPADPERIOD = xKEY_DECIMAL
xKEY_DIVIDE = 181
xKEY_NUMPADSLASH = xKEY_DIVIDE
xKEY_LALT = 56
xKEY_UPARROW = xKEY_UP
xKEY_PGUP = xKEY_PRIOR
xKEY_LEFTARROW = xKEY_LEFT
xKEY_RIGHTARROW = xKEY_RIGHT
xKEY_DOWNARROW = xKEY_DOWN
xKEY_PGDN = xKEY_NEXT