author | Peter Kovacs <kpeter@inf.elte.hu> |
Sun, 28 Feb 2010 19:38:57 +0100 | |
changeset 53 | 0f695eac7e07 |
permissions | -rw-r--r-- |
kpeter@40 | 1 |
%!PS-Adobe-2.0 EPSF-2.0 |
kpeter@40 | 2 |
%%Title: node disjoint path |
kpeter@40 | 3 |
%%Copyright: (C) 2006 LEMON Project |
kpeter@40 | 4 |
%%Creator: LEMON, graphToEps() |
kpeter@40 | 5 |
%%CreationDate: Fri May 12 01:53:21 2006 |
kpeter@40 | 6 |
%%BoundingBox: -290 -170 520 230 |
kpeter@40 | 7 |
%%EndComments |
kpeter@40 | 8 |
/lb { setlinewidth setrgbcolor newpath moveto |
kpeter@40 | 9 |
4 2 roll 1 index 1 index curveto stroke } bind def |
kpeter@40 | 10 |
/l { setlinewidth setrgbcolor newpath moveto lineto stroke } bind def |
kpeter@40 | 11 |
/c { newpath dup 3 index add 2 index moveto 0 360 arc closepath } bind def |
kpeter@40 | 12 |
/sq { newpath 2 index 1 index add 2 index 2 index add moveto |
kpeter@40 | 13 |
2 index 1 index sub 2 index 2 index add lineto |
kpeter@40 | 14 |
2 index 1 index sub 2 index 2 index sub lineto |
kpeter@40 | 15 |
2 index 1 index add 2 index 2 index sub lineto |
kpeter@40 | 16 |
closepath pop pop pop} bind def |
kpeter@40 | 17 |
/di { newpath 2 index 1 index add 2 index moveto |
kpeter@40 | 18 |
2 index 2 index 2 index add lineto |
kpeter@40 | 19 |
2 index 1 index sub 2 index lineto |
kpeter@40 | 20 |
2 index 2 index 2 index sub lineto |
kpeter@40 | 21 |
closepath pop pop pop} bind def |
kpeter@40 | 22 |
/nc { 0 0 0 setrgbcolor 5 index 5 index 5 index c fill |
kpeter@40 | 23 |
setrgbcolor 1.1 div c fill |
kpeter@40 | 24 |
} bind def |
kpeter@40 | 25 |
/nsq { 0 0 0 setrgbcolor 5 index 5 index 5 index sq fill |
kpeter@40 | 26 |
setrgbcolor 1.1 div sq fill |
kpeter@40 | 27 |
} bind def |
kpeter@40 | 28 |
/ndi { 0 0 0 setrgbcolor 5 index 5 index 5 index di fill |
kpeter@40 | 29 |
setrgbcolor 1.1 div di fill |
kpeter@40 | 30 |
} bind def |
kpeter@40 | 31 |
/nfemale { 0 0 0 setrgbcolor 3 index 0.0909091 1.5 mul mul setlinewidth |
kpeter@40 | 32 |
newpath 5 index 5 index moveto 5 index 5 index 5 index 3.01 mul sub |
kpeter@40 | 33 |
lineto 5 index 4 index .7 mul sub 5 index 5 index 2.2 mul sub moveto |
kpeter@40 | 34 |
5 index 4 index .7 mul add 5 index 5 index 2.2 mul sub lineto stroke |
kpeter@40 | 35 |
5 index 5 index 5 index c fill |
kpeter@40 | 36 |
setrgbcolor 1.1 div c fill |
kpeter@40 | 37 |
} bind def |
kpeter@40 | 38 |
/nmale { |
kpeter@40 | 39 |
0 0 0 setrgbcolor 3 index 0.0909091 1.5 mul mul setlinewidth |
kpeter@40 | 40 |
newpath 5 index 5 index moveto |
kpeter@40 | 41 |
5 index 4 index 1 mul 1.5 mul add |
kpeter@40 | 42 |
5 index 5 index 3 sqrt 1.5 mul mul add |
kpeter@40 | 43 |
1 index 1 index lineto |
kpeter@40 | 44 |
1 index 1 index 7 index sub moveto |
kpeter@40 | 45 |
1 index 1 index lineto |
kpeter@40 | 46 |
exch 5 index 3 sqrt .5 mul mul sub exch 5 index .5 mul sub lineto |
kpeter@40 | 47 |
stroke |
kpeter@40 | 48 |
5 index 5 index 5 index c fill |
kpeter@40 | 49 |
setrgbcolor 1.1 div c fill |
kpeter@40 | 50 |
} bind def |
kpeter@40 | 51 |
/arrl 1 def |
kpeter@40 | 52 |
/arrw 0.3 def |
kpeter@40 | 53 |
/lrl { 2 index mul exch 2 index mul exch rlineto pop} bind def |
kpeter@40 | 54 |
/arr { setrgbcolor /y1 exch def /x1 exch def /dy exch def /dx exch def |
kpeter@40 | 55 |
/w exch def /len exch def |
kpeter@40 | 56 |
newpath x1 dy w 2 div mul add y1 dx w 2 div mul sub moveto |
kpeter@40 | 57 |
len w sub arrl sub dx dy lrl |
kpeter@40 | 58 |
arrw dy dx neg lrl |
kpeter@40 | 59 |
dx arrl w add mul dy w 2 div arrw add mul sub |
kpeter@40 | 60 |
dy arrl w add mul dx w 2 div arrw add mul add rlineto |
kpeter@40 | 61 |
dx arrl w add mul neg dy w 2 div arrw add mul sub |
kpeter@40 | 62 |
dy arrl w add mul neg dx w 2 div arrw add mul add rlineto |
kpeter@40 | 63 |
arrw dy dx neg lrl |
kpeter@40 | 64 |
len w sub arrl sub neg dx dy lrl |
kpeter@40 | 65 |
closepath fill } bind def |
kpeter@40 | 66 |
/cshow { 2 index 2 index moveto dup stringwidth pop |
kpeter@40 | 67 |
neg 2 div fosi .35 mul neg rmoveto show pop pop} def |
kpeter@40 | 68 |
|
kpeter@40 | 69 |
gsave |
kpeter@40 | 70 |
10 dup scale |
kpeter@40 | 71 |
%Edges: |
kpeter@40 | 72 |
gsave |
kpeter@40 | 73 |
4 0.3 1 0 -27 5 0 0 0 arr |
kpeter@40 | 74 |
4 0.3 1 0 -13 -4 1 0 0 arr |
kpeter@40 | 75 |
4 0.3 1 0 -9 15 1 0 0 arr |
kpeter@40 | 76 |
4 0.3 1 0 3 -9 1 0 0 arr |
kpeter@40 | 77 |
4 0.3 1 0 3 3 1 0 0 arr |
kpeter@40 | 78 |
4 0.3 1 0 1 21 1 0 0 arr |
kpeter@40 | 79 |
4 0.3 1 0 25 -5 1 0 0 arr |
kpeter@40 | 80 |
4 0.3 1 0 28 13 1 0 0 arr |
kpeter@40 | 81 |
4 0.3 1 0 45 3 0 0 0 arr |
kpeter@40 | 82 |
4 0.3 1 0 -18 -14 1 0 0 arr |
kpeter@40 | 83 |
4 0.3 1 0 25 -15 1 0 0 arr |
kpeter@40 | 84 |
4 0.3 1 0 -12 7 0 0 0 arr |
kpeter@40 | 85 |
4 0.3 1 0 39 -11 0 0 0 arr |
kpeter@40 | 86 |
4 0.3 1 0 39 13 0 0 0 arr |
kpeter@40 | 87 |
4 0.3 1 0 -20 17 1 0 0 arr |
kpeter@40 | 88 |
11.7279 0.3 0.707107 -0.707107 -22 5 1 0 0 arr |
kpeter@40 | 89 |
15.4012 0.3 0.792624 0.609711 -22 5 0 0 0 arr |
kpeter@40 | 90 |
5.32455 0.3 0.948683 -0.316228 -15 17 1 0 0 arr |
kpeter@40 | 91 |
15.7631 0.3 0.95448 0.298275 -13 -14 1 0 0 arr |
kpeter@40 | 92 |
11.083 0.3 0.910366 -0.413803 -8 -4 0 0 0 arr |
kpeter@40 | 93 |
12.8924 0.3 0.503871 -0.863779 -4 15 0 0 0 arr |
kpeter@40 | 94 |
12.0384 0.3 0.843661 0.536875 -8 -4 1 0 0 arr |
kpeter@40 | 95 |
9.77033 0.3 0.928477 -0.371391 -7 7 0 0 0 arr |
kpeter@40 | 96 |
6.81025 0.3 0.640184 0.768221 -4 15 1 0 0 arr |
kpeter@40 | 97 |
17.7883 0.3 0.904819 -0.425797 8 3 1 0 0 arr |
kpeter@40 | 98 |
22.4094 0.3 0.939793 -0.341743 6 21 1 0 0 arr |
kpeter@40 | 99 |
21.3607 0.3 0.894427 0.447214 8 3 0 0 0 arr |
kpeter@40 | 100 |
22.4307 0.3 0.640184 0.768221 30 -15 1 0 0 arr |
kpeter@40 | 101 |
16 0.3 0.882353 0.470588 30 -5 1 0 0 arr |
kpeter@40 | 102 |
14.6205 0.3 0.768221 -0.640184 33 13 1 0 0 arr |
kpeter@40 | 103 |
13.0357 0.3 0.071247 0.997459 44 -11 0 0 0 arr |
kpeter@40 | 104 |
9.04987 0.3 0.0995037 -0.995037 44 13 0 0 0 arr |
kpeter@40 | 105 |
18.4165 0.3 0.20601 -0.97855 -22 5 1 0 0 arr |
kpeter@40 | 106 |
17.0278 0.3 0.94299 -0.33282 8 -9 1 0 0 arr |
kpeter@40 | 107 |
9.19804 0.3 0.980581 0.196116 -22 5 0 0 0 arr |
kpeter@40 | 108 |
8.84886 0.3 0.913812 0.406138 30 -15 0 0 0 arr |
kpeter@40 | 109 |
5 0.3 1 0 33 13 0 0 0 arr |
kpeter@40 | 110 |
11.1655 0.3 0.164399 0.986394 -22 5 1 0 0 arr |
kpeter@40 | 111 |
grestore |
kpeter@40 | 112 |
%Nodes: |
kpeter@40 | 113 |
gsave |
kpeter@40 | 114 |
-27 5 1 1 1 1 nc |
kpeter@40 | 115 |
-22 5 1 1 1 1 nc |
kpeter@40 | 116 |
-13 -4 1 1 1 1 nc |
kpeter@40 | 117 |
-8 -4 1 1 1 1 nc |
kpeter@40 | 118 |
-9 15 1 1 1 1 nc |
kpeter@40 | 119 |
-4 15 1 1 1 1 nc |
kpeter@40 | 120 |
3 -9 1 1 1 1 nc |
kpeter@40 | 121 |
8 -9 1 1 1 1 nc |
kpeter@40 | 122 |
3 3 1 1 1 1 nc |
kpeter@40 | 123 |
8 3 1 1 1 1 nc |
kpeter@40 | 124 |
1 21 1 1 1 1 nc |
kpeter@40 | 125 |
6 21 1 1 1 1 nc |
kpeter@40 | 126 |
25 -5 1 1 1 1 nc |
kpeter@40 | 127 |
30 -5 1 1 1 1 nc |
kpeter@40 | 128 |
28 13 1 1 1 1 nc |
kpeter@40 | 129 |
33 13 1 1 1 1 nc |
kpeter@40 | 130 |
45 3 1 1 1 1 nc |
kpeter@40 | 131 |
50 3 1 1 1 1 nc |
kpeter@40 | 132 |
-18 -14 1 1 1 1 nc |
kpeter@40 | 133 |
-13 -14 1 1 1 1 nc |
kpeter@40 | 134 |
25 -15 1 1 1 1 nc |
kpeter@40 | 135 |
30 -15 1 1 1 1 nc |
kpeter@40 | 136 |
-12 7 1 1 1 1 nc |
kpeter@40 | 137 |
-7 7 1 1 1 1 nc |
kpeter@40 | 138 |
39 -11 1 1 1 1 nc |
kpeter@40 | 139 |
44 -11 1 1 1 1 nc |
kpeter@40 | 140 |
39 13 1 1 1 1 nc |
kpeter@40 | 141 |
44 13 1 1 1 1 nc |
kpeter@40 | 142 |
-20 17 1 1 1 1 nc |
kpeter@40 | 143 |
-15 17 1 1 1 1 nc |
kpeter@40 | 144 |
grestore |
kpeter@40 | 145 |
grestore |
kpeter@40 | 146 |
showpage |