Schwarz = Schwarz oder doch nur 80% Schwarz?

[shmia]

Folgende Funktion gibt die Helligkeit als Wert zwischen 0 und 255 zurück.
Die einzelnen Farbanteile werden unterschiedlich stark gewichtet (menschliches Auge ist grünempfindlich).

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;

Wenn also die Itensität grösser als 0.2 * 255 ist, das ist der Punkt heller als "80% schwarz".