das sieht für mich alles richtig aus, lies nochmal meinen letzten Post.
4 Zeilen, 4 Quadrate 4 Punkte ...
Die Punkte Deiner roten Quadrate werden ja ignoriert, wenn der nächste gefunden X/Y Wert außerhalb Deines Quadrates gemalt wird überlappen sich die Quadrate gegf. was aber
IMHO richtig ist.
einen Fehler gibt es noch, es muss so heißen
wert:= ABS((farbe1 and clred)-(farbe2 and clred)); Darf ich fragen was das ABS bedeutet?
Ja es ist laut Aufgabenstellung richtig, aber ich denke es wäre besser, wenn man nicht nur von den Punkten ausgeht sondern von den ganzen roten Quadraten.
Man könnte doch einfach den Bereich der zu ignorieren ist vergörßern, sprich vielleicht sowas:
If (wert > schwellwert) and (Image3.Canvas.pixels[round(x+spinedit2.value div 2),round(y+spinedit2.value div 2)]<> clred) then
scheint aber noch nicht ganz richtig zu sein zumindest funktioniert das nicht