Graphics3D 800,600,32,2
SetBuffer BackBuffer()
ClsColor 127,127,127

;Global--------------------------------------------
Global camera
Global mxs
Global mys
Global mzs
Global mht1
Global mht2

;Start--------------------------------------------
camera = CreateCamera()
AmbientLight 255,255,255


;Textur-------------------------------------------
tex = CreateTexture(128,128)
SetBuffer TextureBuffer(tex)
	Color 255,0,0
	Rect 0,0,128,128,1
	Color 255,255,255
	For y=0 To 16
		For x=0 To 16
			Rect x*2*8+(y Mod 2)*8,y*8,8,8,1
		Next
	Next
SetBuffer BackBuffer()

;Mesh---------------------------------------------
mesh = CreateMesh()
sur = CreateSurface(mesh)
br# = 64
For y=0 To br
	For x=0 To br
		xpos# = x/br*2-1
		ypos# = y/br*2-1
		zpos# = -1
		l# = Sqr(xpos*xpos + ypos*ypos + zpos*zpos)
		xpos = xpos / l
		ypos = ypos / l
		zpos = zpos / l
		AddVertex(sur,xpos,ypos,zpos,x/br,1-y/br)
	Next
Next
For y=0 To br-1
	For x=0 To br-1
		v0 = y*(br+1)+x
		v1 = v0+1
		v2 = (y+1)*(br+1)+x
		v3 = v2+1
		AddTriangle(sur,v1,v2,v3)
		AddTriangle(sur,v0,v2,v1)
	Next
Next
PositionEntity mesh,0,0,10
EntityTexture mesh,tex

;Hauptschleife------------------------------------
fps = CreateTimer(60)
While Not KeyHit(1)
	WaitTimer(fps)
	Cls
	WireFrame KeyDown(57)
	mx = MouseX()
	my = MouseY()
	mz = MouseZ()
	mxs = MouseXSpeed()
	mys = MouseYSpeed()
	mzs = MouseZSpeed()
	mht1 = MouseHit(1)
	mht2 = MouseHit(2)
	
	
	cammove()
	
	
	
	UpdateWorld()
	RenderWorld()
	
	Flip 0
Wend
End

;Funktionen---------------------------------------
Function cammove()
	If MouseDown(2) Then 
		RotateEntity camera,EntityPitch(camera)+mys/10.0,EntityYaw(camera)-mxs/10.0,0
		speed# = 0.1
		If KeyDown(17) Then MoveEntity camera,0,0,speed#
		If KeyDown(31) Then MoveEntity camera,0,0,-speed#
		If KeyDown(30) Then MoveEntity camera,-speed#,0,0
		If KeyDown(32) Then MoveEntity camera,speed#,0,0
		MoveEntity camera,0,speed#*mzs*5,0
		MoveMouse 400,300
	EndIf
End Function

For y=0 To br
	For x=0 To br
		xpos# = x/br*2-1
		ypos# = y/br*2-1
		zpos# = -1
		
		l# = Sqr(xpos*xpos + ypos*ypos + zpos*zpos)
		
		u# = xpos * (1.0/l#)
		v# = ypos * (1.0/l#)	
		
		xpos = xpos / l
		ypos = ypos / l
		zpos = zpos / l
		
		AddVertex(sur,xpos,ypos,zpos, u#, v#)
	Next
Next