%!PS-Adobe-3.0%%Creator: David Neto, directly and indirectly%%BoundingBox: 54 90 612 730%%Pages: 1%%Page: 1 1%% The following is for EPS mode%%%BoundingBox: 0 0 180 180% % Written by David Neto (on his Linux machine, no less!)% Tue Aug  2 14:43:24 EDT 1994% Fri Nov 17 17:01:21 EST 1995% $Log: prolog.ps,v $% Revision 1.14  1998/11/15 16:42:48  neto% Default eps size is 2.5 inches.% Also, EPS form has a border drawn around it.%% Revision 1.13  1998/11/07 18:12:15  neto% Split off EPS into a separate prolog.%% Revision 1.12  1998/08/23 21:36:50  neto% Comment now wraps around to the next line.%% Revision 1.11  1998/07/24 17:49:57  neto% Added /comment.% (This was in 0.4.0)%% Revision 1.10  1997/10/11 14:40:30  neto% Make drawing of number labels easily switchable.%% Revision 1.9  1997/08/15  16:46:44  neto% Added operator ue for printing edges from untransformed coordinates.%% Revision 1.8  1997/02/10  21:59:42  neto% Make the large display the default.%% Revision 1.7  1997/02/10  19:49:22  neto% Fixed up the DSC for ghostview.%% Revision 1.7  1997/02/10  19:49:22  neto% Fixed up the DSC for ghostview.%% Revision 1.6  1997/02/10  19:34:55  neto% Added a gsave at the beginning.%% Revision 1.5  1997/02/10  19:14:23  neto% Added ts which shows a dot at raw coordinates, transforming them% first.%% Revision 1.4  1997/02/10  19:05:50  neto% Made it more EPSF-friendly.%% The EPS file must end with "end grestore %EOF"gsave  100 dict begin    % Create a local scope for a few definitions /drawnumberlabels false def/numberlabel 1 def/dotsize 1 def % 1 pt radius/size 7.75 72 mul def % 7.75 inch square bounding box/hoffset 8.5 72 mul size sub 2 div def/voffset 9 72 mul size sub def  % Remember the title/rightmargin 7.5 72 mul def/leftmargin 1 72 mul def/fontheight 14 def  % this can change/makeepsf { 	/dotsize .2 def 	/size 2.5 72 mul def	/hoffset 0 def	/voffset 0 def	gsave   % Draw a thin border		0 setlinewidth		0 0 moveto		size 0 lineto		size size lineto		0 size lineto		closepath 		stroke	grestore} def%makeepsf/x { % x -- scaledx	xmin sub 	xoffset add	maxrange div	size mul	hoffset add} def/y { % y -- scaledy	ymin sub 	yoffset add	maxrange div	size mul	voffset add} def/dot { % x y --        % Put a dot at this position        dotsize 0 360 arc fill } def/circle { % x y --        % Put a circle at this position		gsave			0 setlinewidth			dotsize .5 add 0 360 arc stroke		grestore} def/bigdot { % i --		1 add dup 				% 1+i 1+i		xs exch get exch		% x 1+i		ys exch get				% x y        % Put a big dot at this position        5 0 360 arc stroke        % 5pt * scalingfactor radius} def/bigbigdot { % i --		1 add dup 				% 1+i 1+i		xs exch get exch		% x 1+i		ys exch get				% x y        % Put a big big dot at this position        7 0 360 arc stroke        % 7pt * scalingfactor radius} def/label { % string i --		1 add dup 				% s 1+i 1+i		xs exch get exch		% s x 1+i		ys exch get				% s x y		moveto 		-45 rotate 		show		45 rotate} def/labelall {	0 1 N 1 sub {		dup (        ) cvs exch label	} for} def/shownode { % i x y --	y exch	x exch	dot	pop} def% Draw a bounding box/boundingbox { % -- 	newpath	xmin x ymin y moveto	xmax x ymin y lineto	xmax x ymax y lineto	xmin x ymax y lineto	closepath	stroke} def/s { % i xcoord ycoord --	ys			% i xcoord ycoord ys  	3 index		% i xcoord ycoord ys i	3 -1 roll 	% i xcoord ys i ycoord 	y			% i xcoord ys i transformedy	put			% i xcoord	x			% i transformedx	xs			% i transformedx xs	3 1 roll 	% xs i transformedx	put			% } def/sfcs { % i xcoord ycoord --	s} def/ts { % raw-x raw-y --     % Draw dot at transformed x and y	drawnumberlabels {  % Should we draw labels too?		y exch x exch 		1 index 1 index		dot		gsave			% /Helvetica 10 findfont scalefont setfont			moveto			numberlabel (             ) cvs ( ) show show			/numberlabel numberlabel 1 add def		grestore	} {		y exch x exch dot	} ifelse} def/rawedge { % x1 y1 x2 y2 -- % draw an edgefrom finalx to finaly	newpath moveto lineto stroke} def/ue { % ux1 uy1 ux2 uy2 -- % draw an edge from point (x1,y1) to (x2,y2)	% The coordinates are given in untransformed versions.	y 4 1 roll		x 4 1 roll		y 4 1 roll		x 4 1 roll		rawedge} def	/edge { % i j -- 	/j exch 1 add def	/i exch 1 add def	xs i get ys i get 	xs j get ys j get	rawedge} def/inedge { % i j --	gsave 8 setlinewidth 0.2 setgray edge grestore } def/outedge { % i j --	gsave 8 setlinewidth 0.8 setgray edge grestore } def/drawcities {	1 1 N { dup xs exch get exch ys exch get dot } for} def/Helvetica findfont 5 scalefont setfont/title { % string -- 	gsave	72 9.8 72 mul moveto	/Helvetica findfont 24 scalefont setfont	show	grestore} def% Display the comment below the title, and wrap it too./comment { % string --	1 dict begin		/str exch def		gsave		72 9.5 72 mul moveto		/Helvetica findfont 14 scalefont setfont		fontheight			/fontheight 14 def			str wrapshow		/fontheight exch def		grestore	end} def% Wrap if beyond the right margin./maybewrap { % -- 	currentpoint exch rightmargin ge 	% ypos bool --		{ fontheight sub leftmargin exch moveto }  % Wrap to next line		{ pop } 	ifelse} def/wrapshow { % string --	1 dict begin  /onecharstr ( ) def	% string --	   { % char-value --		 dup 32 eq { maybewrap } if % Wrap only on word boundaries.		 onecharstr exch 0 exch put  % Stuff the character into a new string.		 onecharstr show	% Then print it.	   } forall	end} defnewpath% FILE-SPECIFIC HERE