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

%!IBM Personal Pageprinter (4216) Adapter Program V1.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

	24	259	256	setDim
	maxX maxY	0 0	rectangle	clip	% set clip path

	globalGC1	256	92	0	92	psDrawLine
	globalGC1	129	259	129	0	psDrawLine
	unitGC	185	94	185	90	psDrawLine
	unitGC	173	107	(1.00)	(window)	psDrawIStr
	unitGC	241	94	241	90	psDrawLine
	unitGC	229	107	(2.00)	(window)	psDrawIStr
	unitGC	73	94	73	90	psDrawLine
	unitGC	58	107	(-1.00)	(window)	psDrawIStr
	unitGC	16	94	16	90	psDrawLine
	unitGC	1	107	(-2.00)	(window)	psDrawIStr
	unitGC	131	17	127	17	psDrawLine
	unitGC	93	22	(1.00)	(window)	psDrawIStr
	unitGC	131	166	127	166	psDrawLine
	unitGC	84	171	(-1.00)	(window)	psDrawIStr
	unitGC	131	240	127	240	psDrawLine
	unitGC	84	245	(-2.00)	(window)	psDrawIStr
	globalGC1	96 68	3 3	0 360	97 69	psFillArc
	globalGC1	97	69	97	69	psDrawLine
	globalGC1	96 68	3 3	0 360	97 69	psFillArc
	globalGC1	90	71	97	69	psDrawLine
	globalGC1	89 70	3 3	0 360	90 71	psFillArc
	globalGC1	83	75	90	71	psDrawLine
	globalGC1	82 74	3 3	0 360	83 75	psFillArc
	globalGC1	77	84	83	75	psDrawLine
	globalGC1	76 83	3 3	0 360	77 84	psFillArc
	globalGC1	73	93	77	84	psDrawLine
	globalGC1	72 92	3 3	0 360	73 93	psFillArc
	globalGC1	70	102	73	93	psDrawLine
	globalGC1	69 101	3 3	0 360	70 102	psFillArc
	globalGC1	68	111	70	102	psDrawLine
	globalGC1	67 110	3 3	0 360	68 111	psFillArc
	globalGC1	67	120	68	111	psDrawLine
	globalGC1	66 119	3 3	0 360	67 120	psFillArc
	globalGC1	67	129	67	120	psDrawLine
	globalGC1	66 128	3 3	0 360	67 129	psFillArc
	globalGC1	67	129	67	129	psDrawLine
	globalGC1	66 128	3 3	0 360	67 129	psFillArc
	globalGC1	67	138	67	129	psDrawLine
	globalGC1	66 137	3 3	0 360	67 138	psFillArc
	globalGC1	68	147	67	138	psDrawLine
	globalGC1	67 146	3 3	0 360	68 147	psFillArc
	globalGC1	70	156	68	147	psDrawLine
	globalGC1	69 155	3 3	0 360	70 156	psFillArc
	globalGC1	73	165	70	156	psDrawLine
	globalGC1	72 164	3 3	0 360	73 165	psFillArc
	globalGC1	77	174	73	165	psDrawLine
	globalGC1	76 173	3 3	0 360	77 174	psFillArc
	globalGC1	83	183	77	174	psDrawLine
	globalGC1	82 182	3 3	0 360	83 183	psFillArc
	globalGC1	90	187	83	183	psDrawLine
	globalGC1	89 186	3 3	0 360	90 187	psFillArc
	globalGC1	97	189	90	187	psDrawLine
	globalGC1	96 188	3 3	0 360	97 189	psFillArc
	globalGC1	110	185	97	189	psDrawLine
	globalGC1	109 184	3 3	0 360	110 185	psFillArc
	globalGC1	116	180	110	185	psDrawLine
	globalGC1	115 179	3 3	0 360	116 180	psFillArc
	globalGC1	123	174	116	180	psDrawLine
	globalGC1	122 173	3 3	0 360	123 174	psFillArc
	globalGC1	130	165	123	174	psDrawLine
	globalGC1	129 164	3 3	0 360	130 165	psFillArc
	globalGC1	136	156	130	165	psDrawLine
	globalGC1	135 155	3 3	0 360	136 156	psFillArc
	globalGC1	140	147	136	156	psDrawLine
	globalGC1	139 146	3 3	0 360	140 147	psFillArc
	globalGC1	143	138	140	147	psDrawLine
	globalGC1	142 137	3 3	0 360	143 138	psFillArc
	globalGC1	144	129	143	138	psDrawLine
	globalGC1	143 128	3 3	0 360	144 129	psFillArc
	globalGC1	143	120	144	129	psDrawLine
	globalGC1	142 119	3 3	0 360	143 120	psFillArc
	globalGC1	141	111	143	120	psDrawLine
	globalGC1	140 110	3 3	0 360	141 111	psFillArc
	globalGC1	136	102	141	111	psDrawLine
	globalGC1	135 101	3 3	0 360	136 102	psFillArc
	globalGC1	131	93	136	102	psDrawLine
	globalGC1	130 92	3 3	0 360	131 93	psFillArc
	globalGC1	124	85	131	93	psDrawLine
	globalGC1	123 84	3 3	0 360	124 85	psFillArc
	globalGC1	117	78	124	85	psDrawLine
	globalGC1	116 77	3 3	0 360	117 78	psFillArc
	globalGC1	110	74	117	78	psDrawLine
	globalGC1	109 73	3 3	0 360	110 74	psFillArc
	globalGC1	104	70	110	74	psDrawLine
	globalGC1	103 69	3 3	0 360	104 70	psFillArc
	globalGC1	97	69	104	70	psDrawLine
	globalGC1	96 68	3 3	0 360	97 69	psFillArc
	globalGC1	214 16	3 3	0 360	215 17	psFillArc
	globalGC1	215	17	215	17	psDrawLine
	globalGC1	214 16	3 3	0 360	215 17	psFillArc
	globalGC1	213	21	215	17	psDrawLine
	globalGC1	212 20	3 3	0 360	213 21	psFillArc
	globalGC1	209	30	213	21	psDrawLine
	globalGC1	208 29	3 3	0 360	209 30	psFillArc
	globalGC1	206	39	209	30	psDrawLine
	globalGC1	205 38	3 3	0 360	206 39	psFillArc
	globalGC1	202	48	206	39	psDrawLine
	globalGC1	201 47	3 3	0 360	202 48	psFillArc
	globalGC1	199	57	202	48	psDrawLine
	globalGC1	198 56	3 3	0 360	199 57	psFillArc
	globalGC1	195	66	199	57	psDrawLine
	globalGC1	194 65	3 3	0 360	195 66	psFillArc
	globalGC1	192	75	195	66	psDrawLine
	globalGC1	191 74	3 3	0 360	192 75	psFillArc
	globalGC1	188	84	192	75	psDrawLine
	globalGC1	187 83	3 3	0 360	188 84	psFillArc
	globalGC1	185	93	188	84	psDrawLine
	globalGC1	184 92	3 3	0 360	185 93	psFillArc
	globalGC1	182	102	185	93	psDrawLine
	globalGC1	181 101	3 3	0 360	182 102	psFillArc
	globalGC1	179	111	182	102	psDrawLine
	globalGC1	178 110	3 3	0 360	179 111	psFillArc
	globalGC1	177	120	179	111	psDrawLine
	globalGC1	176 119	3 3	0 360	177 120	psFillArc
	globalGC1	176	129	177	120	psDrawLine
	globalGC1	175 128	3 3	0 360	176 129	psFillArc
	globalGC1	178	142	176	129	psDrawLine
	globalGC1	177 141	3 3	0 360	178 142	psFillArc
	globalGC1	180	151	178	142	psDrawLine
	globalGC1	179 150	3 3	0 360	180 151	psFillArc
	globalGC1	183	160	180	151	psDrawLine
	globalGC1	182 159	3 3	0 360	183 160	psFillArc
	globalGC1	186	169	183	160	psDrawLine
	globalGC1	185 168	3 3	0 360	186 169	psFillArc
	globalGC1	190	178	186	169	psDrawLine
	globalGC1	189 177	3 3	0 360	190 178	psFillArc
	globalGC1	194	187	190	178	psDrawLine
	globalGC1	193 186	3 3	0 360	194 187	psFillArc
	globalGC1	197	196	194	187	psDrawLine
	globalGC1	196 195	3 3	0 360	197 196	psFillArc
	globalGC1	201	205	197	196	psDrawLine
	globalGC1	200 204	3 3	0 360	201 205	psFillArc
	globalGC1	204	214	201	205	psDrawLine
	globalGC1	203 213	3 3	0 360	204 214	psFillArc
	globalGC1	208	223	204	214	psDrawLine
	globalGC1	207 222	3 3	0 360	208 223	psFillArc
	globalGC1	211	232	208	223	psDrawLine
	globalGC1	210 231	3 3	0 360	211 232	psFillArc
	globalGC1	215	241	211	232	psDrawLine
	globalGC1	214 240	3 3	0 360	215 241	psFillArc

    grestore	% restore graphics state


   cleartomark					%% clearing operand stack

end		%% pops mainDict from dictionary stack

showpage

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