summaryrefslogtreecommitdiff
path: root/info/examples/lgc2/3-5-79.mp
blob: 5e43759a81c1159b0ee8fb6edc759d12c120325b (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)
setObjectDefaultOption("Tree")
     ("hideleaves")(true);
t:=T_(new_Circle(btex foo etex))
      (new_HFan_(1cm,0)("filled(true)"),
        Tf,
        _T(new_RBox(btex bar etex))
          (new_HFan(1cm,0))
      )
     ("Dalign(center)");
Obj(t).c=origin;
draw_Obj(t);
endfig;
end;