AppTitle "TileImageRect"
Graphics 640,480,16,2
SeedRnd MilliSecs()

Global bild

Function uter(a1,a2,opera$)
Select opera
Case "kleiner"
If a1<=a2 Then
Return a1
Else
Return a2
EndIf

Case "größer"
If a1>=a2 Then
Return a1
Else
Return a2
EndIf
End Select
End Function

Function TileImageRect(img,cx,cy,br,ho)
imbr = ImageWidth(img)
imho = ImageHeight(img)

For x = 0 To Floor(br/imbr)-1
For y = 0 To Floor(ho/imho)-1
DrawImage img,cx+x*imbr,cy+y*imho
Next
Next

For x = 0 To Floor(br/imbr)-1
DrawImageRect img,cx+x*imbr,cy+Floor(ho/imho)*imho,0,0,imbr,ho Mod imho
Next
For y = 0 To Floor(ho/imho)-1
DrawImageRect img,cx+Floor(br/imbr)*imbr,cy+y*imho,0,0,br Mod imbr,imho
Next
DrawImageRect img,cx+Floor(br/imbr)*imbr,cy+Floor(ho/imho)*imho,0,0,br Mod imbr,ho Mod imho
End Function

bild = CreateImage(100,50)
Function neubild()
SetBuffer ImageBuffer(bild)
For i = -50 To 100 Step 2
Color Rand(10)*25,Rand(10)*25,Rand(10)*25
Line i,0,i+50,50
Next
SetBuffer BackBuffer()
End Function

SetBuffer BackBuffer()
Repeat
mx = MouseX()
my = MouseY()

If MouseHit(1) = 1 Then
If fix = 0 Then
fix = 1
fixpunktx = mx
fixpunkty = my
neubild()
EndIf
EndIf
If MouseDown(1)=0 Then fix = 0

If fix = 1 Then TileImageRect(bild,uter(mx,fixpunktx,"kleiner"),uter(my,fixpunkty,"kleiner"),Abs(fixpunktx-mx),Abs(fixpunkty-my))

Flip
Cls
Until KeyHit(1)
End