Grauton Kalkulation

[Iwo Asnet]

"inline" bedeutet nur, das der Compiler versucht, den Funktionsquelltext direkt anstelle des Aufrufes in den Code zu kompilieren. Das erspart Aufruf und Rücksprung, ergo einige CPU-Zyklen. Das Programm wird größer, aber auch schneller.

Soweit ich mich erinnere, habe ich den Grauwert immer durch

Delphi-Quellcode:

Function GetGray(color : TColor) : TColor;
begin
  v := (GetRValue(color) + GetGValue(color) + GetBValue(color)) div 3;
  Result := RGB(v,v,v);
end;

hinbekommen

[EWeiss]

Danke euch allen werde mal schaun was die beste Variante ist.
Mein letztes problem weiss nicht wie ich ptPixels als Array auslegen soll.

Kann mir nicht vorstellen dass das Array sich im ^UINT befindet. Oder?

Einzigste was mir jetzt einfällt die pPixels als Dynamisches Array auszulegen of Cardinal
und die neue länge anhand von nSize zuzuweisen.

gruss

[shmia]

Um die Helligkeit einer Farbe zu ermitteln werden die Rot, Grün und Blau Anteile unterschiedlich bewertet um dem menschlichen Auge möglichst nahe zu kommen.

Mein Code verwendet dazu die Faktoren 61(rot), 174(grün) und 21(blau):

Delphi-Quellcode:

function Intensity(Color: TColor): Integer;
begin
  Color := ColorToRGB(Color);
  Result := GetBValue(Color) * 21      // Blue
    + GetGValue(Color) * 174   // Green
    + GetRValue(Color) * 61;  // Red
  Result := Result shr 8;
end;


function GreyColor(Color: TColor):TColor;
var
   i : Integer;
begin
   i := Intensity(Color);
   Result := RGB(i, i, i);
end;

Die Faktoren 54(rot), 182(grün) und 19(blau) aus dem Codebeispiel im Beitrag#1 dürften ähnliche Ergebnise bringen.
Wenn man alle Farbanteile mit 1/3 einrechnet dürfte das Ergebnis leicht unnatürlich aussehen.

[EWeiss]

Zitat:

@shmia Die Faktoren 54(rot), 182(grün) und 19(blau) aus dem Codebeispiel im Beitrag#1 dürften ähnliche Ergebnise bringen.
Wenn man alle Farbanteile mit 1/3 einrechnet dürfte das Ergebnis leicht unnatürlich aussehen.

Deshalb habe ich auch obigen link zum Color FAQ addiert.
Ein ungefährer wert käme auch nicht in frage

@NamenLozer

Zitat:

Pixels: array of cardinal;

Ahh dann war meine Annahme letztendlich doch korrekt Danke

Zitat:

Hoffe es ist klar

Gut erklärt besser gehts nimmer

Zitat:

Einzigste was mir jetzt einfällt die pPixels als Dynamisches Array auszulegen of Cardinal
und die neue länge anhand von nSize zuzuweisen.

gruss