Bildanalyse/-vergleich

[Bummi]

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

Delphi-Quellcode:

 wert:= ABS((farbe1 and clred)-(farbe2 and clred));

[Slashmob]

Zitat:

Zitat von Bummi (Beitrag 1140897)

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

Delphi-Quellcode:

 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:

Delphi-Quellcode:

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

[Bummi]

ABS > Betrag > Wert ohne Vorzeichen
Beispiel
wert := 10 - 7; >> 3
wert := 7 - 10; >> -3
wert := ABS(10 - 7); >> 3
wert := ABS(7 - 10); >> 3

Du fragst ja nach Wert > Schwellenwert ...

Die Bereiche zu vergrößern würde meine ich gegen die Aufgabenstellung verstossen.
Wenn man es tun wollte müsste man eine Funktion schreiben die über eine X/Y Funktion in 2 Schleifen auf Kollision prüft. Aber lass es ich denke es passt so.

[Slashmob]

Okidoki, ich werds spätestens morgen erfahren :-D

PS: Überprüf mal deine PN's