Graphics3D 800,600,16,1
HidePointer()

SetBuffer BackBuffer()

;Kamera und Licht;

camerakolli=CreatePivot()
camera=CreateCamera(camerakolli)

Licht=CreateLight (2, camera)
LightRange licht, 20


;Feste Variabeln;

Objektzaehler=0
wir=0
Speed#=1

While Not KeyHit(1)


;Steuerung;;;;;;;;;;;;;;;;;;;;;;;

;Mit der Maus umschauen;

sMx# = MouseXSpeed()
sMy# = MouseYSpeed()

MoveMouse GraphicsWidth()/2,GraphicsHeight()/2

TurnEntity camerakolli, 0,-(sMx#/3),0, True
TurnEntity camerakolli, (sMy#/3),0,0



;Laufen;
;W, S;
If KeyDown (17) Then MoveEntity camerakolli, 0,0,speed
If KeyDown (31) Then MoveEntity camerakolli, 0,0,-speed
;A, D;
If KeyDown (30) Then MoveEntity Camerakolli, -speed,0,0
If KeyDown (32) Then MoveEntity Camerakolli, speed,0,0

;Sonstiges;;;;;;;;;;;;;;;;;;;;;

;Zeichnen:
;S/W zeichnen;
If MouseDown(1) Then Objekterstellen (camerakolli) : Objektzaehler=Objektzaehler+1
;Bund zeichnen;
If MouseDown(2) Then Objekterstellenb (camerakolli) : Objektzaehler=Objektzaehler+1
;WireFrame an;
If Wir=0 And KeyHit (2) Then Wir=wir +1
;Wireframe aus;
If wir=1 And KeyHit(3) Then Wir=wir -1
;Speed erhöhen;
If KeyDown (78) Then Speed=Speed+0.1
;Speed verringern;
If KeyDown (74) Then Speed=Speed-0.1


WireFrame Wir
UpdateWorld
RenderWorld

Text 0,0, "FPS: " + GetFps() + " Anzahl der Objekte: " + Objektzaehler + " Anzahl der Polygone: " + Objektzaehler*12 + " Speed: " + speed + " Wireframe: " + wir
Text 0,20, "Steuerung:"
Text 0,35, "W,S,A,D = Bewegen"
Text 0,50, "Linke Maustaste: S/W zeichnen"
Text 0,65, "Rechte Maustaste: Bund zeichnen"
Text 0,80, "Speed erhöhren: +"
Text 0,95, "Speed verringern: -"
Text 0,110,"Wireframe an/aus: 1/2"
Text 0,585, "Toni Pusch 2006"
Flip



Wend
ClearWorld
End

;Funktionen;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;FPS berechnen;
Global FPS, FPS_temp, FPS_time
Function GetFPS()
ctime = MilliSecs()
FPS_temp = FPS_temp + 1
If ctime - FPS_time > 500 Then
FPS = FPS_temp * 2
FPS_temp = 0
FPS_time = ctime
EndIf
Return FPS
End Function

;S/W zeichnen Funktion;
Function Objekterstellen (woran)

campox = EntityX (woran)
campoy = EntityY (woran)
campoz = EntityZ (woran)

Zufall = Rnd(1,360)
Zufall2 = Rnd(1,255)


Cube=CreateCube()
PositionEntity Cube, campox, campoy, campoz
TurnEntity Cube, zufall, zufall, zufall
EntityColor cube, Zufall2, Zufall2, Zufall2


End Function

;Bund zeichnen Funktion;
Function ObjekterstellenB (woran)


campox = EntityX (woran)
campoy = EntityY (woran)
campoz = EntityZ (woran)

Zufall = Rnd(1,360)

ZufallRot = Rnd(1,255)
ZufallGruen = Rnd(1,255)
ZufallBlau = Rnd(1,255)

Cube=CreateCube()
PositionEntity Cube, campox, campoy, campoz
TurnEntity Cube, zufall, zufall, zufall
EntityColor cube, ZufallRot, ZufallGruen, ZufallBlau


End Function