Schwarzanteil eines Pixel ausrechnen

[maximov]

Moin.

Du meint wohl die 'luminosity', bzw anit-luminosity?

Das sollte in etwa so gehen:

Delphi-Quellcode:

var
  color:Prgba;
  R,G,B,
  D,
  Cmax,
  Cmin: double;

begin
  color := @RGB;

  R := color^.r / 255;
  G := color^.g / 255;
  B := color^.b / 255;
  Cmax := Max (R, Max (G, B));
  Cmin := Min (R, Min (G, B));

// calculate luminosity
  L := (Cmax + Cmin) / 2;