lazarus-ccr/components/mbColorLib/RGBCMYKUtils.pas

unit RGBCMYKUtils;

interface

uses
  {$IFDEF FPC}LCLIntf,{$ELSE} Windows,{$ENDIF}
  Graphics, Math;

function CMYtoTColor(C, M, Y: integer): TColor;
procedure RGBtoCMY(clr: TColor; var C, M, Y: integer);
function CMYKToTColor (C, M, Y, K: integer): TColor;
procedure ColorToCMYK(clr: TColor; var C, M, Y, K: integer);
function GetCValue(c: TColor): integer;
function GetMValue(c: TColor): integer;
function GetYValue(c: TColor): integer;
function GetKValue(c: TColor): integer;

implementation

function CMYtoTColor(C, M, Y: integer): TColor;
begin
  Result := RGB(255 - C, 255 - M, 255 - Y);
end;

procedure RGBtoCMY(clr: TColor; var C, M, Y: integer);
begin
  C := 255 - GetRValue(clr);
  M := 255 - GetGValue(clr);
  Y := 255 - GetBValue(clr);
end;

function CMYKToTColor (C, M, Y, K: integer): TColor;
begin
  Result := RGB(255 - (C + K), 255 - (M + K), 255 - (Y + K));
end;

procedure ColorToCMYK(clr: TColor; var C, M, Y, K: integer);
begin
  C := 255 - GetRValue(clr);
  M := 255 - GetGValue(clr);
  Y := 255 - GetBValue(clr);
  K := MinIntValue([C, M, Y]);
  C := C - K;
  M := M - K;
  Y := Y - K;
end;

function GetCValue(c: TColor): integer;
var
  d: integer;
begin
  ColorToCMYK(c, Result, d, d, d);
end;

function GetMValue(c: TColor): integer;
var
  d: integer;
begin
  ColorToCMYK(c, d, Result, d, d);
end;

function GetYValue(c: TColor): integer;
var
  d: integer;
begin
  ColorToCMYK(c, d, d, Result, d);
end;

function GetKValue(c: TColor): integer;
var
  d: integer;
begin
  ColorToCMYK(c, d, d, d, Result);
end;

end.