Graphics3D 800,600,32,2
setbuffer backbuffer()

; 3D einstellungen für die Dunkelheit/Helligkeit
camera=CreateCamera()
Sprite   = CreateSprite()
brush = CreateBrush (1,1,1 )
transparency# = 0.7     ; hier stellste die Dunkelheit ein


PaintEntity Sprite,brush
EntityAlpha Sprite,transparency#
PositionEntity sprite,0,0,1

while not keydown(1)
cameraclsmode camera,0,1
cls

; Befehle

renderworld()

;2D Befehle

flip
wend

Graphics 640, 480, 32
SetBuffer BackBuffer()

HidePointer

Global g_imgBackground = LoadImage( "test.bmp" )

While Not KeyHit( 1 )
   Cls
   
   TileImage g_imgBackground
   DrawMouseRect( 50, 50, 130 )
   
   Flip
Wend

End

Function Clamp( val, min, max )
   If ( val < min ) val = min
   If ( val > max ) val = max
   
   Return val
End Function

Function DrawMouseRect( width, height, bright )
   xPos = MouseX() - width / 2
   yPos = MouseY() - height / 2
   
   If ( xPos < 0 ) Then xPos = 0
   If ( xPos + width > GraphicsWidth() ) Then xPos = GraphicsWidth() - width
   If ( yPos < 0 ) Then yPos = 0
   If ( yPos + height > GraphicsHeight() ) Then yPos = GraphicsHeight() - height
   
   Color 0, 0, 0
   Rect ( xPos, yPos, width, height, 0 )
   
   buffer = CreateImage( width, height )
   CopyRect( xPos, yPos, width, height, 0, 0, BackBuffer(), ImageBuffer( buffer ) )
   
   SetBuffer( ImageBuffer( buffer ) )
   LockBuffer( ImageBuffer( buffer ) )
   
   For x = 0 To width
      For y = 0 To height
         srcRGB = ReadPixelFast( x, y, ImageBuffer( buffer ) )
         
         srcR   = ( srcRGB And $ff0000 ) Shr 16
         srcG   = ( srcRGB And $ff00 ) Shr 8
         srcB   = ( srcRGB And $ff )
         
         dstR   = Clamp( srcR + bright, 0, 255 )
         dstG   = Clamp( srcG + bright, 0, 255 )
         dstB   = Clamp( srcB + bright, 0, 255 )
         
         dstRGB = dstR Shl 16 Or dstG Shl 8 Or dstB
         
         WritePixelFast( x, y, dstRGB, ImageBuffer( buffer ) )
      Next
   Next
   
   UnlockBuffer( ImageBuffer( buffer ) )
   SetBuffer( BackBuffer() )
   
   DrawImage( buffer, xPos, yPos )
End Function