1 | static const char *ps_txt[] = { |
2 | "%%BeginProlog" , |
3 | "/DotDict 200 dict def" , |
4 | "DotDict begin" , |
5 | "" , |
6 | "/setupLatin1 {" , |
7 | "mark" , |
8 | "/EncodingVector 256 array def" , |
9 | " EncodingVector 0" , |
10 | "" , |
11 | "ISOLatin1Encoding 0 255 getinterval putinterval" , |
12 | "EncodingVector 45 /hyphen put" , |
13 | "" , |
14 | "% Set up ISO Latin 1 character encoding" , |
15 | "/starnetISO {" , |
16 | " dup dup findfont dup length dict begin" , |
17 | " { 1 index /FID ne { def }{ pop pop } ifelse" , |
18 | " } forall" , |
19 | " /Encoding EncodingVector def" , |
20 | " currentdict end definefont" , |
21 | "} def" , |
22 | "/Times-Roman starnetISO def" , |
23 | "/Times-Italic starnetISO def" , |
24 | "/Times-Bold starnetISO def" , |
25 | "/Times-BoldItalic starnetISO def" , |
26 | "/Helvetica starnetISO def" , |
27 | "/Helvetica-Oblique starnetISO def" , |
28 | "/Helvetica-Bold starnetISO def" , |
29 | "/Helvetica-BoldOblique starnetISO def" , |
30 | "/Courier starnetISO def" , |
31 | "/Courier-Oblique starnetISO def" , |
32 | "/Courier-Bold starnetISO def" , |
33 | "/Courier-BoldOblique starnetISO def" , |
34 | "cleartomark" , |
35 | "} bind def" , |
36 | "" , |
37 | "%%BeginResource: procset graphviz 0 0" , |
38 | "/coord-font-family /Times-Roman def" , |
39 | "/default-font-family /Times-Roman def" , |
40 | "/coordfont coord-font-family findfont 8 scalefont def" , |
41 | "" , |
42 | "/InvScaleFactor 1.0 def" , |
43 | "/set_scale {" , |
44 | " dup 1 exch div /InvScaleFactor exch def" , |
45 | " scale" , |
46 | "} bind def" , |
47 | "" , |
48 | "% styles" , |
49 | "/solid { [] 0 setdash } bind def" , |
50 | "/dashed { [9 InvScaleFactor mul dup ] 0 setdash } bind def" , |
51 | "/dotted { [1 InvScaleFactor mul 6 InvScaleFactor mul] 0 setdash } bind def" , |
52 | "/invis {/fill {newpath} def /stroke {newpath} def /show {pop newpath} def} bind def" , |
53 | "/bold { 2 setlinewidth } bind def" , |
54 | "/filled { } bind def" , |
55 | "/unfilled { } bind def" , |
56 | "/rounded { } bind def" , |
57 | "/diagonals { } bind def" , |
58 | "/tapered { } bind def" , |
59 | "" , |
60 | "% hooks for setting color " , |
61 | "/nodecolor { sethsbcolor } bind def" , |
62 | "/edgecolor { sethsbcolor } bind def" , |
63 | "/graphcolor { sethsbcolor } bind def" , |
64 | "/nopcolor {pop pop pop} bind def" , |
65 | "" , |
66 | "/beginpage { % i j npages" , |
67 | " /npages exch def" , |
68 | " /j exch def" , |
69 | " /i exch def" , |
70 | " /str 10 string def" , |
71 | " npages 1 gt {" , |
72 | " gsave" , |
73 | " coordfont setfont" , |
74 | " 0 0 moveto" , |
75 | " (\\() show i str cvs show (,) show j str cvs show (\\)) show" , |
76 | " grestore" , |
77 | " } if" , |
78 | "} bind def" , |
79 | "" , |
80 | "/set_font {" , |
81 | " findfont exch" , |
82 | " scalefont setfont" , |
83 | "} def" , |
84 | "" , |
85 | "% draw text fitted to its expected width" , |
86 | "/alignedtext { % width text" , |
87 | " /text exch def" , |
88 | " /width exch def" , |
89 | " gsave" , |
90 | " width 0 gt {" , |
91 | " [] 0 setdash" , |
92 | " text stringwidth pop width exch sub text length div 0 text ashow" , |
93 | " } if" , |
94 | " grestore" , |
95 | "} def" , |
96 | "" , |
97 | "/boxprim { % xcorner ycorner xsize ysize" , |
98 | " 4 2 roll" , |
99 | " moveto" , |
100 | " 2 copy" , |
101 | " exch 0 rlineto" , |
102 | " 0 exch rlineto" , |
103 | " pop neg 0 rlineto" , |
104 | " closepath" , |
105 | "} bind def" , |
106 | "" , |
107 | "/ellipse_path {" , |
108 | " /ry exch def" , |
109 | " /rx exch def" , |
110 | " /y exch def" , |
111 | " /x exch def" , |
112 | " matrix currentmatrix" , |
113 | " newpath" , |
114 | " x y translate" , |
115 | " rx ry scale" , |
116 | " 0 0 1 0 360 arc" , |
117 | " setmatrix" , |
118 | "} bind def" , |
119 | "" , |
120 | "/endpage { showpage } bind def" , |
121 | "/showpage { } def" , |
122 | "" , |
123 | "/layercolorseq" , |
124 | " [ % layer color sequence - darkest to lightest" , |
125 | " [0 0 0]" , |
126 | " [.2 .8 .8]" , |
127 | " [.4 .8 .8]" , |
128 | " [.6 .8 .8]" , |
129 | " [.8 .8 .8]" , |
130 | " ]" , |
131 | "def" , |
132 | "" , |
133 | "/layerlen layercolorseq length def" , |
134 | "" , |
135 | "/setlayer {/maxlayer exch def /curlayer exch def" , |
136 | " layercolorseq curlayer 1 sub layerlen mod get" , |
137 | " aload pop sethsbcolor" , |
138 | " /nodecolor {nopcolor} def" , |
139 | " /edgecolor {nopcolor} def" , |
140 | " /graphcolor {nopcolor} def" , |
141 | "} bind def" , |
142 | "" , |
143 | "/onlayer { curlayer ne {invis} if } def" , |
144 | "" , |
145 | "/onlayers {" , |
146 | " /myupper exch def" , |
147 | " /mylower exch def" , |
148 | " curlayer mylower lt" , |
149 | " curlayer myupper gt" , |
150 | " or" , |
151 | " {invis} if" , |
152 | "} def" , |
153 | "" , |
154 | "/curlayer 0 def" , |
155 | "" , |
156 | "%%EndResource" , |
157 | "%%EndProlog" , |
158 | "%%BeginSetup" , |
159 | "14 default-font-family set_font" , |
160 | "% /arrowlength 10 def" , |
161 | "% /arrowwidth 5 def" , |
162 | "" , |
163 | "% make sure pdfmark is harmless for PS-interpreters other than Distiller" , |
164 | "/pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse" , |
165 | "% make '<<' and '>>' safe on PS Level 1 devices" , |
166 | "/languagelevel where {pop languagelevel}{1} ifelse" , |
167 | "2 lt {" , |
168 | " userdict (<<) cvn ([) cvn load put" , |
169 | " userdict (>>) cvn ([) cvn load put" , |
170 | "} if" , |
171 | "" , |
172 | "%%EndSetup" , |
173 | (char*)0 }; |
174 | |