% --- 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;