Zitat von
Gerrit89:
richtiger
Ich finde, dass es hauptsächlich deine eigene Meinung ist. Persönlich würde ich es wie Spider schreiben, aber nehmen wir zum Bleistift dizzys Blur-Funktion:
Delphi-Quellcode:
for x := 2 to i.Width-2 do
begin
// Blauwert des Zielpixels aus den Blauwerten der Ausgangsregion basteln
Po^[1] := round(((P1^[4]+P1^[7]+P1^[10] +
P2^[1] + P2^[13] +
P3^[1] + P3^[13] +
P4^[1] + P4^[13] +
P5^[4]+P5^[7]+P5^[10]) / AntAussen) +
((P2^[4]+P2^[7]+P2^[10] +
P3^[4] +P3^[10] +
P4^[4]+P4^[7]+P4^[10]) / AntMitte) +
(P3^[7] / AntInnen));
// Wie bei Blau, jetzt mit grün
Po^[2] := round(((P1^[5]+P1^[8]+P1^[11] +
P2^[2] + P2^[14] +
P3^[2] + P3^[14] +
P4^[2] + P4^[14] +
P5^[5]+P5^[8]+P5^[11]) / AntAussen) +
((P2^[5]+P2^[8]+P2^[11] +
P3^[5] +P3^[11] +
P4^[5]+P4^[8]+P4^[11]) / AntMitte) +
(P3^[8] / AntInnen));
// und bei Rot...
Po^[3] := round((( P1^[6]+P1^[9]+P1^[12] +
P2^[3] + P2^[15] +
P3^[3] + P3^[15] +
P4^[3] + P4^[15] +
P5^[6]+P5^[9]+P5^[12]) / AntAussen) +
((P2^[6]+P2^[9]+P2^[12] +
P3^[6] +P3^[12] +
P4^[6]+P4^[9]+P4^[12]) / AntMitte) +
(P3^[9] / AntInnen));
IMO ist das die einzig sinnvolle Darstellung.