flname$ = "test-desktop.bmp"

Global graphics_x=1024   ;Auflösung X
Global graphics_y=768 ;Auflösung Y
Const graphics_d=32   ;Auflösung Bits
Const graphics_m=1   ;Auflösung Mode



Graphics3D graphics_x,graphics_y,graphics_d,graphics_m
SetBuffer BackBuffer()


;------------------------------Globale,Types,etc.---
Dim FPS(3)             ;fuer die FPS-Rate
;-------------------------ENDE-Globale,Types,etc.---


;Create Maincam
camera1 = CreateCamera()
CameraViewport camera1,0,0,graphics_x,graphics_y
CameraRange camera1, 0.1, 100
CameraProjMode camera1,1
CameraClsMode camera1,0,1 ;<----Sehr wichtig, wenn der Hintergrund der 2D Szene bleiben soll!

;Create Mainlight
light1 = CreateLight()
LightColor light1,200,200,200
PositionEntity light1,0,0,-1000


deskimg = LoadImage(flname$)   ;DesktopImage


tex_x = 256
tex_y = 256

sphere = CreateSphere(24)
PositionEntity sphere,0,0,4.99
ScaleEntity sphere,1.4,1.4,0.2
EntityShininess sphere,0.5

;sphere_tex_rand = LoadTexture("rand.jpg",2+512) ;<-hier kann eine kleine Texture hin, damit die Kugel besser aussieht   
;EntityTexture sphere,sphere_tex_rand,0,1

sphere_tex = CreateTexture(tex_x,tex_y,256+1)
ScaleTexture sphere_tex,1.5,1.5
PositionTexture sphere_tex,0.835,0.835
EntityTexture sphere,sphere_tex


;--------Mouse--
MoveMouse graphics_x/2,graphics_y/2
HidePointer
;---ENDE-Mouse--



While Not KeyHit(1)      ;------MAINLOOP

Cls
DrawImage deskimg,0,0


msx#=MouseXSpeed()
msy#=MouseYSpeed()

If an=0 Then
   CameraProject camera1,EntityX(sphere),EntityY(sphere),EntityZ(sphere)
   px=ProjectedX()
   py=ProjectedY()
   CopyRect px-(tex_x/2),py-(tex_y/2),tex_x,tex_y,0,0,BackBuffer(),TextureBuffer(sphere_tex)
EndIf
If KeyHit(2) Then an=1-an:DebugLog an


   MoveEntity sphere,msx#/100,-msy#/100,0
       
   If KeyHit(17) Then wframe = 1-wframe:WireFrame wframe   ;Wireframe


RenderWorld
Color 255,0,0:Text 10,10,"FPS: " + ShowFPS()

Flip 0

Wend    ;---------------END OF MAINLOOP
End



Function ShowFps#()      ;FPS anzeigen
   FPS(2)=FPS(2)+1
   If MilliSecs()>FPS(3)+999 Then
      FPS(1)=FPS(2)
      FPS(2)=0
      FPS(3)=MilliSecs()
   EndIf
   Return FPS(1)
End Function