Function draw(n, x, y)   

   Select n
      Case 1
         DrawImageRect picObjects, x, y, 0, 0, 44, 54
      Case 2
         DrawImageRect picObjects, x, y, 45, 0, 44, 54
...

;Der Picmapchecker erkennt zusammenhängende Bildteile auf einem Bild.
;Dazu muss man das Bild an sich, sowie die MaskColor angeben.
;
;Linksklick: sucht ein Teilbild an Mausposition
;Rechtsklick: zeigt Umrisse des gefundenen Bildes
;Mittelklick: verschiebt Bild   
   
   Const maskColorR = 255, maskColorG = 0, maskColorB = 255   ;<------ Maskcolor
   Graphics 240, 180, 0, 3
   Global pic = LoadImage("picmapchecker_example.PNG")      ;<-------- Bild


Global picWidth = ImageWidth(pic), picHeight = ImageHeight(pic)
Global picCheck
Global returnString$, mask, white, X1, Y1, X2, Y2

   picMask = CreateImage(2, 1): SetBuffer ImageBuffer(picMask)
      Color maskColorR, maskColorG, maskColorB: Plot 0, 0
      Color 255, 255, 255: Plot 1, 0
   LockBuffer(ImageBuffer(picMask)): mask = ReadPixelFast(0, 0): white = ReadPixelFast(1, 0): UnlockBuffer(ImageBuffer(picMask))

SetBuffer BackBuffer()
   
   Repeat
      mouse_x = MouseX(): mouse_y = MouseY()      
      
      ;Drag Pic
      If MouseDown(3) And startDrag = 0 Then startDrag = 1: picXold = picX: picYold = picY: dragX = mouse_x: dragY = mouse_y
      If MouseDown(3) And startDrag = 1 Then picX = picXold + (mouse_x - dragX): picY = picYold + (mouse_y - dragY)
      If Not MouseDown(3) And startDrag = 1 Then startDrag = 0

      Cls
      DrawBlock pic, picX, picY
      If MouseDown(2) Then DrawBlock picCheck, picX, picY      
      
      Color 0, 255, 0
      mx = mouse_x - picX: my = mouse_y - picY
      If mx < 0 Or my < 0 Or mx >= picWidth Or my >= picHeight Then
         Color 255, 0, 0
      Else
         If MouseHit(1) Then
            picCheck = CreateImage(picWidth, picHeight)
            checkAt(mx, my)
         End If      
      End If
      
      Text 0, 0, (mouse_x - picX) + "," + (mouse_y - picY)
      Text 0, 16, returnString$
      Rect X1 + picX, Y1 + picY, X2 - X1 + 1, Y2 - Y1 + 1, 0      
      Flip()

   Until KeyDown(1)
   End

Function checkAt(x, y)

   X1 = x:   Y1 = y:   X2 = x:   Y2 = y   
   LockBuffer ImageBuffer(pic)
      rgb = ReadPixelFast(x, y, ImageBuffer(pic))
   If rgb = mask Then returnString$ = "Maskcolor here": UnlockBuffer ImageBuffer(pic): Return
   LockBuffer ImageBuffer(picCheck)
      check(x, y)
   UnlockBuffer ImageBuffer(pic)
   UnlockBuffer ImageBuffer(picCheck)   
   returnString$ = X1 + "," + Y1 + "," + (X2 - X1 + 1) + "," + (Y2 - Y1 + 1)
End Function
Function check(x, y)

   If x < 0 Or y < 0 Or x >= picWidth Or y >= picHeight Then Return
   white_check = ReadPixelFast(x, y, ImageBuffer(picCheck))
   If white_check = white Then Return
   rgb = ReadPixelFast(x, y, ImageBuffer(pic))   
   If rgb = mask Then Return
   WritePixelFast x, y, white, ImageBuffer(picCheck)
   If x < X1 Then X1 = x
   If x > X2 Then X2 = x
   If y < Y1 Then Y1 = y
   If y > Y2 Then Y2 = y
      
      check(x - 1, y - 1)
      check(x, y - 1)
      check(x + 1, y - 1)
      check(x - 1, y)
      check(x + 1, y)
      check(x - 1, y + 1)
      check(x, y + 1)
      check(x + 1, y + 1)
End Function