| 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 | |