如何实现RGB到CYMK颜色模式之间的转换?

Question

如何实现RGB到CYMK颜色模式之间的转换?

Answer 1

=====================================================
  // R, G, B, C, M, Y, K each IN [0.0 .. 1.0]
  PROCEDURE CMYKtoRGB(CONST C,M,Y,K:  TReal; VAR   R,G,B:  TReal);
  BEGIN
    R := 1.0 - (C + K);
    G := 1.0 - (M + K);
    B := 1.0 - (Y + K)
  END {CMYtoRGB};  // R, G, B, C, M, Y each IN [0.0 .. 1.0]
  PROCEDURE RGBToCMYK(CONST R,G,B:  TReal;  VAR C,M,Y,K:  TReal);
  BEGIN
    RGBtoCMY(R,G,B, C,M,Y);
    K := MinValue([C, M, Y]);
    C := C - K;
    M := M - K;
    Y := Y - K
  END {RGBtoCMYK};