Apptitle "Fake Lupe by bob"
Const ScreenX = 800
Const screenY = 600
Graphics 800,600,32,2


Global HG1 =createimage(ScreenX,ScreenY)


SetBuffer ImageBuffer(HG1)
For y = 0 To screenY Step 32
   For x = 0 To screenx Step 32
      Color Rand(255),Rand(255),Rand(255)
      Rect x,y,32,32
   Next
Next


HG2 = CopyImage(HG1)
ScaleImage HG2,2,2   

Global HG_Back = CopyImage(HG1)

SetBuffer BackBuffer()
While Not keyhit(1)
   mx = MouseX()
   my = MouseY()
   DrawBlock HG2,0-MX,0-MY
   DrawImage HG1,0,0
   Color 255,0,0   
   Oval mx-100,my-100,200,200,0
   stanze_Loch(mx,my)
   Flip
   
Wend
End

Function    stanze_Loch(mx,my)
   FreeImage HG1
   hg1 = CopyImage(HG_Back)
   Color 255,255,255
   SetBuffer ImageBuffer(HG1)
   Oval mx-100,my-100,200,200
   SetBuffer BackBuffer()
   MaskImage hg1,255,255,255
End Function

flname$ = "test-desktop"

deskimg = LoadImage(flname$+".bmp")
ax = ImageWidth(deskimg)
ay = ImageHeight(deskimg)
;FreeImage deskimg

Global graphics_x=ax   ;Auflösung X
Global graphics_y=ay   ;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()

font_arial = LoadFont("Verdana",20,1)
SetFont font_arial

;------------------------------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
;TurnEntity light1,90,0,0



;AmbientLight 255,255,255
deskimg = LoadImage(flname$+".bmp")   ;DesktopImage


tex_x = 512
tex_y = 512

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)   
;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--

SeedRnd MilliSecs()
msx# = Rnd(0.2,0.5)
msy# = Rnd(0.2,0.5)

mx=MouseX()
my=MouseY()



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

Cls
DrawImage deskimg,0,0

If MouseX()<>mx Or MouseY()<>my Then End


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



;Moving Cam
   ;If KeyDown(200) Then MoveEntity camera1,0,0,1
   ;If KeyDown(208) Then MoveEntity camera1,0,0,-1
   ;If KeyDown(203) Then MoveEntity camera1,1,0,0
   ;If KeyDown(205) Then MoveEntity camera1,-1,0,0
   
   SeedRnd MilliSecs()
   If EntityY(sphere)>2.5 Then msy# = -Rnd(0.15,0.5)
   If EntityY(sphere)<-2.5 Then msy# = Rnd(0.15,0.5)
   If EntityX(sphere)>4 Then msx# = -Rnd(0.15,0.5)
   If EntityX(sphere)<-4 Then msx# = Rnd(0.15,0.5)

   MoveEntity sphere,msx#/10,msy#/10,0
      
   ;msx# = MouseXSpeed()
   ;msy# = MouseYSpeed()
   ;MoveEntity sphere,msx#/100,-msy#/100,0
   
   ;MoveMouse graphics_x/2,graphics_y/2
;End Moving Cam
   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