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