path: root/src/doc/ps/2DOptSc.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	154	303	154	0	psDrawLine
	unitGC	198	153	198	149	psDrawLine
	unitGC	186	166	(1.00)	(window)	psDrawIStr
	unitGC	242	153	242	149	psDrawLine
	unitGC	230	166	(2.00)	(window)	psDrawIStr
	unitGC	286	153	286	149	psDrawLine
	unitGC	274	166	(3.00)	(window)	psDrawIStr
	unitGC	108	153	108	149	psDrawLine
	unitGC	93	166	(-1.00)	(window)	psDrawIStr
	unitGC	62	153	62	149	psDrawLine
	unitGC	47	166	(-2.00)	(window)	psDrawIStr
	unitGC	16	153	16	149	psDrawLine
	unitGC	1	166	(-3.00)	(window)	psDrawIStr
	unitGC	156	106	152	106	psDrawLine
	unitGC	118	111	(1.00)	(window)	psDrawIStr
	unitGC	156	61	152	61	psDrawLine
	unitGC	118	66	(2.00)	(window)	psDrawIStr
	unitGC	156	16	152	16	psDrawLine
	unitGC	118	21	(3.00)	(window)	psDrawIStr
	unitGC	156	195	152	195	psDrawLine
	unitGC	109	200	(-1.00)	(window)	psDrawIStr
	unitGC	156	239	152	239	psDrawLine
	unitGC	109	244	(-2.00)	(window)	psDrawIStr
	unitGC	156	283	152	283	psDrawLine
	unitGC	109	288	(-3.00)	(window)	psDrawIStr
	globalGC1	13 150	3 3	0 360	14 151	psFillArc
	globalGC1	14	151	14	151	psDrawLine
	globalGC1	13 150	3 3	0 360	14 151	psFillArc
	globalGC1	20	157	14	151	psDrawLine
	globalGC1	19 156	3 3	0 360	20 157	psFillArc
	globalGC1	26	162	20	157	psDrawLine
	globalGC1	25 161	3 3	0 360	26 162	psFillArc
	globalGC1	32	168	26	162	psDrawLine
	globalGC1	31 167	3 3	0 360	32 168	psFillArc
	globalGC1	37	173	32	168	psDrawLine
	globalGC1	36 172	3 3	0 360	37 173	psFillArc
	globalGC1	43	178	37	173	psDrawLine
	globalGC1	42 177	3 3	0 360	43 178	psFillArc
	globalGC1	49	182	43	178	psDrawLine
	globalGC1	48 181	3 3	0 360	49 182	psFillArc
	globalGC1	55	186	49	182	psDrawLine
	globalGC1	54 185	3 3	0 360	55 186	psFillArc
	globalGC1	61	189	55	186	psDrawLine
	globalGC1	60 188	3 3	0 360	61 189	psFillArc
	globalGC1	66	192	61	189	psDrawLine
	globalGC1	65 191	3 3	0 360	66 192	psFillArc
	globalGC1	72	194	66	192	psDrawLine
	globalGC1	71 193	3 3	0 360	72 194	psFillArc
	globalGC1	75	195	72	194	psDrawLine
	globalGC1	74 194	3 3	0 360	75 195	psFillArc
	globalGC1	78	195	75	195	psDrawLine
	globalGC1	77 194	3 3	0 360	78 195	psFillArc
	globalGC1	81	195	78	195	psDrawLine
	globalGC1	80 194	3 3	0 360	81 195	psFillArc
	globalGC1	84	195	81	195	psDrawLine
	globalGC1	83 194	3 3	0 360	84 195	psFillArc
	globalGC1	87	195	84	195	psDrawLine
	globalGC1	86 194	3 3	0 360	87 195	psFillArc
	globalGC1	90	195	87	195	psDrawLine
	globalGC1	89 194	3 3	0 360	90 195	psFillArc
	globalGC1	93	195	90	195	psDrawLine
	globalGC1	92 194	3 3	0 360	93 195	psFillArc
	globalGC1	96	194	93	195	psDrawLine
	globalGC1	95 193	3 3	0 360	96 194	psFillArc
	globalGC1	101	192	96	194	psDrawLine
	globalGC1	100 191	3 3	0 360	101 192	psFillArc
	globalGC1	107	189	101	192	psDrawLine
	globalGC1	106 188	3 3	0 360	107 189	psFillArc
	globalGC1	113	186	107	189	psDrawLine
	globalGC1	112 185	3 3	0 360	113 186	psFillArc
	globalGC1	119	182	113	186	psDrawLine
	globalGC1	118 181	3 3	0 360	119 182	psFillArc
	globalGC1	125	178	119	182	psDrawLine
	globalGC1	124 177	3 3	0 360	125 178	psFillArc
	globalGC1	130	173	125	178	psDrawLine
	globalGC1	129 172	3 3	0 360	130 173	psFillArc
	globalGC1	136	168	130	173	psDrawLine
	globalGC1	135 167	3 3	0 360	136 168	psFillArc
	globalGC1	142	162	136	168	psDrawLine
	globalGC1	141 161	3 3	0 360	142 162	psFillArc
	globalGC1	148	157	142	162	psDrawLine
	globalGC1	147 156	3 3	0 360	148 157	psFillArc
	globalGC1	154	151	148	157	psDrawLine
	globalGC1	153 150	3 3	0 360	154 151	psFillArc
	globalGC1	159	145	154	151	psDrawLine
	globalGC1	158 144	3 3	0 360	159 145	psFillArc
	globalGC1	165	139	159	145	psDrawLine
	globalGC1	164 138	3 3	0 360	165 139	psFillArc
	globalGC1	171	134	165	139	psDrawLine
	globalGC1	170 133	3 3	0 360	171 134	psFillArc
	globalGC1	177	129	171	134	psDrawLine
	globalGC1	176 128	3 3	0 360	177 129	psFillArc
	globalGC1	183	124	177	129	psDrawLine
	globalGC1	182 123	3 3	0 360	183 124	psFillArc
	globalGC1	189	120	183	124	psDrawLine
	globalGC1	188 119	3 3	0 360	189 120	psFillArc
	globalGC1	194	116	189	120	psDrawLine
	globalGC1	193 115	3 3	0 360	194 116	psFillArc
	globalGC1	200	113	194	116	psDrawLine
	globalGC1	199 112	3 3	0 360	200 113	psFillArc
	globalGC1	206	110	200	113	psDrawLine
	globalGC1	205 109	3 3	0 360	206 110	psFillArc
	globalGC1	212	108	206	110	psDrawLine
	globalGC1	211 107	3 3	0 360	212 108	psFillArc
	globalGC1	215	107	212	108	psDrawLine
	globalGC1	214 106	3 3	0 360	215 107	psFillArc
	globalGC1	218	107	215	107	psDrawLine
	globalGC1	217 106	3 3	0 360	218 107	psFillArc
	globalGC1	221	107	218	107	psDrawLine
	globalGC1	220 106	3 3	0 360	221 107	psFillArc
	globalGC1	223	107	221	107	psDrawLine
	globalGC1	222 106	3 3	0 360	223 107	psFillArc
	globalGC1	226	107	223	107	psDrawLine
	globalGC1	225 106	3 3	0 360	226 107	psFillArc
	globalGC1	229	107	226	107	psDrawLine
	globalGC1	228 106	3 3	0 360	229 107	psFillArc
	globalGC1	232	107	229	107	psDrawLine
	globalGC1	231 106	3 3	0 360	232 107	psFillArc
	globalGC1	235	108	232	107	psDrawLine
	globalGC1	234 107	3 3	0 360	235 108	psFillArc
	globalGC1	241	110	235	108	psDrawLine
	globalGC1	240 109	3 3	0 360	241 110	psFillArc
	globalGC1	247	113	241	110	psDrawLine
	globalGC1	246 112	3 3	0 360	247 113	psFillArc
	globalGC1	252	116	247	113	psDrawLine
	globalGC1	251 115	3 3	0 360	252 116	psFillArc
	globalGC1	258	120	252	116	psDrawLine
	globalGC1	257 119	3 3	0 360	258 120	psFillArc
	globalGC1	264	124	258	120	psDrawLine
	globalGC1	263 123	3 3	0 360	264 124	psFillArc
	globalGC1	270	129	264	124	psDrawLine
	globalGC1	269 128	3 3	0 360	270 129	psFillArc
	globalGC1	276	134	270	129	psDrawLine
	globalGC1	275 133	3 3	0 360	276 134	psFillArc
	globalGC1	282	139	276	134	psDrawLine
	globalGC1	281 138	3 3	0 360	282 139	psFillArc
	globalGC1	287	145	282	139	psDrawLine
	globalGC1	286 144	3 3	0 360	287 145	psFillArc
	globalGC1	293	151	287	145	psDrawLine
	globalGC1	292 150	3 3	0 360	293 151	psFillArc

    grestore	% restore graphics state


   cleartomark					%% clearing operand stack

end		%% pops mainDict from dictionary stack

showpage

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