summaryrefslogtreecommitdiff
path: root/info/examples/lgc2/3-5-85.mp
blob: e7dff5fb00e2be158b1fdae07eb24aed4a8b845a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
% --- start of displayed preamble in the book ---
input metaobj
% --- end of displayed preamble in the book ---
defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
t:=T_(Tc)(TC,TC,Tc)
     ("treemode(R)","arrows(draw)",
      "hsep(2cm)");
Obj(t).c=origin;
ObjLabel.Obj(t)(btex below etex)
    "labpathid(1)", "labdir(bot)";
ObjLabel.Obj(t)(btex above etex)
    "labpathid(2)", "labdir(top)";
ObjLabel.Obj(t)(btex above etex)
    "labpathid(3)", "labdir(top)";
draw_Obj(t);
endfig;
end;