a=a+1
b=b+1
c=c+1
TurnEntity cube,1,1,1,1
RotateEntity cube1,a,b,c,1

Graphics3D 1280,1024,32,2
SetBuffer BackBuffer()
Dim kugel#(8,3,2)
;Kamera erstellen
Local camera
camera = CreateCamera()

Local takt=CreateTimer(100)

PositionEntity camera,0,0,-50
;Licht erstellen
Local light                                                   
light = CreateLight(2)
PositionEntity light,100,100,100
RotateEntity light,90,0,0

Local bodentextur = LoadTexture("materialien\bodentextur.png")
ScaleTexture bodentextur,0.05,0.05
Local boden
boden = CreateCube()
PositionEntity    boden,0,-9,0
ScaleEntity    boden,200,1,200
EntityTexture   boden,bodentextur

Local yawcamera# = 0
Local pitchcamera# = 0

cube = CreateCube()
ScaleEntity cube,8,8,8
PositionEntity cube,10,10,10
cube1 = CreateCube()
ScaleEntity cube1,8,8,8
PositionEntity cube1,10,10,10

Repeat
   a=a+1
   b=b+1
   c=c+1
   TurnEntity cube,1,1,1,1
   RotateEntity cube1,a,b,c,1
   
   


If KeyDown(200) Then MoveEntity camera,0,0,1
If KeyDown(208) Then MoveEntity camera,0,0,-1
If KeyDown(203) Then MoveEntity camera,-1,0,0
If KeyDown(205) Then MoveEntity camera,1,0,0
MoveEntity camera,0,MouseZSpeed(),0

If MouseDown(3) Then
   If MouseHit(3) Then MoveMouse 640,512
   yawcamera#= yawcamera#-MouseXSpeed()
   pitchcamera#=pitchcamera# -MouseYSpeed()
   RotateEntity camera,pitchcamera#,yawcamera#,0
EndIf
RenderWorld
FlushMouse()
WaitTimer(takt)   

Flip
Until KeyHit(1)

End

a=a+1
b=b+1
c=c+1
RotateEntity cube,0,0,0
TurnEntity cube,a,b,c,1
RotateEntity cube1,a,b,c,1