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