summaryrefslogtreecommitdiff
path: root/info/examples/lgc2/3-5-73.mp
blob: 137ffbc33ee70cd80350c0e3252df9c2bad52c3f (plain)
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
% --- start of displayed preamble in the book ---
input metaobj
% Boxes as previously defined
% --- end of displayed preamble in the book ---

newBox.a(btex apples\strut etex);
newBox.b(btex oranges\strut etex);
newBox.c(btex bananas\strut etex);
newBox.d(btex potatoes\strut etex);
newBox.e(btex peas\strut etex);
newBox.f(btex fruits\strut etex);
newBox.v(btex vegetables\strut etex);
newBox.fo(btex food\strut etex);

defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
newTree.fruits(f)(a,b,c)
  "Dalign(bot)", "hideleaves(true)";
newTree.vegetables(v)(d,e) "Dalign(center)";
newTree.food(fo)(fruits,vegetables)
  "hsep(1cm)";
scaleObj(food,.7); food.c=origin;drawObj(food);
endfig;
end;