path: root/src/doc/ps/ribbon2r.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 psDrawLines:
%		psDrawLines
%		points[0].y
%		points[0].x
%		n
%		...
%		points[n].y
%		points[n].x
%		graphics-context dictionary
% this draws lines connecting all the points.

/psDrawLines
        {	gsave
                newpath
                yVal moveto
                1 sub {
                        yVal lineto
                } repeat
		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	276	300	setDim
	maxX maxY	0 0	rectangle	clip	% set clip path

	globalGC1	0.000000	setForeground
	globGC	0.000000	setForeground
	globalGC1	12	196	287	196	psDrawLine
	globGC	(X)	7	201	psDrawStr
	globalGC1	106.000000	setForeground
	globGC	106.000000	setForeground
	globalGC1	0.000000	setForeground
	globGC	0.000000	setForeground
	globalGC1	150	212	150	186	psDrawLine
	globGC	(Y)	155	217	psDrawStr
	globalGC1	106.000000	setForeground
	globGC	106.000000	setForeground
	globalGC1	0.000000	setForeground
	globGC	0.000000	setForeground
	globalGC1	150	59	150	334	psDrawLine
	globGC	(Z)	155	54	psDrawStr
	globalGC1	106.000000	setForeground
	globGC	106.000000	setForeground
	1	0	0	componentGC	setLineAttributes
	componentGC	0.000000	setForeground
	componentGC
	32	79
	40	95
	49	111
	58	125
	67	138
	75	150
	84	160
	93	169
	102	177
	110	183
	119	189
	128	192
	136	195
	145	196
	154	196
	163	195
	171	192
	180	189
	189	183
	197	177
	206	169
	215	160
	224	150
	232	138
	241	125
	250	111
	259	95
	28	267	79	psDrawLines
	componentGC
	6	66
	16	86
	27	105
	38	122
	48	138
	59	153
	70	165
	80	176
	91	186
	102	194
	112	200
	123	205
	134	208
	144	209
	155	209
	165	208
	176	205
	187	200
	197	194
	208	186
	219	176
	229	165
	240	153
	251	138
	261	122
	272	105
	283	86
	28	293	66	psDrawLines
	componentGC
	293	66
	2	267	79	psDrawLines
	componentGC
	283	86
	2	259	95	psDrawLines
	componentGC
	272	105
	2	250	111	psDrawLines
	componentGC
	261	122
	2	241	125	psDrawLines
	componentGC
	251	138
	2	232	138	psDrawLines
	componentGC
	240	153
	2	224	150	psDrawLines
	componentGC
	229	165
	2	215	160	psDrawLines
	componentGC
	219	176
	2	206	169	psDrawLines
	componentGC
	208	186
	2	197	177	psDrawLines
	componentGC
	197	194
	2	189	183	psDrawLines
	componentGC
	187	200
	2	180	189	psDrawLines
	componentGC
	176	205
	2	171	192	psDrawLines
	componentGC
	165	208
	2	163	195	psDrawLines
	componentGC
	155	209
	2	154	196	psDrawLines
	componentGC
	144	209
	2	145	196	psDrawLines
	componentGC
	134	208
	2	136	195	psDrawLines
	componentGC
	123	205
	2	128	192	psDrawLines
	componentGC
	112	200
	2	119	189	psDrawLines
	componentGC
	102	194
	2	110	183	psDrawLines
	componentGC
	91	186
	2	102	177	psDrawLines
	componentGC
	80	176
	2	93	169	psDrawLines
	componentGC
	70	165
	2	84	160	psDrawLines
	componentGC
	59	153
	2	75	150	psDrawLines
	componentGC
	48	138
	2	67	138	psDrawLines
	componentGC
	38	122
	2	58	125	psDrawLines
	componentGC
	27	105
	2	49	111	psDrawLines
	componentGC
	16	86
	2	40	95	psDrawLines
	componentGC
	6	66
	2	32	79	psDrawLines

    grestore	% restore graphics state


   cleartomark					%% clearing operand stack

end		%% pops mainDict from dictionary stack

showpage

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