
% Control Panel Postscript Header

% April 26, 2000  -- fixed for OpenGL version

% August 31, 1994 and September 1, 1994

/lw .35 def

/drawbox {
	/height exch def
	/width exch def
	/lly exch def
	/llx exch def

	/urx {width llx add} def
	/ury {height lly add} def
	
	newpath
	0 setlinewidth
	llx lly moveto
	llx ury lineto
	urx ury lineto
	urx lly lineto
	closepath
	fill
} def

/drawopenbox {
	/height exch def
	/width exch def
	/lly exch def
	/llx exch def

	/urx {width llx add} def
	/ury {height lly add} def
	
	newpath
	0 setgray
	lw setlinewidth
	llx lly moveto
	llx ury lineto
	urx ury lineto
	urx lly lineto
	closepath
	stroke
} def

/setfontsize {
        pop    % ignore argument
        1.8
	/fontsize exch def
	/Helvetica findfont 
	fontsize sqrt 3.5 mul scalefont setfont 
} def

/drawcircle {
	newpath
	0 setlinewidth
	0 360 arc
	fill
} def

/drawopencircle {
	newpath
	lw setlinewidth
	0 360 arc
	stroke
} def


% End of Control Panel Postscript Header


