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