blob: bc736afac7d97b81ffc4ca09ca14ac1df7abb18c (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
%!PS-Adobe-2.0 EPSF-2.0
%%Title: LEMON GraphToEps figure
%%Creator: LEMON GraphToEps function
%%BoundingBox: 0 0 256 372
%%EndComments
/lb { setlinewidth setrgbcolor newpath moveto
4 2 roll 1 index 1 index curveto stroke } bind def
/l { setlinewidth setrgbcolor newpath moveto lineto stroke } bind def
/c { newpath dup 3 index add 2 index moveto 0 360 arc closepath } bind def
/sq { newpath 2 index 1 index add 2 index 2 index add moveto
2 index 1 index sub 2 index 2 index add lineto
2 index 1 index sub 2 index 2 index sub lineto
2 index 1 index add 2 index 2 index sub lineto
closepath pop pop pop} bind def
/di { newpath 2 index 1 index add 2 index moveto
2 index 2 index 2 index add lineto
2 index 1 index sub 2 index lineto
2 index 2 index 2 index sub lineto
closepath pop pop pop} bind def
/nc { 0 0 0 setrgbcolor 5 index 5 index 5 index c fill
setrgbcolor 1.1 div c fill
} bind def
/nsq { 0 0 0 setrgbcolor 5 index 5 index 5 index sq fill
setrgbcolor 1.1 div sq fill
} bind def
/ndi { 0 0 0 setrgbcolor 5 index 5 index 5 index di fill
setrgbcolor 1.1 div di fill
} bind def
/nfemale { 0 0 0 setrgbcolor 3 index 0.0909091 1.5 mul mul setlinewidth
newpath 5 index 5 index moveto 5 index 5 index 5 index 3.01 mul sub
lineto 5 index 4 index .7 mul sub 5 index 5 index 2.2 mul sub moveto
5 index 4 index .7 mul add 5 index 5 index 2.2 mul sub lineto stroke
5 index 5 index 5 index c fill
setrgbcolor 1.1 div c fill
} bind def
/nmale {
0 0 0 setrgbcolor 3 index 0.0909091 1.5 mul mul setlinewidth
newpath 5 index 5 index moveto
5 index 4 index 1 mul 1.5 mul add
5 index 5 index 3 sqrt 1.5 mul mul add
1 index 1 index lineto
1 index 1 index 7 index sub moveto
1 index 1 index lineto
exch 5 index 3 sqrt .5 mul mul sub exch 5 index .5 mul sub lineto
stroke
5 index 5 index 5 index c fill
setrgbcolor 1.1 div c fill
} bind def
/arrl 1 def
/arrw 0.3 def
/lrl { 2 index mul exch 2 index mul exch rlineto pop} bind def
/arr { setrgbcolor /y1 exch def /x1 exch def /dy exch def /dx exch def
/w exch def /len exch def
newpath x1 dy w 2 div mul add y1 dx w 2 div mul sub moveto
len w sub arrl sub dx dy lrl
arrw dy dx neg lrl
dx arrl w add mul dy w 2 div arrw add mul sub
dy arrl w add mul dx w 2 div arrw add mul add rlineto
dx arrl w add mul neg dy w 2 div arrw add mul sub
dy arrl w add mul neg dx w 2 div arrw add mul add rlineto
arrw dy dx neg lrl
len w sub arrl sub neg dx dy lrl
closepath fill } bind def
/cshow { 2 index 2 index moveto dup stringwidth pop
neg 2 div fosi .35 mul neg rmoveto show pop pop} def
gsave
100 dup scale
%Edges:
gsave
grestore
%Nodes:
gsave
1 1 1 0.2 1 0.2 nmale
grestore
grestore
showpage
|
