Graphics 800,600,16,2
SetBuffer BackBuffer()
SeedRnd MilliSecs()
;Der X-Belibige "FrontBuffer()" :
For x = 1 To 100
For y = 1 To 100
Color Rand(255),Rand(255),Rand(255)
Rect x,y,Rand(100),Rand(100),Rand(0,1)
Next
Next
Flip
WaitKey()
schnitt = CreateCutImage(FrontBuffer(),0,0,100,100)
Cls

Repeat
DrawImage schnitt,100,100
Flip
Cls
Until KeyHit(1)
End


Function CreateCutImage(Buffer,x,y,width,height)
SaveBuffer(Buffer,"Buffer.bmp")
Image = LoadImage("Buffer.bmp")
DeleteFile "Buffer.bmp"
cut = CreateImage(100,100)
SetBuffer ImageBuffer(cut)
DrawImageRect Image,0,0,x,y,width,height
SetBuffer BackBuffer()
Return cut
End Function