fa_example.eps

一个类似STL的自动机的源代码库

%!PS-Adobe-2.0
%%Creator: dot version gviz1.5.1 (09-29-99)
%%For: (vince) Vincent Le Maout
%%Title: G
%%Pages: (atend)
%%BoundingBox: 36 36 303 277
%%EndComments
%%BeginProlog
save
/DotDict 200 dict def
DotDict begin

%%BeginResource: procset
/coord-font-family /Times-Roman def
/default-font-family /Times-Roman def
/coordfont coord-font-family findfont 8 scalefont def

/InvScaleFactor 1.0 def
/set_scale {
	dup 1 exch div /InvScaleFactor exch def
	dup scale
} bind def

% styles
/solid { } bind def
/dashed { [9 InvScaleFactor mul dup ] 0 setdash } bind def
/dotted { [1 InvScaleFactor mul 6 InvScaleFactor mul] 0 setdash } bind def
/invis {/fill {newpath} def /stroke {newpath} def /show {pop newpath} def} bind def
/bold { 2 setlinewidth } bind def
/filled { } bind def
/unfilled { } bind def
/rounded { } bind def
/diagonals { } bind def

% hooks for setting color 
/nodecolor { sethsbcolor } bind def
/edgecolor { sethsbcolor } bind def
/graphcolor { sethsbcolor } bind def
/nopcolor {pop pop pop} bind def

/beginpage {	% i j npages
	/npages exch def
	/j exch def
	/i exch def
	/str 10 string def
	npages 1 gt {
		gsave
			coordfont setfont
			0 0 moveto
			(\() show i str cvs show (,) show j str cvs show (\)) show
		grestore
	} if
} bind def

/set_font {
	findfont exch
	scalefont setfont
} def

% draw aligned label in bounding box aligned to current point
% alignfactor tells what fraction to place on the left.
% -.5 is centered.
/alignedtext {			% text labelwidth fontsz alignfactor
	/alignfactor exch def
	/fontsz exch def
	/width exch def
	/text exch def
	gsave
		% even if node or edge is dashed, don't paint text with dashes
		[] 0 setdash
		currentpoint newpath moveto
		text stringwidth pop
		alignfactor mul fontsz -.3 mul rmoveto
		text show
	grestore
} def

/boxprim {				% xcorner ycorner xsize ysize
		4 2 roll
		moveto
		2 copy
		exch 0 rlineto
		0 exch rlineto
		pop neg 0 rlineto
		closepath
} bind def

/ellipse_path {
	/ry exch def
	/rx exch def
	/y exch def
	/x exch def
	matrix currentmatrix
	newpath
	x y translate
	rx ry scale
	0 0 1 0 360 arc
	setmatrix
} bind def

/endpage { showpage } bind def

/layercolorseq
	[	% layer color sequence - darkest to lightest
		[0 0 0]
		[.2 .8 .8]
		[.4 .8 .8]
		[.6 .8 .8]
		[.8 .8 .8]
	]
def

/setlayer {/maxlayer exch def /curlayer exch def
	layercolorseq curlayer get
	aload pop sethsbcolor
	/nodecolor {nopcolor} def
	/edgecolor {nopcolor} def
	/graphcolor {nopcolor} def
} bind def

/onlayer { curlayer ne {invis} if } def

/onlayers {
	/myupper exch def
	/mylower exch def
	curlayer mylower lt
	curlayer myupper gt
	or
	{invis} if
} def

/curlayer 0 def

%%EndResource
14 default-font-family set_font
1 setmiterlimit
% /arrowlength 10 def
% /arrowwidth 5 def
%%EndProlog
%%Page: 1 1
%%PageBoundingBox: 36 36 303 277
%%PageOrientation: Portrait
gsave
35 35 268 242 boxprim clip newpath
36 36 translate
0 0 1 beginpage
0 0 translate 0 rotate
0.000 0.000 0.000 graphcolor
14.00 /Times-Roman set_font

%	1
gsave 10 dict begin
25 100 25 25 ellipse_path
stroke
25 100 21 21 ellipse_path
stroke
gsave 10 dict begin
20.00 /Times-Roman set_font
25 101 moveto (1) 10 20.00 -0.50 alignedtext
end grestore
end grestore

%	2
gsave 10 dict begin
bold
137 179 21 21 ellipse_path
stroke
gsave 10 dict begin
20.00 /Times-Roman set_font
137 180 moveto (2) 10 20.00 -0.50 alignedtext
end grestore
end grestore

%	1 -> 2
newpath 46 114 moveto
65 127 93 147 113 162 curveto
stroke
newpath 113 159 moveto
120 167 lineto
110 163 lineto
closepath
gsave 0 setgray stroke grestore fill
gsave 10 dict begin
20.00 /Times-Roman set_font
83 163 moveto (a) 8 20.00 -0.50 alignedtext
end grestore

%	3
gsave 10 dict begin
137 100 21 21 ellipse_path
stroke
gsave 10 dict begin
20.00 /Times-Roman set_font
137 101 moveto (3) 10 20.00 -0.50 alignedtext
end grestore
end grestore

%	1 -> 3
newpath 50 100 moveto
67 100 89 100 107 100 curveto
stroke
newpath 106 98 moveto
116 100 lineto
106 103 lineto
closepath
gsave 0 setgray stroke grestore fill
gsave 10 dict begin
20.00 /Times-Roman set_font
83 112 moveto (b) 10 20.00 -0.50 alignedtext
end grestore

%	4
gsave 10 dict begin
137 21 21 21 ellipse_path
stroke
gsave 10 dict begin
20.00 /Times-Roman set_font
137 22 moveto (4) 10 20.00 -0.50 alignedtext
end grestore
end grestore

%	1 -> 4
newpath 46 86 moveto
65 73 93 53 113 38 curveto
stroke
newpath 110 37 moveto
120 33 lineto
113 41 lineto
closepath
gsave 0 setgray stroke grestore fill
gsave 10 dict begin
20.00 /Times-Roman set_font
83 81 moveto (b) 10 20.00 -0.50 alignedtext
end grestore

%	2 -> 2
newpath 151 195 moveto
156 207 151 218 137 218 curveto
127 218 121 212 121 204 curveto
stroke
newpath 118 204 moveto
123 195 lineto
123 205 lineto
closepath
gsave 0 setgray stroke grestore fill
gsave 10 dict begin
20.00 /Times-Roman set_font
137 230 moveto (b) 10 20.00 -0.50 alignedtext
end grestore

%	5
gsave 10 dict begin
bold
245 60 21 21 ellipse_path
stroke
gsave 10 dict begin
20.00 /Times-Roman set_font
245 61 moveto (5) 10 20.00 -0.50 alignedtext
end grestore
end grestore

%	3 -> 5
newpath 157 93 moveto
173 87 198 78 217 70 curveto
stroke
newpath 215 68 moveto
225 67 lineto
217 73 lineto
closepath
gsave 0 setgray stroke grestore fill
gsave 10 dict begin
20.00 /Times-Roman set_font
191 97 moveto (a) 8 20.00 -0.50 alignedtext
end grestore

%	4 -> 5
newpath 157 28 moveto
173 34 198 43 217 50 curveto
stroke
newpath 217 47 moveto
225 53 lineto
215 52 lineto
closepath
gsave 0 setgray stroke grestore fill
gsave 10 dict begin
20.00 /Times-Roman set_font
191 57 moveto (c) 8 20.00 -0.50 alignedtext
end grestore
endpage
grestore
%%PageTrailer
%%EndPage: 1
%%Trailer
%%Pages: 1
end
restore
%%EOF