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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
input metaobj
% the black disk is small, but its bounding box is extended so that we
% get a good alignment with the empty circles
% TCE=TC Extended
def TCE=
rebindrelative_Obj(new_Circle_("")("filled(true)","circmargin(.5mm)"))
(1.5mm,-1.5mm,1.5mm,-1.5mm)
enddef;
% 11-12/5/2001
beginfig(25);
setCurveDefaultOption("arrows","draw");
setObjectDefaultOption("Tree")("vsep")(2cm);
setObjectDefaultOption("Tree")("hbsep")(2cm);
setObjectDefaultOption("Tree")("treenodevsize")(5mm);
t:=T_(Tn)(T_(Tr_(btex Player 1 etex))
(T_(Tr_(btex Player 2 etex))
(Tr_(btex Player 3 etex))("edge(none)"))("edge(none)"),
T_(Tc_(2mm))(
_T(Tc_(2mm))(TCE,T_(Tc_(2mm))(TCE,TCE)("hideleaves(true)")),
_T(Tc_(2mm))(TCE,T_(Tc_(2mm))(TCE,TCE)("hideleaves(true)"))
)("hbsep(2cm)"),
new_HRazor(-5cm),
TCE)("edge(none)");
Obj(t).c=origin;
ncbox.Obj(t)(treeroot(Obj(t))(2,1))
(treeroot(Obj(t))(2,2))
"linestyle(dashed evenly)", "boxsize(3mm)",
"nodesepA(5mm)", "nodesepB(5mm)", "linearc(3mm)";
ncarcbox.Obj(t)(treeroot(Obj(t))(2,1,2))
(treeroot(Obj(t))(2,2,2))
"linestyle(dashed evenly)", "arcangleA(30)",
"nodesepA(5mm)", "nodesepB(5mm)","boxsize(3mm)";
ncline.Obj(t)(treeroot(Obj(t))(2))(treeroot(Obj(t))(4)) "name(N)";
ObjLabel.Obj(t)(btex N etex) "labpathname(N)", "labdir(top)";
% we add labels on edges; the standard edges of a tree are numbered 1,2, ...
% and we use |labpathid|; we must take care to give the correct objet
% as first parameter of |ObjLabel|.
ObjLabel.treepos(Obj(t))(2)(btex L etex) "labpathid(1)", "labdir(lft)";
ObjLabel.treepos(Obj(t))(2)(btex R etex) "labpathid(2)", "labdir(rt)";
ObjLabel.ntreepos(Obj(t))(2,1)(btex l etex) "labpathid(1)", "labdir(lft)";
% The previous is a shorthand for
% ObjLabel.treepos(treepos(Obj(t))(2))(1)(btex l etex)
% "labpathid(1)", "labdir(lft)";
ObjLabel.ntreepos(Obj(t))(2,1)(btex r etex) "labpathid(2)"
%,"laberase(true)";
, "labdir(rt)";
ObjLabel.ntreepos(Obj(t))(2,2)(btex l etex) "labpathid(1)", "labdir(lft)";
ObjLabel.ntreepos(Obj(t))(2,2)(btex r etex) "labpathid(2)", "labdir(rt)";
ObjLabel.ntreepos(Obj(t))(2,1,2)(btex c etex) "labpathid(1)", "labdir(lft)";
ObjLabel.ntreepos(Obj(t))(2,1,2)(btex d etex) "labpathid(2)", "labdir(rt)";
ObjLabel.ntreepos(Obj(t))(2,2,2)(btex c etex) "labpathid(1)", "labdir(lft)";
ObjLabel.ntreepos(Obj(t))(2,2,2)(btex d etex) "labpathid(2)", "labdir(rt)";
% labels on nodes:
ObjLabel.ntreepos(Obj(t))(2,1,1)(btex $(-10,10.-10)$ etex) "labcard(s)";
% the distance between the node and the label is 1cm as defined in |ObjLabel|
ObjLabel.ntreepos(Obj(t))(2,2,1)(btex $(10,-10.0)$ etex) "labcard(s)";
ObjLabel.ntreepos(Obj(t))(2,1,2,1)(btex $(3,8,-4)$ etex) "labcard(s)";
ObjLabel.ntreepos(Obj(t))(2,1,2,2)(btex $(-8,3,4)$ etex) "labcard(s)";
ObjLabel.ntreepos(Obj(t))(2,2,2,1)(btex $(4,8,-3)$ etex) "labcard(s)";
ObjLabel.ntreepos(Obj(t))(2,2,2,2)(btex $(0,-5,0)$ etex) "labcard(s)";
ObjLabel.treepos(Obj(t))(4)(btex $(0,0,0)$ etex) "labcard(e)";
% 4, because the HRazor counts for one subtree
draw_Obj(t);
endfig;
% TCE=TC Extended
def TCE=
rebindrelative_Obj(new_Circle_("")("filled(true)","circmargin(.5mm)"))
(.5mm,-.5mm,.5mm,-.5mm)
enddef;
beginfig(27);
setCurveDefaultOption("arrows","draw");
setObjectDefaultOption("Tree")("treemode")("R");
setObjectDefaultOption("Tree")("vbsep")(5mm);
setObjectDefaultOption("Tree")("treenodevsize")(-1);
setObjectDefaultOption("Tree")("treenodehsize")(5mm);
t:=T_(Tc)(
T_(Tc)(
_T(Tc)(TCE,TCE),
T_(Tn)(T_(Tn)(TCE)("edge(none)"))("edge(none)"),
T_(Tn)(T_(Tn)(_T(Tc)(TCE,TCE))("edge(none)"))("edge(none)"),
TCE
)("edge(none)"),
_T(Tn)(new_VFan_(2mm,1cm)("edge(none)"))
)("edge(none)","pointedfan(false)");
ncline.Obj(t)(treeroot(Obj(t))(1))(treeroot(Obj(t))(1,1));
ncline.Obj(t)(treeroot(Obj(t))(1))(treeroot(Obj(t))(1,2,1,1));
ncline.Obj(t)(treeroot(Obj(t))(1))(treeroot(Obj(t))(1,3,1,1));
ncline.Obj(t)(treeroot(Obj(t))(1))(ntreepos(Obj(t))(1,4));
ncline.Obj(t)(obj(Obj(t)root)) (treeroot(Obj(t))(1));
% we call |ncfan| because we draw a non-standard fan
ncfan.Obj(t)(obj(Obj(t)root))(ntreepos(Obj(t))(2,1))(2);
Obj(t).c=origin;
draw_Obj(t);
% we call |drawfan| because we draw a non-standard fan
drawfan.Obj(t)(ntreepos(Obj(t))(2,1))(2);
% draw ntreepos(Obj(t))(1,2,1,1).nw--
% ntreepos(Obj(t))(1,2,1,1).ne--
% ntreepos(Obj(t))(1,2,1,1).se--
% ntreepos(Obj(t))(1,2,1,1).sw--cycle withcolor red;
% draw treeroot(Obj(t))(1,3,1,1).nw--
% treeroot(Obj(t))(1,3,1,1).ne--
% treeroot(Obj(t))(1,3,1,1).se--
% treeroot(Obj(t))(1,3,1,1).sw--cycle withcolor red;
endfig;
end
|
