% PDFX1A color separation Copyright Anoto AB 2004

/csp
{
	dup
	/mincol exch def 
} bind def

/cspx
{
	exch
	csp
	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{3 -1 roll mincol sub }repeat
	mincol setcmykcolor
} def
/scmykF { setcmykcolor } def