% Control script for PStill to draw only pure white fill areas as 100% black during processing
% Will extract the white color from the source and paint as black layer
% This version will not supress non-white elments but paint them in white

define interceptEOFill() {
	variable colorspace;
	variable cyan, yellow, magenta, black;

	colorspace = currentColorspace();

	(cyan,magenta,yellow,black) = currentCMYKColor();
	
	if (colorspace < 4) {  	 % we check DEVICEGRAY,RGB and CMYK Colorspaces
		if ((black + cyan + magenta + yellow) > 0.00001) {	% only for non white
			setRGBColor(1.0,1.0,1.0); % paint non-white as white
		} else {
			setRGBColor(0.0,0.0,0.0); % paint white as black
		}
	}
}

define interceptFill() {
	variable colorspace;
	variable cyan, yellow, magenta, black;

	colorspace = currentColorspace();

	(cyan,magenta,yellow,black) = currentCMYKColor();
	
	if (colorspace < 4) {  	 % we check DEVICEGRAY,RGB and CMYK Colorspaces
		if ((black + cyan + magenta + yellow) > 0.00001) {	% only for nonwhite
			setRGBColor(1.0,1.0,1.0); % paint non-white as white
		} else {
			setRGBColor(0.0,0.0,0.0); % paint white as black
		}
	}
}


define interceptStroke() {
	variable colorspace;
	variable cyan, yellow, magenta, black;

	colorspace = currentColorspace();

	(cyan,magenta,yellow,black) = currentCMYKColor();
	
	if (colorspace < 4) {  	 % we check DEVICEGRAY,RGB and CMYK Colorspaces
		if ((black + cyan + magenta + yellow) > 0.00001) {	% only for nonwhite
			setRGBColor(1.0,1.0,1.0); % paint non-white as white
		} else {
			setRGBColor(0.0,0.0,0.0); % paint white as black
		}
	}
}

% don't draw images at all

define suppressImages() {
	return 1;
}