path: root/src/doc/ps/modbess.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	276	300	setDim
	maxX maxY	0 0	rectangle	clip	% set clip path

	globalGC1	300	85	0	85	psDrawLine
	globalGC1	150	276	150	0	psDrawLine
	unitGC	150	87	150	83	psDrawLine
	unitGC	138	100	(0.00)	(window)	psDrawIStr
	unitGC	203	87	203	83	psDrawLine
	unitGC	191	100	(5.00)	(window)	psDrawIStr
	unitGC	256	87	256	83	psDrawLine
	unitGC	241	100	(10.00)	(window)	psDrawIStr
	unitGC	96	87	96	83	psDrawLine
	unitGC	81	100	(-5.00)	(window)	psDrawIStr
	unitGC	42	87	42	83	psDrawLine
	unitGC	24	100	(-10.00)	(window)	psDrawIStr
	unitGC	152	27	148	27	psDrawLine
	unitGC	105	32	(20.00)	(window)	psDrawIStr
	unitGC	152	142	148	142	psDrawLine
	unitGC	96	147	(-20.00)	(window)	psDrawIStr
	unitGC	152	199	148	199	psDrawLine
	unitGC	96	204	(-40.00)	(window)	psDrawIStr
	unitGC	152	256	148	256	psDrawLine
	unitGC	96	261	(-60.00)	(window)	psDrawIStr
	globalGC1	19 84	3 3	0 360	20 85	psFillArc
	globalGC1	20	85	20	85	psDrawLine
	globalGC1	19 84	3 3	0 360	20 85	psFillArc
	globalGC1	21	118	20	85	psDrawLine
	globalGC1	20 117	3 3	0 360	21 118	psFillArc
	globalGC1	21	147	21	118	psDrawLine
	globalGC1	20 146	3 3	0 360	21 147	psFillArc
	globalGC1	21	173	21	147	psDrawLine
	globalGC1	20 172	3 3	0 360	21 173	psFillArc
	globalGC1	22	195	21	173	psDrawLine
	globalGC1	21 194	3 3	0 360	22 195	psFillArc
	globalGC1	22	230	22	195	psDrawLine
	globalGC1	21 229	3 3	0 360	22 230	psFillArc
	globalGC1	23	252	22	230	psDrawLine
	globalGC1	22 251	3 3	0 360	23 252	psFillArc
	globalGC1	23	259	23	252	psDrawLine
	globalGC1	22 258	3 3	0 360	23 259	psFillArc
	globalGC1	24	264	23	259	psDrawLine
	globalGC1	23 263	3 3	0 360	24 264	psFillArc
	globalGC1	24	265	24	264	psDrawLine
	globalGC1	23 264	3 3	0 360	24 265	psFillArc
	globalGC1	24	266	24	265	psDrawLine
	globalGC1	23 265	3 3	0 360	24 266	psFillArc
	globalGC1	24	266	24	266	psDrawLine
	globalGC1	23 265	3 3	0 360	24 266	psFillArc
	globalGC1	24	266	24	266	psDrawLine
	globalGC1	23 265	3 3	0 360	24 266	psFillArc
	globalGC1	24	265	24	266	psDrawLine
	globalGC1	23 264	3 3	0 360	24 265	psFillArc
	globalGC1	25	263	24	265	psDrawLine
	globalGC1	24 262	3 3	0 360	25 263	psFillArc
	globalGC1	25	259	25	263	psDrawLine
	globalGC1	24 258	3 3	0 360	25 259	psFillArc
	globalGC1	26	246	25	259	psDrawLine
	globalGC1	25 245	3 3	0 360	26 246	psFillArc
	globalGC1	26	228	26	246	psDrawLine
	globalGC1	25 227	3 3	0 360	26 228	psFillArc
	globalGC1	27	208	26	228	psDrawLine
	globalGC1	26 207	3 3	0 360	27 208	psFillArc
	globalGC1	28	186	27	208	psDrawLine
	globalGC1	27 185	3 3	0 360	28 186	psFillArc
	globalGC1	28	163	28	186	psDrawLine
	globalGC1	27 162	3 3	0 360	28 163	psFillArc
	globalGC1	29	141	28	163	psDrawLine
	globalGC1	28 140	3 3	0 360	29 141	psFillArc
	globalGC1	30	120	29	141	psDrawLine
	globalGC1	29 119	3 3	0 360	30 120	psFillArc
	globalGC1	30	101	30	120	psDrawLine
	globalGC1	29 100	3 3	0 360	30 101	psFillArc
	globalGC1	31	85	30	101	psDrawLine
	globalGC1	30 84	3 3	0 360	31 85	psFillArc
	globalGC1	32	61	31	85	psDrawLine
	globalGC1	31 60	3 3	0 360	32 61	psFillArc
	globalGC1	33	53	32	61	psDrawLine
	globalGC1	32 52	3 3	0 360	33 53	psFillArc
	globalGC1	34	48	33	53	psDrawLine
	globalGC1	33 47	3 3	0 360	34 48	psFillArc
	globalGC1	34	47	34	48	psDrawLine
	globalGC1	33 46	3 3	0 360	34 47	psFillArc
	globalGC1	34	45	34	47	psDrawLine
	globalGC1	33 44	3 3	0 360	34 45	psFillArc
	globalGC1	35	45	34	45	psDrawLine
	globalGC1	34 44	3 3	0 360	35 45	psFillArc
	globalGC1	35	45	35	45	psDrawLine
	globalGC1	34 44	3 3	0 360	35 45	psFillArc
	globalGC1	35	45	35	45	psDrawLine
	globalGC1	34 44	3 3	0 360	35 45	psFillArc
	globalGC1	36	46	35	45	psDrawLine
	globalGC1	35 45	3 3	0 360	36 46	psFillArc
	globalGC1	36	49	36	46	psDrawLine
	globalGC1	35 48	3 3	0 360	36 49	psFillArc
	globalGC1	39	67	36	49	psDrawLine
	globalGC1	38 66	3 3	0 360	39 67	psFillArc
	globalGC1	42	85	39	67	psDrawLine
	globalGC1	41 84	3 3	0 360	42 85	psFillArc
	globalGC1	43	91	42	85	psDrawLine
	globalGC1	42 90	3 3	0 360	43 91	psFillArc
	globalGC1	44	93	43	91	psDrawLine
	globalGC1	43 92	3 3	0 360	44 93	psFillArc
	globalGC1	44	94	44	93	psDrawLine
	globalGC1	43 93	3 3	0 360	44 94	psFillArc
	globalGC1	45	95	44	94	psDrawLine
	globalGC1	44 94	3 3	0 360	45 95	psFillArc
	globalGC1	46	95	45	95	psDrawLine
	globalGC1	45 94	3 3	0 360	46 95	psFillArc
	globalGC1	47	94	46	95	psDrawLine
	globalGC1	46 93	3 3	0 360	47 94	psFillArc
	globalGC1	47	94	47	94	psDrawLine
	globalGC1	46 93	3 3	0 360	47 94	psFillArc
	globalGC1	49	92	47	94	psDrawLine
	globalGC1	48 91	3 3	0 360	49 92	psFillArc
	globalGC1	50	89	49	92	psDrawLine
	globalGC1	49 88	3 3	0 360	50 89	psFillArc
	globalGC1	51	87	50	89	psDrawLine
	globalGC1	50 86	3 3	0 360	51 87	psFillArc
	globalGC1	53	85	51	87	psDrawLine
	globalGC1	52 84	3 3	0 360	53 85	psFillArc
	globalGC1	53	84	53	85	psDrawLine
	globalGC1	52 83	3 3	0 360	53 84	psFillArc
	globalGC1	54	83	53	84	psDrawLine
	globalGC1	53 82	3 3	0 360	54 83	psFillArc
	globalGC1	55	83	54	83	psDrawLine
	globalGC1	54 82	3 3	0 360	55 83	psFillArc
	globalGC1	55	83	55	83	psDrawLine
	globalGC1	54 82	3 3	0 360	55 83	psFillArc
	globalGC1	57	82	55	83	psDrawLine
	globalGC1	56 81	3 3	0 360	57 82	psFillArc
	globalGC1	58	82	57	82	psDrawLine
	globalGC1	57 81	3 3	0 360	58 82	psFillArc
	globalGC1	59	83	58	82	psDrawLine
	globalGC1	58 82	3 3	0 360	59 83	psFillArc
	globalGC1	61	84	59	83	psDrawLine
	globalGC1	60 83	3 3	0 360	61 84	psFillArc
	globalGC1	63	85	61	84	psDrawLine
	globalGC1	62 84	3 3	0 360	63 85	psFillArc
	globalGC1	65	85	63	85	psDrawLine
	globalGC1	64 84	3 3	0 360	65 85	psFillArc
	globalGC1	66	85	65	85	psDrawLine
	globalGC1	65 84	3 3	0 360	66 85	psFillArc
	globalGC1	67	85	66	85	psDrawLine
	globalGC1	66 84	3 3	0 360	67 85	psFillArc
	globalGC1	69	85	67	85	psDrawLine
	globalGC1	68 84	3 3	0 360	69 85	psFillArc
	globalGC1	71	85	69	85	psDrawLine
	globalGC1	70 84	3 3	0 360	71 85	psFillArc
	globalGC1	74	84	71	85	psDrawLine
	globalGC1	73 83	3 3	0 360	74 84	psFillArc
	globalGC1	79	83	74	84	psDrawLine
	globalGC1	78 82	3 3	0 360	79 83	psFillArc
	globalGC1	85	83	79	83	psDrawLine
	globalGC1	84 82	3 3	0 360	85 83	psFillArc
	globalGC1	90	81	85	83	psDrawLine
	globalGC1	89 80	3 3	0 360	90 81	psFillArc
	globalGC1	96	79	90	81	psDrawLine
	globalGC1	95 78	3 3	0 360	96 79	psFillArc
	globalGC1	101	75	96	79	psDrawLine
	globalGC1	100 74	3 3	0 360	101 75	psFillArc
	globalGC1	106	70	101	75	psDrawLine
	globalGC1	105 69	3 3	0 360	106 70	psFillArc
	globalGC1	112	64	106	70	psDrawLine
	globalGC1	111 63	3 3	0 360	112 64	psFillArc
	globalGC1	117	56	112	64	psDrawLine
	globalGC1	116 55	3 3	0 360	117 56	psFillArc
	globalGC1	123	46	117	56	psDrawLine
	globalGC1	122 45	3 3	0 360	123 46	psFillArc
	globalGC1	128	35	123	46	psDrawLine
	globalGC1	127 34	3 3	0 360	128 35	psFillArc
	globalGC1	133	25	128	35	psDrawLine
	globalGC1	132 24	3 3	0 360	133 25	psFillArc
	globalGC1	139	16	133	25	psDrawLine
	globalGC1	138 15	3 3	0 360	139 16	psFillArc
	globalGC1	141	12	139	16	psDrawLine
	globalGC1	140 11	3 3	0 360	141 12	psFillArc
	globalGC1	144	9	141	12	psDrawLine
	globalGC1	143 8	3 3	0 360	144 9	psFillArc
	globalGC1	145	8	144	9	psDrawLine
	globalGC1	144 7	3 3	0 360	145 8	psFillArc
	globalGC1	147	8	145	8	psDrawLine
	globalGC1	146 7	3 3	0 360	147 8	psFillArc
	globalGC1	148	7	147	8	psDrawLine
	globalGC1	147 6	3 3	0 360	148 7	psFillArc
	globalGC1	150	7	148	7	psDrawLine
	globalGC1	149 6	3 3	0 360	150 7	psFillArc
	globalGC1	151	7	150	7	psDrawLine
	globalGC1	150 6	3 3	0 360	151 7	psFillArc
	globalGC1	152	8	151	7	psDrawLine
	globalGC1	151 7	3 3	0 360	152 8	psFillArc
	globalGC1	154	8	152	8	psDrawLine
	globalGC1	153 7	3 3	0 360	154 8	psFillArc
	globalGC1	155	9	154	8	psDrawLine
	globalGC1	154 8	3 3	0 360	155 9	psFillArc
	globalGC1	158	12	155	9	psDrawLine
	globalGC1	157 11	3 3	0 360	158 12	psFillArc
	globalGC1	160	16	158	12	psDrawLine
	globalGC1	159 15	3 3	0 360	160 16	psFillArc
	globalGC1	166	25	160	16	psDrawLine
	globalGC1	165 24	3 3	0 360	166 25	psFillArc
	globalGC1	171	35	166	25	psDrawLine
	globalGC1	170 34	3 3	0 360	171 35	psFillArc
	globalGC1	176	46	171	35	psDrawLine
	globalGC1	175 45	3 3	0 360	176 46	psFillArc
	globalGC1	182	56	176	46	psDrawLine
	globalGC1	181 55	3 3	0 360	182 56	psFillArc
	globalGC1	187	64	182	56	psDrawLine
	globalGC1	186 63	3 3	0 360	187 64	psFillArc
	globalGC1	193	70	187	64	psDrawLine
	globalGC1	192 69	3 3	0 360	193 70	psFillArc
	globalGC1	198	75	193	70	psDrawLine
	globalGC1	197 74	3 3	0 360	198 75	psFillArc
	globalGC1	203	79	198	75	psDrawLine
	globalGC1	202 78	3 3	0 360	203 79	psFillArc
	globalGC1	209	81	203	79	psDrawLine
	globalGC1	208 80	3 3	0 360	209 81	psFillArc
	globalGC1	214	83	209	81	psDrawLine
	globalGC1	213 82	3 3	0 360	214 83	psFillArc
	globalGC1	220	84	214	83	psDrawLine
	globalGC1	219 83	3 3	0 360	220 84	psFillArc
	globalGC1	225	84	220	84	psDrawLine
	globalGC1	224 83	3 3	0 360	225 84	psFillArc
	globalGC1	230	85	225	84	psDrawLine
	globalGC1	229 84	3 3	0 360	230 85	psFillArc
	globalGC1	236	85	230	85	psDrawLine
	globalGC1	235 84	3 3	0 360	236 85	psFillArc
	globalGC1	241	85	236	85	psDrawLine
	globalGC1	240 84	3 3	0 360	241 85	psFillArc
	globalGC1	246	85	241	85	psDrawLine
	globalGC1	245 84	3 3	0 360	246 85	psFillArc
	globalGC1	252	85	246	85	psDrawLine
	globalGC1	251 84	3 3	0 360	252 85	psFillArc
	globalGC1	257	85	252	85	psDrawLine
	globalGC1	256 84	3 3	0 360	257 85	psFillArc
	globalGC1	263	85	257	85	psDrawLine
	globalGC1	262 84	3 3	0 360	263 85	psFillArc
	globalGC1	268	85	263	85	psDrawLine
	globalGC1	267 84	3 3	0 360	268 85	psFillArc
	globalGC1	273	85	268	85	psDrawLine
	globalGC1	272 84	3 3	0 360	273 85	psFillArc
	globalGC1	279	85	273	85	psDrawLine
	globalGC1	278 84	3 3	0 360	279 85	psFillArc

    grestore	% restore graphics state


   cleartomark					%% clearing operand stack

end		%% pops mainDict from dictionary stack

showpage

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