/* 
 * CSBwraps.psw
 *
 * (c) Copyright 1993-1994 Adobe Systems Incorporated.
 * All rights reserved.
 * 
 * Permission to use, copy, modify, distribute, and sublicense this software
 * and its documentation for any purpose and without fee is hereby granted,
 * provided that the above copyright notices appear in all copies and that
 * both those copyright notices and this permission notice appear in
 * supporting documentation and that the name of Adobe Systems Incorporated
 * not be used in advertising or publicity pertaining to distribution of the
 * software without specific, written prior permission.  No trademark license
 * to use the Adobe trademarks is hereby granted.  If the Adobe trademark
 * "Display PostScript"(tm) is used to describe this software, its
 * functionality or for any other purpose, such use shall be limited to a
 * statement that this software works in conjunction with the Display
 * PostScript system.  Proper trademark attribution to reflect Adobe's
 * ownership of the trademark shall be given whenever any such reference to
 * the Display PostScript system is made.
 * 
 * ADOBE MAKES NO REPRESENTATIONS ABOUT THE SUITABILITY OF THE SOFTWARE FOR
 * ANY PURPOSE.  IT IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY.
 * ADOBE DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL
 * IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
 * NON- INFRINGEMENT OF THIRD PARTY RIGHTS.  IN NO EVENT SHALL ADOBE BE LIABLE
 * TO YOU OR ANY OTHER PARTY FOR ANY SPECIAL, INDIRECT, OR CONSEQUENTIAL
 * DAMAGES OR ANY DAMAGES WHATSOEVER WHETHER IN AN ACTION OF CONTRACT,
 * NEGLIGENCE, STRICT LIABILITY OR ANY OTHER ACTION ARISING OUT OF OR IN
 * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.  ADOBE WILL NOT
 * PROVIDE ANY TRAINING OR OTHER SUPPORT FOR THE SOFTWARE.
 * 
 * Adobe, PostScript, and Display PostScript are trademarks of Adobe Systems
 * Incorporated which may be registered in certain jurisdictions
 * 
 * Author:  Adobe Systems Incorporated
 */

defineps _DPSCColormapMatch(DPSContext ctxt; int colormap | boolean *match)
    currentXgcdrawablecolor	% gc draw x y [....colormap...]
    10 get colormap eq match    % gc draw x y
    pop pop pop pop
endps

defineps _DPSCTriangle(DPSContext ctxt; double h, w)
    newpath
    0 0 moveto
    w 0 rlineto
    0 h rlineto
    closepath
    fill
endps

defineps _DPSCShowFillMe(DPSContext ctxt; char *str)
    /Helvetica-Bold 12 selectfont
    2 5 moveto
    0 setgray
    (str) show
endps

defineps _DPSCShowMessage(DPSContext ctxt; char *str)
    1 setgray
    0 0 1000 1000 rectfill
    /Helvetica-Bold 12 selectfont
    10 2 moveto
    0 setgray
    (str) show
endps

defineps _DPSCRGBBlend(DPSContext ctxt; double x, y, width, height;
		       char *function; int steps)
    gsave
    x y translate
    width steps div
    0 1 steps 1 sub {
	steps div (function) cvx exec setrgbcolor
	dup 0 0 3 -1 roll height rectfill
	dup 0 translate
    } for
    pop
    grestore
endps

defineps _DPSCHSBBlend(DPSContext ctxt; double x, y, width, height;
		       char *function; int steps)
    gsave
    x y translate
    width steps div
    0 1 steps 1 sub {
	steps div (function) cvx exec sethsbcolor
	dup 0 0 3 -1 roll height rectfill
	dup 0 translate
    } for
    pop
    grestore
endps

defineps _DPSCCMYKBlend(DPSContext ctxt; double x, y, width, height;
			char *function; int steps)
    gsave
    x y translate
    width steps div
    0 1 steps 1 sub {
	steps div (function) cvx exec setcmykcolor
	dup 0 0 3 -1 roll height rectfill
	dup 0 translate
    } for
    pop
    grestore
endps

defineps _DPSCGrayBlend(DPSContext ctxt; double x, y, width, height;
			char *function; int steps)
    gsave
    x y translate
    width steps div
    0 1 steps 1 sub {
	steps div (function) cvx exec setgray
	dup 0 0 3 -1 roll height rectfill
	dup 0 translate
    } for
    pop
    grestore
endps

defineps _DPSCGetInvCTM(DPSContext ctxt; | float invctm[6])
    matrix currentmatrix matrix invertmatrix invctm
endps

defineps _DPSCDoRGBColorPalette(DPSContext ctxt; char *func;
				double red, green, blue; double width, height;
				int steps | boolean *success)
    mark {
	gsave
	0 0 translate
	width steps div
	0 1 steps 1 sub {
	    steps div red green blue 4 -1 roll func setrgbcolor
	    dup 0 0 3 -1 roll height rectfill
	    dup 0 translate
	} for
	pop
	grestore
    } stopped not success cleartomark
endps

defineps _DPSCDoCMYKColorPalette(DPSContext ctxt; char *func;
				 double cyan, magenta, yellow, black;
				 double width, height;
				 int steps | boolean *success)
    mark {
	gsave
	0 0 translate
	width steps div
	0 1 steps 1 sub {
	    steps div cyan magenta yellow black 5 -1 roll func setcmykcolor
	    dup 0 0 3 -1 roll height rectfill
	    dup 0 translate
	} for
	pop
	grestore
    } stopped not success cleartomark
endps

defineps _DPSCDoHSBColorPalette(DPSContext ctxt; char *func;
				double hue, sat, bright;
				double width, height;
				int steps | boolean *success)
    mark {
	gsave
	0 0 translate
	width steps div
	0 1 steps 1 sub {
	    steps div hue sat bright 4 -1 roll func sethsbcolor
	    dup 0 0 3 -1 roll height rectfill
	    dup 0 translate
	} for
	pop
	grestore
    } stopped not success cleartomark
endps

defineps _DPSCDoGrayColorPalette(DPSContext ctxt; char *func;
				 double gray; double width, height;
				 int steps | boolean *success)
    mark {
	gsave
	0 0 translate
	width steps div
	0 1 steps 1 sub {
	    steps div gray exch func setgray
	    dup 0 0 3 -1 roll height rectfill
	    dup 0 translate
	} for
	pop
	grestore
    } stopped not success cleartomark
endps


defineps _DPSCDoRGBPalette(DPSContext ctxt; char *func;
			   double width, height;
			   int steps | boolean *success)
    mark {
	gsave
	0 0 translate
	width steps div
	0 1 steps 1 sub {
	    steps div func setrgbcolor
	    dup 0 0 3 -1 roll height rectfill
	    dup 0 translate
	} for
	pop
	grestore
    } stopped not success cleartomark
endps

defineps _DPSCDoCMYKPalette(DPSContext ctxt; char *func;
			    double width, height;
			    int steps | boolean *success)
    mark {
	gsave
	0 0 translate
	width steps div
	0 1 steps 1 sub {
	    steps div func setcmykcolor
	    dup 0 0 3 -1 roll height rectfill
	    dup 0 translate
	} for
	pop
	grestore
    } stopped not success cleartomark
endps

defineps _DPSCDoHSBPalette(DPSContext ctxt; char *func;
			   double width, height;
			   int steps | boolean *success)
    mark {
	gsave
	0 0 translate
	width steps div
	0 1 steps 1 sub {
	    steps div func sethsbcolor
	    dup 0 0 3 -1 roll height rectfill
	    dup 0 translate
	} for
	pop
	grestore
    } stopped not success cleartomark
endps

defineps _DPSCDoGrayPalette(DPSContext ctxt; char *func;
			    double width, height;
			    int steps | boolean *success)
    mark {
	gsave
	0 0 translate
	width steps div
	0 1 steps 1 sub {
	    steps div func setgray
	    dup 0 0 3 -1 roll height rectfill
	    dup 0 translate
	} for
	pop
	grestore
    } stopped not success cleartomark
endps

defineps _DPSCQueryRGBColorPalette(DPSContext ctxt; char *func;
				   double pct, red, green, blue; |
				   float *redOut, *greenOut, *blueOut;
				   boolean *success)
    mark {
	red green blue pct func
    } stopped dup not success {0 0 0} if
    blueOut greenOut redOut cleartomark
endps

defineps _DPSCQueryCMYKColorPalette(DPSContext ctxt; char *func;
				    double pct, cyan, magenta, yellow, black; |
				    float *cyanOut, *magentaOut, *yellowOut,
				    *blackOut; boolean *success)
    mark {
	cyan magenta yellow black pct func
    } stopped dup not success {0 0 0 0} if
    blackOut yellowOut magentaOut cyanOut cleartomark
endps

defineps _DPSCQueryHSBColorPalette(DPSContext ctxt; char *func;
				   double pct, hue, sat, bright; |
				   float *hueOut, *satOut, *brightOut;
				   boolean *success)
    mark {
	hue sat bright pct func
    } stopped dup not success {0 0 0} if
    brightOut satOut hueOut cleartomark
endps

defineps _DPSCQueryGrayColorPalette(DPSContext ctxt; char *func;
				    double pct, gray; |
				    float *grayOut; boolean *success)
    mark {
	gray pct func
    } stopped dup not success {0} if
    grayOut cleartomark
endps


defineps _DPSCQueryRGBPalette(DPSContext ctxt; char *func; double pct; |
			      float *redOut, *greenOut, *blueOut;
			      boolean *success)
    mark {
	pct func
    } stopped dup not success {0 0 0} if
    blueOut greenOut redOut cleartomark
endps

defineps _DPSCQueryCMYKPalette(DPSContext ctxt; char *func; double pct; |
			       float *cyanOut, *magentaOut, *yellowOut,
			       *blackOut; boolean *success)
    mark {
	pct func 
    } stopped dup not success {0 0 0 0} if
    blackOut yellowOut magentaOut cyanOut cleartomark
endps

defineps _DPSCQueryHSBPalette(DPSContext ctxt; char *func; double pct; |
			      float *hueOut, *satOut, *brightOut;
			      boolean *success)
    mark {
	pct func
    } stopped dup not success {0 0 0} if
    brightOut satOut hueOut cleartomark
endps

defineps _DPSCQueryGrayPalette(DPSContext ctxt; char *func; double pct; |
			       float *grayOut; boolean *success)
    mark {
	pct func
    } stopped dup not success {0} if
    grayOut cleartomark
endps