CMYK --> RGB

Previous  Top  Next

    
 

 

 

Code:

procedure CMYKTORGB(C : byte;

                   M: byte;

                   Y : byte;

                   K : byte;

                   var R : byte;

                   var G : byte;

                   var B : byte);

begin

if (Integer(C) + Integer(K))  255 then MinColor := 255 - K;

C := C - MinColor;

M := M - MinColor;

Y := Y - MinColor;

K := K + MinColor;

end;

 

©Drkb::04106