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:

Zitat von freeway (Beitrag 1106214)

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:

Zitat von BUG (Beitrag 1106217)

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:

Zitat von Muellermilchtrinker (Beitrag 1106348)

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

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