path: root/src/doc/ps/2DpacA.ps

%!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 psDrawIStr:
%		psDrawIStr
%		window type: title or window
%		string
%		y
%		x
%		graphics-context dictionary
% it draws a text string in foreground color on top of bounding box of
% string, which is in background color.

/psDrawIStr
        {	gsave
		newpath					%% for rectangle
                loadFont

		/window exch def			%% get window type

                %% draw bounding box with background color
                /str exch def				%% get text string
                str stringwidth pop 1 sub               %% width
                FontHeight 1 sub                        %% height
                currentfont begin			%% get font height
                        FontBBox
                end
                /ypos exch def pop			%% define ypos
                neg ypos add /offset exch def pop
                /offset ypos offset div FontHeight mul def %% define offset
                /h exch def /w exch def			%% define h
                /y0 exch def				%% define y0
                /x0 exch def				%% define x0
                w h x0 y0 offset sub
		window (title) eq
		{hVal moveto drawRect}			%% draws in title window
		{rectangle} ifelse			%% draws in view window
		begin
                BGcolor setgray fill	%% set background box color

		x0 y0
		window (title) eq 
                {hVal}					%% print title text
                {yVal} ifelse				%% print window text
		moveto str 
                FGcolor setgray show			%% set text color
		end
                grestore }
        def

% operand stack configuration in order to use psFillArc:
%		psFillArc
%		y center of rectangle
%		x center of rectangle
%		angle2
%		angle1
%		width
%		height
%		y
%		x
%		graphics-context dictionary
% this draws and fills an arc whose origin is at x, y, and whose width
% and height specifies the rectangle which encases the arc.
% Origin is at upper left corner of rectangle.
% This function uses "scale" to make cricles and ellipses.
/psFillArc
        {	gsave
                newpath
		yVal moveto
                /sfactor 4 index 4 index div def
                1 sfactor scale
                6 5 roll			%%	 x on top of stack
                3 index 2 div add               %% define x origin
                6 5 roll			%%	 y on top of stack
                6 5 roll			%%	 h on top of stack
                2 div add yVal sfactor div      %% define y origin
                5 4 roll			%%	 w on top of stack
                2 div                           %% define radius
                5 3 roll			%%	 a1 a2 now on top
                1 index add
                arcn                            %% draw clockwise arc
                begin installGC fill end	%% fills with foreground color
                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	/globGC	makeDict
	0	0	1
	1072693248	0	/anotherGC	makeDict
	0	0	1
	1072693248	0	/graphGC	makeDict
	0	0	1
	1072693248	0	/unitGC	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	300	151	0	151	psDrawLine
	globalGC1	39	303	39	0	psDrawLine
	unitGC	88	153	88	149	psDrawLine
	unitGC	76	166	(2.19)	(window)	psDrawIStr
	unitGC	137	153	137	149	psDrawLine
	unitGC	125	166	(4.37)	(window)	psDrawIStr
	unitGC	186	153	186	149	psDrawLine
	unitGC	174	166	(6.56)	(window)	psDrawIStr
	unitGC	235	153	235	149	psDrawLine
	unitGC	223	166	(8.74)	(window)	psDrawIStr
	unitGC	284	153	284	149	psDrawLine
	unitGC	269	166	(10.93)	(window)	psDrawIStr
	unitGC	41	104	37	104	psDrawLine
	unitGC	3	109	(2.39)	(window)	psDrawIStr
	unitGC	41	57	37	57	psDrawLine
	unitGC	3	62	(4.78)	(window)	psDrawIStr
	unitGC	41	10	37	10	psDrawLine
	unitGC	3	15	(7.18)	(window)	psDrawIStr
	unitGC	41	197	37	197	psDrawLine
	unitGC	-6	202	(-2.39)	(window)	psDrawIStr
	unitGC	41	243	37	243	psDrawLine
	unitGC	-6	248	(-4.78)	(window)	psDrawIStr
	unitGC	41	289	37	289	psDrawLine
	unitGC	-6	294	(-7.18)	(window)	psDrawIStr
	globalGC1	147 35	3 3	0 360	148 36	psFillArc
	globalGC1	148	36	148	36	psDrawLine
	globalGC1	147 35	3 3	0 360	148 36	psFillArc
	globalGC1	138	36	148	36	psDrawLine
	globalGC1	137 35	3 3	0 360	138 36	psFillArc
	globalGC1	127	37	138	36	psDrawLine
	globalGC1	126 36	3 3	0 360	127 37	psFillArc
	globalGC1	116	39	127	37	psDrawLine
	globalGC1	115 38	3 3	0 360	116 39	psFillArc
	globalGC1	105	42	116	39	psDrawLine
	globalGC1	104 41	3 3	0 360	105 42	psFillArc
	globalGC1	94	46	105	42	psDrawLine
	globalGC1	93 45	3 3	0 360	94 46	psFillArc
	globalGC1	84	52	94	46	psDrawLine
	globalGC1	83 51	3 3	0 360	84 52	psFillArc
	globalGC1	73	58	84	52	psDrawLine
	globalGC1	72 57	3 3	0 360	73 58	psFillArc
	globalGC1	61	68	73	58	psDrawLine
	globalGC1	60 67	3 3	0 360	61 68	psFillArc
	globalGC1	53	77	61	68	psDrawLine
	globalGC1	52 76	3 3	0 360	53 77	psFillArc
	globalGC1	46	86	53	77	psDrawLine
	globalGC1	45 85	3 3	0 360	46 86	psFillArc
	globalGC1	41	95	46	86	psDrawLine
	globalGC1	40 94	3 3	0 360	41 95	psFillArc
	globalGC1	37	105	41	95	psDrawLine
	globalGC1	36 104	3 3	0 360	37 105	psFillArc
	globalGC1	35	114	37	105	psDrawLine
	globalGC1	34 113	3 3	0 360	35 114	psFillArc
	globalGC1	33	123	35	114	psDrawLine
	globalGC1	32 122	3 3	0 360	33 123	psFillArc
	globalGC1	33	132	33	123	psDrawLine
	globalGC1	32 131	3 3	0 360	33 132	psFillArc
	globalGC1	33	132	33	132	psDrawLine
	globalGC1	32 131	3 3	0 360	33 132	psFillArc
	globalGC1	33	142	33	132	psDrawLine
	globalGC1	32 141	3 3	0 360	33 142	psFillArc
	globalGC1	34	151	33	142	psDrawLine
	globalGC1	33 150	3 3	0 360	34 151	psFillArc
	globalGC1	34	151	34	151	psDrawLine
	globalGC1	33 150	3 3	0 360	34 151	psFillArc
	globalGC1	33	160	34	151	psDrawLine
	globalGC1	32 159	3 3	0 360	33 160	psFillArc
	globalGC1	33	170	33	160	psDrawLine
	globalGC1	32 169	3 3	0 360	33 170	psFillArc
	globalGC1	33	170	33	170	psDrawLine
	globalGC1	32 169	3 3	0 360	33 170	psFillArc
	globalGC1	33	179	33	170	psDrawLine
	globalGC1	32 178	3 3	0 360	33 179	psFillArc
	globalGC1	35	188	33	179	psDrawLine
	globalGC1	34 187	3 3	0 360	35 188	psFillArc
	globalGC1	37	198	35	188	psDrawLine
	globalGC1	36 197	3 3	0 360	37 198	psFillArc
	globalGC1	41	207	37	198	psDrawLine
	globalGC1	40 206	3 3	0 360	41 207	psFillArc
	globalGC1	46	216	41	207	psDrawLine
	globalGC1	45 215	3 3	0 360	46 216	psFillArc
	globalGC1	53	225	46	216	psDrawLine
	globalGC1	52 224	3 3	0 360	53 225	psFillArc
	globalGC1	62	235	53	225	psDrawLine
	globalGC1	61 234	3 3	0 360	62 235	psFillArc
	globalGC1	72	243	62	235	psDrawLine
	globalGC1	71 242	3 3	0 360	72 243	psFillArc
	globalGC1	83	250	72	243	psDrawLine
	globalGC1	82 249	3 3	0 360	83 250	psFillArc
	globalGC1	94	255	83	250	psDrawLine
	globalGC1	93 254	3 3	0 360	94 255	psFillArc
	globalGC1	105	260	94	255	psDrawLine
	globalGC1	104 259	3 3	0 360	105 260	psFillArc
	globalGC1	116	263	105	260	psDrawLine
	globalGC1	115 262	3 3	0 360	116 263	psFillArc
	globalGC1	126	265	116	263	psDrawLine
	globalGC1	125 264	3 3	0 360	126 265	psFillArc
	globalGC1	137	266	126	265	psDrawLine
	globalGC1	136 265	3 3	0 360	137 266	psFillArc
	globalGC1	148	266	137	266	psDrawLine
	globalGC1	147 265	3 3	0 360	148 266	psFillArc
	globalGC1	152	266	148	266	psDrawLine
	globalGC1	151 265	3 3	0 360	152 266	psFillArc
	globalGC1	163	266	152	266	psDrawLine
	globalGC1	162 265	3 3	0 360	163 266	psFillArc
	globalGC1	173	264	163	266	psDrawLine
	globalGC1	172 263	3 3	0 360	173 264	psFillArc
	globalGC1	184	262	173	264	psDrawLine
	globalGC1	183 261	3 3	0 360	184 262	psFillArc
	globalGC1	195	259	184	262	psDrawLine
	globalGC1	194 258	3 3	0 360	195 259	psFillArc
	globalGC1	206	254	195	259	psDrawLine
	globalGC1	205 253	3 3	0 360	206 254	psFillArc
	globalGC1	217	249	206	254	psDrawLine
	globalGC1	216 248	3 3	0 360	217 249	psFillArc
	globalGC1	227	242	217	249	psDrawLine
	globalGC1	226 241	3 3	0 360	227 242	psFillArc
	globalGC1	238	234	227	242	psDrawLine
	globalGC1	237 233	3 3	0 360	238 234	psFillArc
	globalGC1	248	225	238	234	psDrawLine
	globalGC1	247 224	3 3	0 360	248 225	psFillArc
	globalGC1	256	216	248	225	psDrawLine
	globalGC1	255 215	3 3	0 360	256 216	psFillArc
	globalGC1	263	207	256	216	psDrawLine
	globalGC1	262 206	3 3	0 360	263 207	psFillArc
	globalGC1	268	197	263	207	psDrawLine
	globalGC1	267 196	3 3	0 360	268 197	psFillArc
	globalGC1	272	188	268	197	psDrawLine
	globalGC1	271 187	3 3	0 360	272 188	psFillArc
	globalGC1	275	179	272	188	psDrawLine
	globalGC1	274 178	3 3	0 360	275 179	psFillArc
	globalGC1	277	170	275	179	psDrawLine
	globalGC1	276 169	3 3	0 360	277 170	psFillArc
	globalGC1	279	160	277	170	psDrawLine
	globalGC1	278 159	3 3	0 360	279 160	psFillArc
	globalGC1	279	151	279	160	psDrawLine
	globalGC1	278 150	3 3	0 360	279 151	psFillArc
	globalGC1	279	148	279	151	psDrawLine
	globalGC1	278 147	3 3	0 360	279 148	psFillArc
	globalGC1	278	139	279	148	psDrawLine
	globalGC1	277 138	3 3	0 360	278 139	psFillArc
	globalGC1	277	129	278	139	psDrawLine
	globalGC1	276 128	3 3	0 360	277 129	psFillArc
	globalGC1	274	120	277	129	psDrawLine
	globalGC1	273 119	3 3	0 360	274 120	psFillArc
	globalGC1	271	111	274	120	psDrawLine
	globalGC1	270 110	3 3	0 360	271 111	psFillArc
	globalGC1	266	102	271	111	psDrawLine
	globalGC1	265 101	3 3	0 360	266 102	psFillArc
	globalGC1	261	92	266	102	psDrawLine
	globalGC1	260 91	3 3	0 360	261 92	psFillArc
	globalGC1	254	83	261	92	psDrawLine
	globalGC1	253 82	3 3	0 360	254 83	psFillArc
	globalGC1	245	74	254	83	psDrawLine
	globalGC1	244 73	3 3	0 360	245 74	psFillArc
	globalGC1	234	65	245	74	psDrawLine
	globalGC1	233 64	3 3	0 360	234 65	psFillArc
	globalGC1	224	57	234	65	psDrawLine
	globalGC1	223 56	3 3	0 360	224 57	psFillArc
	globalGC1	213	51	224	57	psDrawLine
	globalGC1	212 50	3 3	0 360	213 51	psFillArc
	globalGC1	202	46	213	51	psDrawLine
	globalGC1	201 45	3 3	0 360	202 46	psFillArc
	globalGC1	191	42	202	46	psDrawLine
	globalGC1	190 41	3 3	0 360	191 42	psFillArc
	globalGC1	180	39	191	42	psDrawLine
	globalGC1	179 38	3 3	0 360	180 39	psFillArc
	globalGC1	170	37	180	39	psDrawLine
	globalGC1	169 36	3 3	0 360	170 37	psFillArc
	globalGC1	159	36	170	37	psDrawLine
	globalGC1	158 35	3 3	0 360	159 36	psFillArc
	globalGC1	148	36	159	36	psDrawLine
	globalGC1	147 35	3 3	0 360	148 36	psFillArc
	globalGC1	103 111	3 3	0 360	104 112	psFillArc
	globalGC1	104	112	104	112	psDrawLine
	globalGC1	103 111	3 3	0 360	104 112	psFillArc
	globalGC1	100	112	104	112	psDrawLine
	globalGC1	99 111	3 3	0 360	100 112	psFillArc
	globalGC1	90	114	100	112	psDrawLine
	globalGC1	89 113	3 3	0 360	90 114	psFillArc
	globalGC1	79	117	90	114	psDrawLine
	globalGC1	78 116	3 3	0 360	79 117	psFillArc
	globalGC1	68	123	79	117	psDrawLine
	globalGC1	67 122	3 3	0 360	68 123	psFillArc
	globalGC1	58	132	68	123	psDrawLine
	globalGC1	57 131	3 3	0 360	58 132	psFillArc
	globalGC1	52	142	58	132	psDrawLine
	globalGC1	51 141	3 3	0 360	52 142	psFillArc
	globalGC1	50	151	52	142	psDrawLine
	globalGC1	49 150	3 3	0 360	50 151	psFillArc
	globalGC1	50	155	50	151	psDrawLine
	globalGC1	49 154	3 3	0 360	50 155	psFillArc
	globalGC1	53	164	50	155	psDrawLine
	globalGC1	52 163	3 3	0 360	53 164	psFillArc
	globalGC1	61	173	53	164	psDrawLine
	globalGC1	60 172	3 3	0 360	61 173	psFillArc
	globalGC1	72	181	61	173	psDrawLine
	globalGC1	71 180	3 3	0 360	72 181	psFillArc
	globalGC1	83	186	72	181	psDrawLine
	globalGC1	82 185	3 3	0 360	83 186	psFillArc
	globalGC1	93	189	83	186	psDrawLine
	globalGC1	92 188	3 3	0 360	93 189	psFillArc
	globalGC1	104	190	93	189	psDrawLine
	globalGC1	103 189	3 3	0 360	104 190	psFillArc
	globalGC1	106	190	104	190	psDrawLine
	globalGC1	105 189	3 3	0 360	106 190	psFillArc
	globalGC1	117	189	106	190	psDrawLine
	globalGC1	116 188	3 3	0 360	117 189	psFillArc
	globalGC1	127	185	117	189	psDrawLine
	globalGC1	126 184	3 3	0 360	127 185	psFillArc
	globalGC1	138	179	127	185	psDrawLine
	globalGC1	137 178	3 3	0 360	138 179	psFillArc
	globalGC1	147	170	138	179	psDrawLine
	globalGC1	146 169	3 3	0 360	147 170	psFillArc
	globalGC1	151	160	147	170	psDrawLine
	globalGC1	150 159	3 3	0 360	151 160	psFillArc
	globalGC1	153	151	151	160	psDrawLine
	globalGC1	152 150	3 3	0 360	153 151	psFillArc
	globalGC1	152	142	153	151	psDrawLine
	globalGC1	151 141	3 3	0 360	152 142	psFillArc
	globalGC1	147	133	152	142	psDrawLine
	globalGC1	146 132	3 3	0 360	147 133	psFillArc
	globalGC1	137	122	147	133	psDrawLine
	globalGC1	136 121	3 3	0 360	137 122	psFillArc
	globalGC1	126	116	137	122	psDrawLine
	globalGC1	125 115	3 3	0 360	126 116	psFillArc
	globalGC1	115	113	126	116	psDrawLine
	globalGC1	114 112	3 3	0 360	115 113	psFillArc
	globalGC1	104	112	115	113	psDrawLine
	globalGC1	103 111	3 3	0 360	104 112	psFillArc

    grestore	% restore graphics state


   cleartomark					%% clearing operand stack

end		%% pops mainDict from dictionary stack

showpage

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