ladanyi@152: %!PS-Adobe-2.0 EPSF-2.0
ladanyi@152: %%Title: LEMON GraphToEps figure
ladanyi@152: %%Creator: LEMON GraphToEps function
ladanyi@152: %%BoundingBox: 0 0 200 200
ladanyi@152: %%EndComments
ladanyi@152: /lb { setlinewidth setrgbcolor newpath moveto
ladanyi@152:       4 2 roll 1 index 1 index curveto stroke } bind def
ladanyi@152: /l { setlinewidth setrgbcolor newpath moveto lineto stroke } bind def
ladanyi@152: /c { newpath dup 3 index add 2 index moveto 0 360 arc closepath } bind def
ladanyi@152: /sq { newpath 2 index 1 index add 2 index 2 index add moveto
ladanyi@152:       2 index 1 index sub 2 index 2 index add lineto
ladanyi@152:       2 index 1 index sub 2 index 2 index sub lineto
ladanyi@152:       2 index 1 index add 2 index 2 index sub lineto
ladanyi@152:       closepath pop pop pop} bind def
ladanyi@152: /di { newpath 2 index 1 index add 2 index moveto
ladanyi@152:       2 index             2 index 2 index add lineto
ladanyi@152:       2 index 1 index sub 2 index             lineto
ladanyi@152:       2 index             2 index 2 index sub lineto
ladanyi@152:       closepath pop pop pop} bind def
ladanyi@152: /nc { 0 0 0 setrgbcolor 5 index 5 index 5 index c fill
ladanyi@152:      setrgbcolor 1.1 div c fill
ladanyi@152:    } bind def
ladanyi@152: /nsq { 0 0 0 setrgbcolor 5 index 5 index 5 index sq fill
ladanyi@152:      setrgbcolor 1.1 div sq fill
ladanyi@152:    } bind def
ladanyi@152: /ndi { 0 0 0 setrgbcolor 5 index 5 index 5 index di fill
ladanyi@152:      setrgbcolor 1.1 div di fill
ladanyi@152:    } bind def
ladanyi@152: /arrl 1 def
ladanyi@152: /arrw 0.3 def
ladanyi@152: /lrl { 2 index mul exch 2 index mul exch rlineto pop} bind def
ladanyi@152: /arr { setrgbcolor /y1 exch def /x1 exch def /dy exch def /dx exch def
ladanyi@152:        /w exch def /len exch def
ladanyi@152:        newpath x1 dy w 2 div mul add y1 dx w 2 div mul sub moveto
ladanyi@152:        len w sub arrl sub dx dy lrl
ladanyi@152:        arrw dy dx neg lrl
ladanyi@152:        dx arrl w add mul dy w 2 div arrw add mul sub
ladanyi@152:        dy arrl w add mul dx w 2 div arrw add mul add rlineto
ladanyi@152:        dx arrl w add mul neg dy w 2 div arrw add mul sub
ladanyi@152:        dy arrl w add mul neg dx w 2 div arrw add mul add rlineto
ladanyi@152:        arrw dy dx neg lrl
ladanyi@152:        len w sub arrl sub neg dx dy lrl
ladanyi@152:        closepath fill } bind def
ladanyi@152: /cshow { 2 index 2 index moveto dup stringwidth pop
ladanyi@152:          neg 2 div fosi .35 mul neg rmoveto show pop pop} def
ladanyi@152: 
ladanyi@152: gsave
ladanyi@152: 100 dup scale
ladanyi@152: %Edges:
ladanyi@152: gsave
ladanyi@152: grestore
ladanyi@152: %Nodes:
ladanyi@152: gsave
ladanyi@152: 1 1 1 0.2 1 0.2 nsq
ladanyi@152: grestore
ladanyi@152: grestore
ladanyi@152: showpage