Graphics 1024,768,32,1
SetBuffer BackBuffer()

Global XTEC_Disrupter_RGB
Global XTEC_Disrupter_R
Global XTEC_Disrupter_G
Global XTEC_Disrupter_B

Bild = LoadImage("data/test.png")
Repeat
DrawImage Bild,0,0
Circle(MouseX() + 100,MouseY() + 100,100)
Flip
Until KeyDown(1)

End

Function Circle(px, py, rad)
offx = px - rad / 2
offy = py - rad / 2

For x = 0 To rad
   For y = 0 To rad
      If Sqr((rad - x * 2) ^ 2 + (rad - y * 2) ^ 2) < rad Then
         LockBuffer FrontBuffer()
         XTEC_Disrupter_RGB = ReadPixel(x + offx, y + offy)
      XTEC_Disrupter_A=(XTEC_Disrupter_RGB And $FF000000)/$1000000
      XTEC_Disrupter_R=(XTEC_Disrupter_RGB And $FF0000)/$10000
      XTEC_Disrupter_G=(XTEC_Disrupter_RGB And $FF00)/$100
      XTEC_Disrupter_B=XTEC_Disrupter_RGB And $FF
      
      If XTEC_Disrupter_A < 156 Then XTEC_Disrupter_A = XTEC_Disrupter_A + 100 Else XTEC_Disrupter_A = 255
      If XTEC_Disrupter_R < 156 Then XTEC_Disrupter_R = XTEC_Disrupter_R + 100 Else XTEC_Disrupter_R = 255
      If XTEC_Disrupter_G < 156 Then XTEC_Disrupter_G = XTEC_Disrupter_G + 100 Else XTEC_Disrupter_G = 255
      If XTEC_Disrupter_B < 156 Then XTEC_Disrupter_B = XTEC_Disrupter_B + 100 Else XTEC_Disrupter_B = 255

      XTEC_Disrupter_RGB2= XTEC_Disrupter_A*$1000000 +XTEC_Disrupter_R*$10000 + XTEC_Disrupter_G*$100 + XTEC_Disrupter_B
      XTEC_Disrupter_RGB2=XTEC_Disrupter_RGB2 And $FFFFFF
   
      WritePixel x + offx, y + offy,XTEC_Disrupter_RGB2
      UnlockBuffer FrontBuffer()
      EndIf
   Next
Next
End Function