% --- start of displayed preamble in the book --- input metaobj % --- end of displayed preamble in the book --- defaultfont:="ptmr8r"; warningcheck:=0; beginfig(1) newBox.a(btex apples etex); newBox.b(btex oranges etex); newBox.c(btex bananas etex); newBox.d(btex potatoes etex); newBox.e(btex peas etex); newBox.f(btex fruits etex); newBox.v(btex vegetables etex); newBox.fo(btex food etex); newTree.fruits(f)(a,b,c); newTree.vegetables(v)(d,e); newTree.food(fo)(fruits,vegetables); scaleObj(food,.7); food.c=origin;drawObj(food); endfig; end;