MoveEntity improvement

Blitz3D Forums/Blitz3D Programming/MoveEntity improvement

it doesnt :(

; Createcube Example
; ------------------

Graphics3D 640,480,0,2
SetBuffer BackBuffer()

camera=CreateCamera()
;CameraZoom camera, 2.4

light=CreateLight()
RotateEntity light,90,0,0

; Create cube
cube=CreateCube()

PositionEntity cube,0,0,5

While Not KeyDown( 1 )

	iMoveEntity camera, (KeyDown(32) - KeyDown(30)) * .2, 0, (KeyDown(31) - KeyDown(17)) * .2
	TurnEntity camera, MouseYSpeed(), -MouseXSpeed(), 0
	MoveMouse GraphicsWidth() / 2, GraphicsHeight() / 2


RenderWorld


Flip
Wend

End

Function iMoveEntity(mesh, x#, y#, z#)

		rx# = EntityX(mesh)
		ry# = EntityY(mesh)
		rz# = EntityZ(mesh)
		
		;1
		gamma# = EntityYaw(mesh)
		beta#  = -EntityPitch(mesh)
		alpha# = EntityRoll(mesh)

  xl1#=z#*Sin(gamma)+x#*Cos(gamma)
  yl1#=y#
  zl1#=z#*Cos(gamma)-x#*Sin(gamma)

  xl2#=xl1
  yl2#=yl1*Cos(beta)-zl1*Sin(beta)
  zl2#=yl1*Sin(beta)+zl1*Cos(beta)
 
  xl3#=(yl2*Sin(alpha)+xl2*Cos(alpha))
  yl3#=(yl2*Cos(alpha)-xl2*Sin(alpha))
  zl3#=(zl2)


	
	rx = rx + xl3
	ry = ry - yl3
	rz = rz - zl3
		
	PositionEntity mesh, rx, ry, rz
	
End Function