Graphics3D 800, 600, 0, 2
SetBuffer BackBuffer()
Local Timer = CreateTimer(60)

Local cam = CreateCamera()
PositionEntity cam, 0, 0, -10

; <!-- Quadrat
Local quad = CreateMesh()
Local surf = CreateSurface(quad)

Local v[4]
v[0] = AddVertex(surf, -1, 1, 0, 0, 0)
v[1] = AddVertex(surf, 1, 1, 0, 1, 0)
v[2] = AddVertex(surf, 1, -1, 0, 1, 1)
v[3] = AddVertex(surf, -1, -1, 0, 0, 1)

AddTriangle(surf, v[0], v[1], v[2])
AddTriangle(surf, v[2], v[3], v[0])
; Quadrat --!>

While Not KeyHit(1)
	RenderWorld
	
	Flip 0
	WaitTimer(Timer)
	Cls
Wend
End

Type

VertexCoords

ClearSurface

Graphics3D 800, 600, 0, 2

Global VertX#, VertY#, VertZ#, VertR, VertG, VertB

Local Camera = CreateCamera()
Local Timer = CreateTimer(60)

Local Mesh = CreateMesh()
EntityFX Mesh, 3

Local Surf = CreateSurface(Mesh)

UpdateVertices2(0, Surf) ; Surface das erste Mal zu befüllen

Local Mode = 1, T# = 0.0
While Not KeyHit(1)
	Local Counter = MilliSecs()
	
	If Mode Then
		UpdateVertices1(T#, Surf)
	Else
		UpdateVertices2(T#, Surf)
	EndIf
	
	RenderWorld
	Counter = MilliSecs() - Counter
	
	Color 0, 0, 0
	Rect 0, 0, 800, 20
	
	Color 255, 255, 255
	Text 0, 0, "Frametime: " + Counter + "ms"
	
	If Mode Then
		Text 200, 0, "Methode: VertexCoords"
	Else
		Text 200, 0, "Methode: ClearSurface/AddVertex"
	EndIf
	
	Text 600, 0, "Leertaste zum Wechseln"
	
	If KeyHit(57) Then Mode = Not Mode
	
	T# = T# + 1.0
	
	Flip 0
	WaitTimer Timer
Wend
End

Function UpdateVertices1(T#, Surf)
	For I = 0 To 4*10000
		CalcVertexCoord(T, I)
		
		VertexCoords(Surf, I, VertX, VertY, VertZ)
	Next
End Function

Function UpdateVertices2(T#, Surf)
	ClearSurface Surf, True, True
	
	For I = 0 To 4*10000
		CalcVertexCoord(T, I)
		
		AddVertex(Surf, VertX, VertY, VertZ)
		
		VertexColor(Surf, I, VertR, VertG, VertB)
	Next
	
	For I = 0 To 4*10000 Step 4
		AddTriangle(Surf, I, I + 1, I + 2)
		AddTriangle(Surf, I, I + 2, I + 3)
	Next
End Function

Function CalcVertexCoord(T#, I)
	Local Quad  = I Shr 2
	Local Index = I And 3
	
	Quad = Quad + (Index = 1 Or Index = 2)
	
	Local Angle#  = Quad*5.0
	Local Radius# = Quad*0.005 + (Index >= 2)*(Quad*0.0002 + 0.005)
	
	VertX = Cos(Angle + T)*Radius
	VertY = Sin(Angle + T)*Radius
	VertZ = 6.0
	
	PrettyColors(Angle# Mod 240.0, 1.0, 1.0)
End Function

Function PrettyColors(H#, S#, V#)
	Local HI = H/60
	Local F# = H/60.0 - HI
	
	Local P# = V*(1.0 - S)
	Local Q# = V*(1.0 - S*F)
	Local T# = V*(1.0 - S*(1.0 - F))
	
	Local Tuple#[3]
	Select HI
		Case 0
			Tuple[0] = V
			Tuple[1] = T
			Tuple[2] = P
		Case 1
			Tuple[0] = Q
			Tuple[1] = V
			Tuple[2] = T
		Case 2
			Tuple[0] = P
			Tuple[1] = Q
			Tuple[2] = Q
		Case 3
			Tuple[0] = T
			Tuple[1] = P
			Tuple[2] = P
	End Select
	
	VertR = Int(Tuple[0]*255.0)
	VertG = Int(Tuple[1]*255.0)
	VertB = Int(Tuple[2]*255.0)
End Function