Graphics 640,480,16,1
SeedRnd MilliSecs()

hint = CreateImage(640,480)
SetBuffer ImageBuffer(hint)
For i = 0 To 640
Color Rand(0,255),Rand(0,255),Rand(0,255)
Rect Rand(0,640),Rand(0,480),50,50
Next

Dim wert(30000,3)

Function within(mx,my)
If mx<640 And mx>0 And my<480 And my>0 Then
Return 1
Else
Return 0
EndIf
End Function

Function energie(x,y,d)
LockBuffer
For i = x-d To x+d Step 2
For j = y-d To y+d Step 2
If Sqr((i-x)^2+(j-y)^2)<d Then
If within(i+(x-i)/2,j+(y-j)/2)=1 And within(i,j)=1 Then
wert(num,3) = ReadPixelFast(i,j)
wert(num,1) = i+(x-i)/2+Rand(-1,1)
wert(num,2) = j+(y-j)/2+Rand(-1,1)
num = num + 1
EndIf
EndIf
Next
Next

For i = 0 To num-1
WritePixelFast wert(i,1),wert(i,2),wert(i,3)
WritePixelFast wert(i,1)+1,wert(i,2),wert(i,3)
WritePixelFast wert(i,1),wert(i,2)+1,wert(i,3)
WritePixelFast wert(i,1)+1,wert(i,2)+1,wert(i,3)
Next

num = 0
UnlockBuffer
End Function

Global xcor = 320
Global ycor = 240
Global xricht = 5
Global yricht = 7

SetBuffer BackBuffer()
Repeat

If xcor>=640 Or xcor<=0 Then
xcor = xcor - xricht
xricht = xricht *-1
EndIf

If ycor>=480 Or ycor<=0 Then
ycor = ycor - yricht
yricht = yricht *-1
EndIf

xcor = xcor + xricht
ycor = ycor + yricht

DrawImage hint,0,0
energie(MouseX(),MouseY(),50)

Flip
Cls
Until KeyHit(1)
End