Graphics3D 800,600,32,2
Global CamViewSX=600,CamViewSY=580
Global MausZ
Camera=CreateCamera()
CameraViewport Camera,0,20,CamViewSX,CamViewSY

Cube=CreateCube()
ScaleEntity Cube,CamViewSX,CamViewSY,.1
PositionEntity Cube,0,0,CamViewSX
CubeTextur(Cube)


Repeat

RenderWorld

X=CamViewSX/2:Y=CamViewSY/2+20
Color 255,255,255:Oval X-5,Y-5,10,10,0
Zoomen(Cube)

 
Flip
Until KeyDown(1)=1
End

Function Zoomen(Mesh)
   MausRoll=MausZ-MouseZ():MausZ=MouseZ()
   MoveEntity Mesh,0,0,MausRoll*20 
   
   ;Zentrieren
   If MouseHit(1)=1 Then
      LX#=(MouseX()-CamViewSX*.5)*-2
      LY#=((MouseY()-20)-CamViewSY*.5)*2
     
      Zo#=EntityZ(Mesh)/Float(CamViewSX)
   
      NX#=(LX+EntityX#(Mesh)*(1/Float(Zo)))*Zo
      NY#=(LY+EntityY#(Mesh)*(1/Float(Zo)))*Zo
      PositionEntity Mesh,NX,NY,EntityZ(Mesh)
   End If
End Function

Function CubeTextur(Mesh)
   Tex=CreateTexture(1024,1024)
   SetBuffer TextureBuffer(Tex)
   For I=0 To 500:R=Rand(10,30)
      X=Rand(1024)-R:Y=Rand(1024)-R
      Color Rnd(255),Rnd(255),Rnd(255)
      Oval X,Y,R*2,R*2
   Next
   EntityTexture Mesh,Tex,0,0
   EntityFX Mesh,1:SetBuffer BackBuffer()
       
End Function