RGB/CMK/CMYK conversions

[himitsu]

Zitat von WojTec:

Where is bug?

Total falsche Formeln?

Zitat:

Delphi-Quellcode:

procedure _RGBToCMY(const R, G, B: Byte; out C, M, Y: Single);
begin
  C := 1 - (R / 255);
  M := 1 - (G / 255);
  Y := 1 - (B / 255);
end;

procedure _CMYToRGB(const C, M, Y: Single; out R, G, B: Byte);
begin
  R := Round((1 - C) * 255);
  G := Round((1 - M) * 255);
  B := Round((1 - Y) * 255);
end;

Cyan <=> Red
Mngenta <=> Green
Yellow <=> Blue

Aber eigentlich ist es so:

Cyan <=> Blue und Green
Mangenta <=> Blue und Red
Yellow <=> Red und Green