Bildbearbeitung mit Delphi

[freeway]

du kannst die per pixels ermittelten farben direkt miteinander vergleichen

if pic1.canvas.pixels 1 = pic2.canvas.pixels then ...

[BUG]

Zitat von freeway:

du kannst die per pixels ermittelten farben direkt miteinander vergleichen

Das ist für sein Vorhaben allerdings nicht so nützlich

Zitat:

Ich dachte daran, die Farbe des aktuellen Pixels auslesen und dann vergleichen, an welcher neuen Farbe er am nächsten dran ist und dann die Farbe ersetzen.

Mal ein einfacher Vorschlag für eine Distanzfunktion:

Code:

d(c1, c2) = sqrt(sqr(c1.r - c2.r) + sqr(c1.g - c2.g) + sqr(c1.b - c2.b))

Je größer d(c1, c2) ist, desto größer ist die "Entfernung" der beiden Farben.

[Muellermilchtrinker]

Zitat von BUG:

Mal ein einfacher Vorschlag für eine Distanzfunktion:

Code:

d(c1, c2) = sqrt(sqr(c1.r - c2.r) + sqr(c1.g - c2.g) + sqr(c1.b - c2.b))

Je größer d(c1, c2) ist, desto größer ist die "Entfernung" der beiden Farben.

Hab das gerade mal in Excel getestet. Da fehlen natürlich Betragsstriche, sonst gibts ein Error mit 'ner negativen Wurzel. Macht soweit Sinn. Werde das mal in Delphi einbauen und dann nochmal Bescheid geben.

[BUG]

Zitat von Muellermilchtrinker:

Da fehlen natürlich Betragsstriche, sonst gibts ein Error mit 'ner negativen Wurzel.

sqr. Das Quadrat einer (reellen) Zahl ist immer positiv.