%!PS-Adobe-2.0
%%DocumentFonts: Times-Roman
%%Creator: Axiom
%%CreationDate: today
%%Pages: 1
%%processing (hard) limit: 250 pts or 500 values for the operand stack.
%%EndComments

%------------------------------- prologue -------------------------------%
%-------------------------- support procedures --------------------------%

%--------- first create user dictionary with 100 entries max ------------%
%          (number can be changed to accomodate definitions)             %

100	dict	begin		%% using 100 entries in top level dictionary

/FontHeight     12 def

/inch
        {       72 mul }
        def

% yVal and hVal are necessary because the Xwindow display origin
% is at the upper left corner, while the postscript display
% origin is at the lower left hand corner.

/yVal		%% get Y value -- make upper left corner origin
        {       maxY sub abs }	%% maxY is viewWindow height
        def

/hVal		%% get H value -- used for displaying title text
        {       maxH sub abs }	%% maxH is viewWindow height+titleWindow height
        def

% loads in the font

/loadFont
        {       /Times-Roman findfont FontHeight scalefont setfont }
        def

% draws a rectangle with input operand: 
%		height
%		width
% notice that this function does not "draw" or ink the rectangle.
/drawRect
	{	1 index 1 add 0 rlineto		%% draw first side
                0 exch 1 add neg rlineto	%% draw second side
                1 add neg 0 rlineto		%% draw third side
                closepath }			%% draw fourth side
        def

% create a rectangle with input operand in the view window: 
%		y
%		x
%		height
%		width
% notice that this function does not "draw" or ink the rectangle.
/rectangle
        {       yVal moveto			%% set currentpoint for line
		drawRect }			%% draws the rectangle
        def

% These are global variables that every draw procedure uses
% THe operand should be as follows:
%		viewWindow width
%		viewWindow height
%		title height
/setDim
        {       /maxX exch def			%% width of display
                /maxY exch def			%% height of display
		/titleH exch def		%% height of title
		/maxH maxY titleH add def	%% height of display + title
        } def

%-------------------------- major procedures --------------------------%

/title		%% draws a rectangle around the title of picture
	{	gsave
		newpath
		moveto				%% lower left of title
                titleH 1 add 0 exch rlineto	%% draw first side
                1 add 0 rlineto			%% draw second side
                1 add neg 0 exch rlineto
		begin installGC stroke end	%% draw third side
		grestore }
	def

/drawFrame      %% draw display frame
        {	gsave
                newpath
                maxX maxY 0 0 rectangle
		begin installGC stroke end
                grestore }
        def

% updates the foreground color of existing graphics-context dictionary:
%		foreground color
%		dictionary name
/setForeground
	{	/FGcolor exch put }
	def

% updates the background color of existing graphics-context dictionary:
%		background color
%		dictionary name
/setBackground
	{	/BGcolor exch put }
	def

% updates the line width, line style, cap style, join style of
% existing graphics-context dictionary:
%		dictionary name
%		join style
%		cap style
%		line width
/setLineAttributes
	{	begin
		/JoinStyle exch def
		/CapStyle  exch def
		/LineWidth exch def
		end }
	def

% creates a graphics context dictionary with the following information:
%		/dictionary name
%		foreground color
%		background color
%		line width
%		cap style
%		join style
% this creates different graphical contexts for different drawing functions.
/makeDict
	{	5 dict 2 copy def begin	pop %% with dict name on top of stack
		/FGcolor   exch def	%% define drawing attributes
		/BGcolor   exch def	%% not heavily used
		/LineWidth exch def
		/CapStyle  exch def
		/JoinStyle exch def
		end }
	def

% makes the current dictionary attributes effective
% this function takes the values in the current dictionary to set the context
% these are the values currently being used: foreground, cap, join, and width
/installGC
	{
		FGcolor currentgray ne
		{FGcolor setgray} if		%% foreground color
		CapStyle currentlinecap ne
		{CapStyle setlinecap} if	%% cap style
		JoinStyle currentlinejoin ne
		{JoinStyle setlinejoin} if	%% join style
		LineWidth currentlinewidth ne
		{LineWidth setlinewidth} if }	%% line width
	def

% operand stack configuration in order to use psDrawLine:
%		psDrawLine
%		y0
%		x0
%		y1
%		x1
%		graphics-context dictionary
% this draws a line from (x0, y0) to (x1, y1).

/psDrawLine
        {	gsave
                newpath
                yVal moveto
                yVal lineto
		begin installGC stroke end
		grestore }
        def

% operand stack configuration in order to use psDrawStr:
%		psDrawStr
%		y
%		x
%		string
%		graphics-context dictionary
% this function draws a text string at (x,y).

/psDrawStr
        {	gsave
		newpath
                loadFont
                yVal moveto
		exch begin installGC show end
                grestore }
        def

%-------------------------- script --------------------------%

% 1 inch 1 inch translate

   mark					%% mark bottom of our stack

	0	0	1
	1072693248	0	/globalGC1	makeDict
	0	0	1
	1072693248	0	/globalGC2	makeDict
	0	0	1
	1072693248	0	/trashGC	makeDict
	0	0	1
	1072693248	0	/componentGC	makeDict
	0	0	1
	1072693248	0	/opaqueGC	makeDict
	0	0	1
	1072693248	0	/renderGC	makeDict
	0	0	1
	1072693248	0	/globGC	makeDict
	0	0	1
	1072693248	0	/anotherGC	makeDict
	1	0	1
	1072693248	0	/renderGC	makeDict

    gsave	% save graphics state for clipping path

	1.000000	1.000000	scale

	24	303	300	setDim
	maxX maxY	0 0	rectangle	clip	% set clip path

	globalGC1	0.000000	setForeground
	globGC	0.000000	setForeground
	globalGC1	18	256	253	90	psDrawLine
	globGC	(X)	13	261	psDrawStr
	globalGC1	107.000000	setForeground
	globGC	107.000000	setForeground
	globalGC1	0.000000	setForeground
	globGC	0.000000	setForeground
	globalGC1	281	256	46	90	psDrawLine
	globGC	(Y)	286	261	psDrawStr
	globalGC1	107.000000	setForeground
	globGC	107.000000	setForeground
	globalGC1	0.000000	setForeground
	globGC	0.000000	setForeground
	globalGC1	150	25	150	263	psDrawLine
	globGC	(Z)	155	20	psDrawStr
	globalGC1	107.000000	setForeground
	globGC	107.000000	setForeground
	0	0	0	componentGC	setLineAttributes
	componentGC	0.000000	setForeground
	componentGC	0.000000	setForeground
	componentGC	151	292	138	292	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	165	288	151	292	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	177	282	165	288	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	187	274	177	282	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	195	264	187	274	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	200	253	195	264	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	202	241	200	253	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	200	229	202	241	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	195	218	200	229	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	188	208	195	218	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	178	200	188	208	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	167	194	178	200	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	155	190	167	194	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	143	189	155	190	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	130	190	143	189	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	119	192	130	190	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	109	197	119	192	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	102	204	109	197	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	97	211	102	204	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	95	220	97	211	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	97	228	95	220	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	102	236	97	228	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	111	243	102	236	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	122	248	111	243	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	135	250	122	248	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	149	250	135	250	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	164	247	149	250	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	177	241	164	247	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	189	232	177	241	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	198	222	189	232	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	203	210	198	222	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	205	198	203	210	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	204	186	205	198	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	199	175	204	186	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	192	164	199	175	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	182	156	192	164	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	170	149	182	156	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	157	145	170	149	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	144	143	157	145	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	131	143	144	143	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	118	145	131	143	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	108	150	118	145	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	99	156	108	150	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	94	163	99	156	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	92	171	94	163	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	93	180	92	171	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	98	187	93	180	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	106	194	98	187	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	118	199	106	194	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	132	201	118	199	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	147	201	132	201	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	163	198	147	201	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	178	192	163	198	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	190	184	178	192	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	200	173	190	184	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	207	161	200	173	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	210	149	207	161	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	209	136	210	149	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	204	125	209	136	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	196	114	204	125	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	186	105	196	114	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	173	98	186	105	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	160	93	173	98	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	145	90	160	93	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	131	90	145	90	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	118	91	131	90	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	106	95	118	91	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	97	101	106	95	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	90	107	97	101	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	87	115	90	107	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	88	123	87	115	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	93	131	88	123	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	101	137	93	131	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	114	142	101	137	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	128	144	114	142	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	145	144	128	144	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	162	141	145	144	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	178	135	162	141	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	192	127	178	135	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	203	116	192	127	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	211	104	203	116	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	214	91	211	104	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	214	79	214	91	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	209	66	214	79	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	201	55	209	66	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	190	46	201	55	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	177	38	190	46	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	163	33	177	38	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	147	29	163	33	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	132	28	147	29	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	117	29	132	28	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	104	32	117	29	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	93	37	104	32	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	86	43	93	37	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	82	50	86	43	psDrawLine
	componentGC	0.000000	setForeground
	componentGC	82	57	82	50	psDrawLine

    grestore	% restore graphics state


   cleartomark					%% clearing operand stack

end		%% pops mainDict from dictionary stack

showpage

%-------------------------- end --------------------------%