%
% This file is a product of Sun Microsystems, Inc. and is provided for
% unrestricted use provided that this legend is included on all tape
% media and as a part of the software program in whole or part.  Users
% may copy or modify this file without charge, but are not authorized to
% license or distribute it to anyone else except as part of a product
% or program developed by the user.
% 
% THIS FILE IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
% WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
% PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
% 
% This file is provided with no support and without any obligation on the
% part of Sun Microsystems, Inc. to assist in its use, correction,
% modification or enhancement.
% 
% SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
% INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY THIS FILE
% OR ANY PART THEREOF.
% 
% In no event will Sun Microsystems, Inc. be liable for any lost revenue
% or profits or other special, indirect and consequential damages, even
% if Sun has been advised of the possibility of such damages.
% 
% Sun Microsystems, Inc.
% 2550 Garcia Avenue
% Mountain View, California  94043
%
cdef ps_startdef()  /strings [
cdef ps_sendstr(string s) s
cdef ps_enddef() ] def
	/textheight strings length lineheight mul def
	/maxwidth 0 strings { stringwidth pop max } forall def
	/calcsize {
	    maxwidth lineheight add 32 add
	    textheight lineheight add 32 add
	} def
	/drawtext { initgraphics clippath pathbbox
		    false setprintermatch
		    /Times-Roman findfont lineheight scalefont setfont
		    /height exch def /width exch def clear
		    /y height textheight sub 2 div textheight add lineheight .8 mul sub def
		    strings { center { dup stringwidth pop width exch sub 2 div } 
			      { width maxwidth sub 2 div } ifelse
			      y moveto show
			      /y y lineheight sub def
			    } forall
		  } def
cdef ps_nonstring(w,h)
    /calcsize { w h } def
    /textheight h def
    /maxwidth w def
    /drawtext { } def
cdef ps_title(string s) /programtitle s def
cdef ps_initialize(ps)
	/center false def
	/lineheight ps def
	/Times-Roman findfont lineheight scalefont setfont
	/AC { ( ) print } def
	/round_setup { % - => - Replacements for window operations
	    /FrameLabel programtitle def
	    /IconImage /davinci def
	    /PaintClient {
		gsave
		backgroundcolor setcolor clippath fill
		FrameCanvas setcanvas drawtext
		grestore } def
	    /ShapeFrameCanvas { gsave ParentCanvas setcanvas
		FrameX FrameY translate
		FrameWidth FrameHeight scale
		.5 .5 .5 0 360 arc FrameCanvas setcanvasshape
		grestore } def
	    /ShapeClientCanvas { } def
	    /CreateClientCanvas { } def
	    /PaintFrame { } def
	    /PaintFocus { } def
	} def
	/round_can_def { % - => - set usercanvas & framecanvas
	    win begin
	    /ClientCanvas FrameCanvas store FrameCanvas FrameCanvas
	    end
	    /usercanvas exch def /framecanvas exch def
	    usercanvas setcanvas
	} def
	/square_setup { % - => - Replacements for window operations
	    /FrameLabel programtitle def
	    /IconImage /davinci def
	    /PaintClient { gsave usercanvas setcanvas drawtext grestore } def
	} def
	/square_can_def { % - => - set usercanvas & framecanvas
	    win begin FrameCanvas ClientCanvas end
	    /usercanvas exch def /framecanvas exch def
	    usercanvas setcanvas
	} def
cdef ps_roundatmouse()
	calcsize /h exch def /w exch def
	/win {
	    round_setup
	} w h makewindow def
	win currentmouse h 2 div sub exch w 2 div sub exch showwindow
	round_can_def
cdef ps_roundfixed(x,y)
	calcsize /h exch def /w exch def
	/win {
	    round_setup
	} w h makewindow def
	win x w 2 div sub y h 2 div sub showwindow
	round_can_def
cdef ps_round()
	/win {
	    round_setup
	} makewindowfromuser def
	round_can_def
cdef ps_squareatmouse()
	calcsize /h exch def /w exch def
	/win {
	    square_setup
	} w h makewindow def
	win currentmouse h 2 div sub exch w 2 div sub exch showwindow
	square_can_def
cdef ps_squarefixed(x,y)
	calcsize /h exch def /w exch def
	/win {
	    square_setup
	} w h makewindow def
	win x w 2 div sub y h 2 div sub showwindow
	square_can_def
cdef ps_square()
	/win {
	    square_setup
	} makewindowfromuser def
	square_can_def
cdef ps_drop()
    drop
cdef ps_qdrop()
    qdrop
cdef ps_center() /center true def
cdef ps_drawtext() drawtext
cdef ps_ack() AC