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

% two component colorseparation for laser (c) Copyright Anoto AB 2004

/csp
{
	pop 0	
} bind def

/cspx
{
	exch
	pop 0	
	exch
} bind def

/srgbF
{
	3{3 -1 roll 1 exch sub }repeat

	2 copy
	lt
	{
		3 1 roll
		2 copy
		gt {csp} {cspx} ifelse
	    	3 -1 roll
	}
	{
		3 -1 roll
		2 copy
		gt {csp} {cspx} ifelse
	    	3 1 roll
	}
	ifelse
	
	3 1 roll dup 3 -1 roll dup 4 1 roll add 1.92 gt { 0.04 sub exch 0.04 sub exch } if 3 -1 roll
	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