kpeter@40: %!PS-Adobe-2.0 EPSF-2.0 kpeter@40: %%Title: node disjoint path kpeter@40: %%Copyright: (C) 2006 LEMON Project kpeter@40: %%Creator: LEMON, graphToEps() kpeter@40: %%CreationDate: Fri May 12 01:53:21 2006 kpeter@40: %%BoundingBox: -290 -170 520 230 kpeter@40: %%EndComments kpeter@40: /lb { setlinewidth setrgbcolor newpath moveto kpeter@40: 4 2 roll 1 index 1 index curveto stroke } bind def kpeter@40: /l { setlinewidth setrgbcolor newpath moveto lineto stroke } bind def kpeter@40: /c { newpath dup 3 index add 2 index moveto 0 360 arc closepath } bind def kpeter@40: /sq { newpath 2 index 1 index add 2 index 2 index add moveto kpeter@40: 2 index 1 index sub 2 index 2 index add lineto kpeter@40: 2 index 1 index sub 2 index 2 index sub lineto kpeter@40: 2 index 1 index add 2 index 2 index sub lineto kpeter@40: closepath pop pop pop} bind def kpeter@40: /di { newpath 2 index 1 index add 2 index moveto kpeter@40: 2 index 2 index 2 index add lineto kpeter@40: 2 index 1 index sub 2 index lineto kpeter@40: 2 index 2 index 2 index sub lineto kpeter@40: closepath pop pop pop} bind def kpeter@40: /nc { 0 0 0 setrgbcolor 5 index 5 index 5 index c fill kpeter@40: setrgbcolor 1.1 div c fill kpeter@40: } bind def kpeter@40: /nsq { 0 0 0 setrgbcolor 5 index 5 index 5 index sq fill kpeter@40: setrgbcolor 1.1 div sq fill kpeter@40: } bind def kpeter@40: /ndi { 0 0 0 setrgbcolor 5 index 5 index 5 index di fill kpeter@40: setrgbcolor 1.1 div di fill kpeter@40: } bind def kpeter@40: /nfemale { 0 0 0 setrgbcolor 3 index 0.0909091 1.5 mul mul setlinewidth kpeter@40: newpath 5 index 5 index moveto 5 index 5 index 5 index 3.01 mul sub kpeter@40: lineto 5 index 4 index .7 mul sub 5 index 5 index 2.2 mul sub moveto kpeter@40: 5 index 4 index .7 mul add 5 index 5 index 2.2 mul sub lineto stroke kpeter@40: 5 index 5 index 5 index c fill kpeter@40: setrgbcolor 1.1 div c fill kpeter@40: } bind def kpeter@40: /nmale { kpeter@40: 0 0 0 setrgbcolor 3 index 0.0909091 1.5 mul mul setlinewidth kpeter@40: newpath 5 index 5 index moveto kpeter@40: 5 index 4 index 1 mul 1.5 mul add kpeter@40: 5 index 5 index 3 sqrt 1.5 mul mul add kpeter@40: 1 index 1 index lineto kpeter@40: 1 index 1 index 7 index sub moveto kpeter@40: 1 index 1 index lineto kpeter@40: exch 5 index 3 sqrt .5 mul mul sub exch 5 index .5 mul sub lineto kpeter@40: stroke kpeter@40: 5 index 5 index 5 index c fill kpeter@40: setrgbcolor 1.1 div c fill kpeter@40: } bind def kpeter@40: /arrl 1 def kpeter@40: /arrw 0.3 def kpeter@40: /lrl { 2 index mul exch 2 index mul exch rlineto pop} bind def kpeter@40: /arr { setrgbcolor /y1 exch def /x1 exch def /dy exch def /dx exch def kpeter@40: /w exch def /len exch def kpeter@40: newpath x1 dy w 2 div mul add y1 dx w 2 div mul sub moveto kpeter@40: len w sub arrl sub dx dy lrl kpeter@40: arrw dy dx neg lrl kpeter@40: dx arrl w add mul dy w 2 div arrw add mul sub kpeter@40: dy arrl w add mul dx w 2 div arrw add mul add rlineto kpeter@40: dx arrl w add mul neg dy w 2 div arrw add mul sub kpeter@40: dy arrl w add mul neg dx w 2 div arrw add mul add rlineto kpeter@40: arrw dy dx neg lrl kpeter@40: len w sub arrl sub neg dx dy lrl kpeter@40: closepath fill } bind def kpeter@40: /cshow { 2 index 2 index moveto dup stringwidth pop kpeter@40: neg 2 div fosi .35 mul neg rmoveto show pop pop} def kpeter@40: kpeter@40: gsave kpeter@40: 10 dup scale kpeter@40: %Edges: kpeter@40: gsave kpeter@40: 4 0.3 1 0 -27 5 0 0 0 arr kpeter@40: 4 0.3 1 0 -13 -4 1 0 0 arr kpeter@40: 4 0.3 1 0 -9 15 1 0 0 arr kpeter@40: 4 0.3 1 0 3 -9 1 0 0 arr kpeter@40: 4 0.3 1 0 3 3 1 0 0 arr kpeter@40: 4 0.3 1 0 1 21 1 0 0 arr kpeter@40: 4 0.3 1 0 25 -5 1 0 0 arr kpeter@40: 4 0.3 1 0 28 13 1 0 0 arr kpeter@40: 4 0.3 1 0 45 3 0 0 0 arr kpeter@40: 4 0.3 1 0 -18 -14 1 0 0 arr kpeter@40: 4 0.3 1 0 25 -15 1 0 0 arr kpeter@40: 4 0.3 1 0 -12 7 0 0 0 arr kpeter@40: 4 0.3 1 0 39 -11 0 0 0 arr kpeter@40: 4 0.3 1 0 39 13 0 0 0 arr kpeter@40: 4 0.3 1 0 -20 17 1 0 0 arr kpeter@40: 11.7279 0.3 0.707107 -0.707107 -22 5 1 0 0 arr kpeter@40: 15.4012 0.3 0.792624 0.609711 -22 5 0 0 0 arr kpeter@40: 5.32455 0.3 0.948683 -0.316228 -15 17 1 0 0 arr kpeter@40: 15.7631 0.3 0.95448 0.298275 -13 -14 1 0 0 arr kpeter@40: 11.083 0.3 0.910366 -0.413803 -8 -4 0 0 0 arr kpeter@40: 12.8924 0.3 0.503871 -0.863779 -4 15 0 0 0 arr kpeter@40: 12.0384 0.3 0.843661 0.536875 -8 -4 1 0 0 arr kpeter@40: 9.77033 0.3 0.928477 -0.371391 -7 7 0 0 0 arr kpeter@40: 6.81025 0.3 0.640184 0.768221 -4 15 1 0 0 arr kpeter@40: 17.7883 0.3 0.904819 -0.425797 8 3 1 0 0 arr kpeter@40: 22.4094 0.3 0.939793 -0.341743 6 21 1 0 0 arr kpeter@40: 21.3607 0.3 0.894427 0.447214 8 3 0 0 0 arr kpeter@40: 22.4307 0.3 0.640184 0.768221 30 -15 1 0 0 arr kpeter@40: 16 0.3 0.882353 0.470588 30 -5 1 0 0 arr kpeter@40: 14.6205 0.3 0.768221 -0.640184 33 13 1 0 0 arr kpeter@40: 13.0357 0.3 0.071247 0.997459 44 -11 0 0 0 arr kpeter@40: 9.04987 0.3 0.0995037 -0.995037 44 13 0 0 0 arr kpeter@40: 18.4165 0.3 0.20601 -0.97855 -22 5 1 0 0 arr kpeter@40: 17.0278 0.3 0.94299 -0.33282 8 -9 1 0 0 arr kpeter@40: 9.19804 0.3 0.980581 0.196116 -22 5 0 0 0 arr kpeter@40: 8.84886 0.3 0.913812 0.406138 30 -15 0 0 0 arr kpeter@40: 5 0.3 1 0 33 13 0 0 0 arr kpeter@40: 11.1655 0.3 0.164399 0.986394 -22 5 1 0 0 arr kpeter@40: grestore kpeter@40: %Nodes: kpeter@40: gsave kpeter@40: -27 5 1 1 1 1 nc kpeter@40: -22 5 1 1 1 1 nc kpeter@40: -13 -4 1 1 1 1 nc kpeter@40: -8 -4 1 1 1 1 nc kpeter@40: -9 15 1 1 1 1 nc kpeter@40: -4 15 1 1 1 1 nc kpeter@40: 3 -9 1 1 1 1 nc kpeter@40: 8 -9 1 1 1 1 nc kpeter@40: 3 3 1 1 1 1 nc kpeter@40: 8 3 1 1 1 1 nc kpeter@40: 1 21 1 1 1 1 nc kpeter@40: 6 21 1 1 1 1 nc kpeter@40: 25 -5 1 1 1 1 nc kpeter@40: 30 -5 1 1 1 1 nc kpeter@40: 28 13 1 1 1 1 nc kpeter@40: 33 13 1 1 1 1 nc kpeter@40: 45 3 1 1 1 1 nc kpeter@40: 50 3 1 1 1 1 nc kpeter@40: -18 -14 1 1 1 1 nc kpeter@40: -13 -14 1 1 1 1 nc kpeter@40: 25 -15 1 1 1 1 nc kpeter@40: 30 -15 1 1 1 1 nc kpeter@40: -12 7 1 1 1 1 nc kpeter@40: -7 7 1 1 1 1 nc kpeter@40: 39 -11 1 1 1 1 nc kpeter@40: 44 -11 1 1 1 1 nc kpeter@40: 39 13 1 1 1 1 nc kpeter@40: 44 13 1 1 1 1 nc kpeter@40: -20 17 1 1 1 1 nc kpeter@40: -15 17 1 1 1 1 nc kpeter@40: grestore kpeter@40: grestore kpeter@40: showpage