For x=0 to imagewidth(bild1)
for y=0 to imageheight(bild1)
;hindrin vergleichen
next
next

;Pixelvergleich VXXXX

global pic$,newpic$                                                             
pic$   =   "C:\blitztest.bmp"      ;Bild sollte 220x60 sein.
;Fenstererstellen und Bild anzeigen
                Graphics 220,120,0,2
               setbuffer Backbuffer()
codpic =  loadimage(pic$)
               drawimage codpic,0,0
;farbe ändern und slice anzeigen (to.do :prüfen bis wohin das pixel geht und prüfen ob x weiter noch eins ist
               Color 255,0,0
;               rect 56,0,1,60
;               rect 107,0,1,60
;               rect 154,0,1,60
;               rect 208,0,1,60
;1.auf dSchwarzes Pixelauf der X-achse a finden
xy = 0
            repeat
               LOCKBUFFER Backbuffer()
rgb=         READPIXELFAST(xy,3)
xy = xy + 1
r=(rgb AND $FF0000)/$10000
g=(rgb AND $FF00)/$100
b=rgb AND $FF
               UNLOCKBUFFER BackBUFFER()
tx$= r+" "+g+" "+b
if xy = 60 then
Print "Kein Pixel"
waitkey()
end

endif
until r = 0    ;geht bestimmt auch ohne umwandeln...to.do
print xy            ;XY hat position des schwarzen pixels !   nicht als variable .. to.do         
; letztes Pixel finden.dazu solange ab xy suchen bis ein weißes Pixel gefunden wird
            repeat
               LOCKBUFFER Backbuffer()
xy = xy + 1
rgb=         READPIXELFAST(xy,3)
r=(rgb AND $FF0000)/$10000
g=(rgb AND $FF00)/$100
b=rgb AND $FF
               UNLOCKBUFFER BackBUFFER()
tx$= r+" "+g+" "+b
if xy = 60 then
Print "Kein Pixel"
waitkey()
end

endif
until r = 255
print xy   ;position des letzten schwarzen pixels
waitkey()