da der Text nur B/W ist sollte man die Pixel Farbe unterscheiden könnten.
Code: Alles auswählen
FOR x = 1 TO xMax
FOR y = 1 TO yMax
nColor := @GDI32:Getpixel(x,y)
IF nColor = nBlack
// old Code for each Pixel
AADD(aPixel, {x,y})
nun bin ich am überlegen wie man die Menge der Koordinaten verringern kann.
Code: Alles auswählen
// new Pixel -> Line ?
aEnde := {x,y}
ELSE
IF aEnde[1] <> 0 .AND. aEnde[2] <> 0
Ganzen_Block(aAnfang,aEnde)
ENDIF
aAnfang := {x,y}
aEnde := := {0,0}
ENDIF
... und wie bekomme ich nun die Linien zu einem Rechteck optimiert