AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Farbinterpolation von Zwischenpixel

Ein Thema von shmia · begonnen am 25. Okt 2010 · letzter Beitrag vom 26. Okt 2010
Antwort Antwort
shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#1

Farbinterpolation von Zwischenpixel

  Alt 25. Okt 2010, 18:55
Ich habe einen Canvas mit 24 Bit Farbtiefe.

Wir könnte man die Farbe an der Koordinate (x=50.25, y=22.75) ausrechnen,
wenn die Farben der 4 umgebenden Pixel (50,22)|(51,22)|(50,23)|(51,23) bekannt sind.
Andreas

Geändert von shmia (26. Okt 2010 um 14:47 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

AW: Farbeinterpolation von Zwischenpixel

  Alt 25. Okt 2010, 18:56
Du bildest den Durchschnitt der RGB-Werte der umliegenden Pixel?
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.071 Beiträge
 
Delphi 12 Athens
 
#3

AW: Farbeinterpolation von Zwischenpixel

  Alt 25. Okt 2010, 19:04
Natürlich Prozentual

x=50.25
y=22.75

FarbwertVon[50,22] * 0.25 * (1 - 0.75)
+ FarbwertVon[51,22] * (1 - 0.25) * 0.75
+ FarbwertVon[50,23] * 0.25 * (1 - 0.75)
+ FarbwertVon[51,23] * (1 - 0.25) * 0.75

FarbwertVon[Trunc(x), Trunc(y)] * Frac(x) * (1 - Frac(y))
+ FarbwertVon[Trunc(x) + 1, Trunc(y)] * (1 - Frac(x)) * Frac(y)
+ FarbwertVon[Trunc(x), Trunc(y) + 1] * Frac(x) * (1 - Frac(y))
+ FarbwertVon[Trunc(x) + Trunc(y) + 1] * (1 - Frac(x)) * Frac(y)

also jeweils für Rot, Grün und Blau
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.

Geändert von himitsu (25. Okt 2010 um 19:07 Uhr)
  Mit Zitat antworten Zitat
shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#4

AW: Farbeinterpolation von Zwischenpixel

  Alt 25. Okt 2010, 19:08
Durchschnitt der RGB-Werte der umliegenden Pixel
Ja, schon, nur muss die Entfernung zu jedem der umliegenden Pixel berücksichtigt werden.
Wäre der Punkt genau in der Mitte zwischen 4 Pixeln, dann wäre die Farbe:
Delphi-Quellcode:
// x,y :Integer
color := 0.25 * Pixel[x,y] + 0.25 * Pixel[x+1,y] + 0.25 * Pixel[x,y+1] + 0.25 * Pixel[x+1,y+1];
Liegt mein Punkt nicht genau in der Mitte wie im Anfangsbeispiel, tja dann...

@himitsu: deine Formel scheint noch nicht ganz korrekt zu sein, aber sie bringt mich auf diese:
Delphi-Quellcode:
Pixel[Trunc(x), Trunc(y)] * (1 - Frac(x)) * (1 - Frac(y))
+ Pixel[Trunc(x) + 1, Trunc(y)] * (1 - Frac(x)) * Frac(y)
+ Pixel[Trunc(x), Trunc(y) + 1] * Frac(x) * (1 - Frac(y))
+ Pixel[Trunc(x) + 1, Trunc(y) + 1] * Frac(x) * Frac(y)
So sieht es schön symmetrisch aus.

PS: nochmal überlegt, so müsste es sein:
Delphi-Quellcode:
color := Round(
  Pixel[Trunc(x), Trunc(y)] * (1 - Frac(x)) * (1 - Frac(y))
+ Pixel[Trunc(x) + 1, Trunc(y)] * Frac(x) * (1 - Frac(y))
+ Pixel[Trunc(x), Trunc(y) + 1] * (1 - Frac(x)) * Frac(y)
+ Pixel[Trunc(x) + 1, Trunc(y) + 1] * Frac(x) * Frac(y));
Andreas

Geändert von shmia (25. Okt 2010 um 19:27 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von rollstuhlfahrer
rollstuhlfahrer

Registriert seit: 1. Aug 2007
Ort: Ludwigshafen am Rhein
1.529 Beiträge
 
Delphi 7 Professional
 
#5

AW: Farbinterpolation von Zwischenpixel

  Alt 25. Okt 2010, 19:58
Du willst nicht zufällig ein Bild skalieren? - Dafür gibt es schon genug andere Methoden. Die erste bringt Jedi mit (Graphics.pas) und die zweite Windows selbst (SetStretchBltMode und HALFTONE).

Bernhard
Bernhard
Iliacos intra muros peccatur et extra!
  Mit Zitat antworten Zitat
Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#6

AW: Farbinterpolation von Zwischenpixel

  Alt 25. Okt 2010, 20:09
Hallo Andreas,

du könntest es mit einer dreimaligen Interpolation versuchen:

1. Interpolation: Farbe(50,22) und Farbe(51,22) mit blend=0.25 ergibt Farbe C1
2. Interpolation: Farbe(50,23) und Farbe(51,23) mit blend=0.25 ergibt Farbe C2
3. Interpolation: C1 und C2 mit blend=0.75 ergibt die gesuchte Farbe

Die dazu notwendige Interpolationsroutine ist dir ja bekannt.

Gruß Hawkeye
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#7

AW: Farbinterpolation von Zwischenpixel

  Alt 25. Okt 2010, 20:43
Ein Pixel (1x1) soll in (4x4) 16 Pixel aufgeteilt werden
Am besten ist es sich das mal aufzumalen, dann wird es leichter
(siehe Anhang)

Wenn wir jetzt den Farbwert für das kleine Kästchen berechnen wollen, dann müssen wir uns in der Nachbarschaft umsehen. Als Raster nehmen wir aber schon die neue Auflösung.

Als Farbwert ergibt sich somit
Code:
4*A+2*B+2*C+1*D
--------------- = 44.4%*A + 22.2%*B + 22.2%*C + 11.2%*D
       9
Möglich wäre auch eine Betrachtung als genäherter Kreis, wo die Nachbarfelder auf den Diagonalen nur zur Hälfte eingerechnet werden
Code:
3.5*A+1.5*B+1.5*C+0.5*D
----------------------- => 50.0% * A + 21.4%*B + 21.4%*C + 7.2%*D
           7
Man könnte jetzt auch noch den Mittelpunkt doppelt reinzählen
Code:
4.5*A+1.5*B+1.5*C+0.5*D
--------------------- => 56.25%*A + 18.75%*B + 18.75%*C + 6.25%*D
           8
Die Formel ist jetzt nur noch ein wenig Gehirnschmalz und Fleißarbeit
Miniaturansicht angehängter Grafiken
2010-10-25_2021.png  
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)

Geändert von Sir Rufo (25. Okt 2010 um 21:07 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von jfheins
jfheins

Registriert seit: 10. Jun 2004
Ort: Garching (TUM)
4.579 Beiträge
 
#8

AW: Farbinterpolation von Zwischenpixel

  Alt 25. Okt 2010, 20:49
Oder gleich Bikubische Interpolation

=> http://de.wikipedia.org/wiki/Interpolation_(Fotografie)
  Mit Zitat antworten Zitat
shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#9

AW: Farbinterpolation von Zwischenpixel

  Alt 26. Okt 2010, 14:47
@jfheins:
Danke, jetzt weiss ich wie das heisst, was ich da tue:
Bilineare Interpolation

Damit kann ich jetzt Pixel mit Fliesskommakoordinaten auslesen.
Es ist z.B. möglich, die Koordinaten mit einer Sinus-Schwingung zu überlagern
und so ein Bild zu verzerren.
Miniaturansicht angehängter Grafiken
dpsinus.jpg   dpsinus2.jpg  
Angehängte Dateien
Dateityp: pas UFloatCanvas.pas (1,8 KB, 7x aufgerufen)
Andreas
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:16 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz