Type image
   Field img
   Field x#
   Field y#
End type

Graphics 800,600,16,2
SetBuffer BackBuffer()
img = LoadImage("bush.bmp")
MaskImage img,255,0,255
DrawImage img,0,0
Text 0,0,"Bitte auf die Nase oder einen anderen 'Zieh-Punkt' klicken"
Flip
Repeat Until MouseHit(1)
Cls
Text 0,0, "Bitte warten"
Flip
mx = MouseX()
my = MouseY()
sx = ImageWidth(img)
sy = ImageHeight(img)

mask = CreateImage(sx,sy)
MaskImage mask,0,0,0
Color 0,0,0
   
For x = 100 To 1 Step -3
   image.image = New image
   image\img = CopyImage(img)
   SetBuffer ImageBuffer(mask)
   ClsColor 255,0,255
   Cls
   Color 0,0,0
   Oval mx-x,my-x,x*2,x*2
   SetBuffer ImageBuffer(image\img)
   DrawImage mask,0,0
   HandleImage image\img, mx, my
   image\x = 400
   image\y = 300
next
HandleImage img, mx, my

SetBuffer BackBuffer()
ClsColor 0,0,0
Color 255,255,255
Repeat
   Cls
   ox = MouseX()
   oy = MouseY()
   image.image = Last image
   Repeat
      If image\x <> ox Or image\y <> oy
         ri = ATan2(image\x-ox, image\y-oy)
         a = sqr((image\x-ox)^2 + (image\y-oy)^2)
         image\x = image\x - Sin(ri) * a/2
         image\y = image\y - Cos(ri) * a/2
         ox = image\x
         oy = image\y
      End If
      If image.image = First image Exit
      image.image = Before image
   Forever
   image.image = First image
   DrawImage img, image\x, image\y
   For image.image = Each image
      DrawImage image\img, image\x, image\y
   Next
   fps = fps + 1
   If MilliSecs() > tick+1000
      tick = MilliSecs()
      fpss = fps
      fps = 0
   End if
   Text 0,0, fpss
   Flip
Until KeyHit(1)