xhwkclient/XHWK.WKTool/PrintTool/data/prolog/k2cmy.inc

% k to cmy color colorseparation (c) Copyright Anoto AB 2004
/srgbF {3{3 -1 roll 1 exch sub }repeat 3 copy add add 2.97 ge { 3{3 -1 roll 0.01 sub }repeat } if 0 setcmykcolor } bind def
/scmykF { dup dup 6 2 roll add 5 -1 roll exch 5 1 roll add  4 1 roll add 3 1 roll 3{3 -1 roll 1 exch sub dup 0 lt { pop 0 } if }repeat srgbF }bind def