RGB --> CMYK

Previous  Top  Next

    
 

 

 

Code:

procedure RGBTOCMYK(R : byte;

                   G : byte;

                   B : byte;

                   var C : byte;

                   var M : byte;

                   var Y : byte;

                   var K : byte);

begin

C := 255 - R;

M := 255 - G;

Y := 255 - B;

if0 then

   begin

     c := c - k;

     m := m - k;

     y := y - k;

   end;

end;

 

©Drkb::04105