% --- 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) "Lalign(left)", "treemode(L)"; newTree.vegetables(v)(d,e) "Lalign(center)", "treemode(L)"; newTree.food(fo)(fruits,vegetables) "hsep(1cm)", "treemode(L)"; scaleObj(food,.7); food.c=origin;drawObj(food); endfig; end;