author | Peter Kovacs <kpeter@inf.elte.hu> |
Sun, 21 Feb 2010 19:02:08 +0100 | |
changeset 41 | 73fdafd843d9 |
permissions | -rw-r--r-- |
kpeter@40 | 1 |
%!PS-Adobe-2.0 EPSF-2.0 |
kpeter@40 | 2 |
%%Title: edge 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 470 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 |
15.6433 0.3 0.841178 -0.540758 -27 5 1 0 0 arr |
kpeter@40 | 74 |
19.5913 0.3 0.874157 0.485643 -27 5 1 0 0 arr |
kpeter@40 | 75 |
10.1803 0.3 0.98387 -0.178885 -20 17 1 0 0 arr |
kpeter@40 | 76 |
20.587 0.3 0.972806 0.231621 -18 -14 1 0 0 arr |
kpeter@40 | 77 |
15.7631 0.3 0.95448 -0.298275 -13 -4 0 0 0 arr |
kpeter@40 | 78 |
15.9706 0.3 0.707107 -0.707107 -9 15 1 0 0 arr |
kpeter@40 | 79 |
16.4642 0.3 0.916157 0.400819 -13 -4 1 0 0 arr |
kpeter@40 | 80 |
14.5242 0.3 0.966235 -0.257663 -12 7 0 0 0 arr |
kpeter@40 | 81 |
10.6619 0.3 0.857493 0.514496 -9 15 1 0 0 arr |
kpeter@40 | 82 |
22.4094 0.3 0.939793 -0.341743 3 3 1 0 0 arr |
kpeter@40 | 83 |
27.1602 0.3 0.958798 -0.284088 1 21 1 0 0 arr |
kpeter@40 | 84 |
25.9258 0.3 0.928477 0.371391 3 3 1 0 0 arr |
kpeter@40 | 85 |
25.9072 0.3 0.743294 0.668965 25 -15 1 0 0 arr |
kpeter@40 | 86 |
20.5407 0.3 0.928477 0.371391 25 -5 1 0 0 arr |
kpeter@40 | 87 |
18.7231 0.3 0.861934 -0.50702 28 13 1 0 0 arr |
kpeter@40 | 88 |
14.2315 0.3 0.393919 0.919145 39 -11 0 0 0 arr |
kpeter@40 | 89 |
10.6619 0.3 0.514496 -0.857493 39 13 1 0 0 arr |
kpeter@40 | 90 |
20.0238 0.3 0.428086 -0.903738 -27 5 1 0 0 arr |
kpeter@40 | 91 |
21.8035 0.3 0.964764 -0.263117 3 -9 1 0 0 arr |
kpeter@40 | 92 |
14.1328 0.3 0.991228 0.132164 -27 5 0 0 0 arr |
kpeter@40 | 93 |
13.5602 0.3 0.961524 0.274721 25 -15 0 0 0 arr |
kpeter@40 | 94 |
10 0.3 1 0 28 13 1 0 0 arr |
kpeter@40 | 95 |
12.8924 0.3 0.503871 0.863779 -27 5 1 0 0 arr |
kpeter@40 | 96 |
grestore |
kpeter@40 | 97 |
%Nodes: |
kpeter@40 | 98 |
gsave |
kpeter@40 | 99 |
-27 5 1 1 1 1 nc |
kpeter@40 | 100 |
-13 -4 1 1 1 1 nc |
kpeter@40 | 101 |
-9 15 1 1 1 1 nc |
kpeter@40 | 102 |
3 -9 1 1 1 1 nc |
kpeter@40 | 103 |
3 3 1 1 1 1 nc |
kpeter@40 | 104 |
1 21 1 1 1 1 nc |
kpeter@40 | 105 |
25 -5 1 1 1 1 nc |
kpeter@40 | 106 |
28 13 1 1 1 1 nc |
kpeter@40 | 107 |
45 3 1 1 1 1 nc |
kpeter@40 | 108 |
-18 -14 1 1 1 1 nc |
kpeter@40 | 109 |
25 -15 1 1 1 1 nc |
kpeter@40 | 110 |
-12 7 1 1 1 1 nc |
kpeter@40 | 111 |
39 -11 1 1 1 1 nc |
kpeter@40 | 112 |
39 13 1 1 1 1 nc |
kpeter@40 | 113 |
-20 17 1 1 1 1 nc |
kpeter@40 | 114 |
grestore |
kpeter@40 | 115 |
grestore |
kpeter@40 | 116 |
showpage |