% --- 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) extendObjRight.a(3cm);extendObjRight.b(3cm); extendObjRight.c(3cm);extendObjRight.d(3cm); extendObjRight.e(3cm); rebindrelativeObj(f) (0,0,0,-xpart(v.e-v.w-f.e+f.w)); 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;