% --- start of displayed preamble in the book --- input metaobj % Polygons etc. as previously defined % --- end of displayed preamble in the book --- newPolygon.a(btex apples\strut etex,5); newPolygon.b(btex oranges\strut etex,6); newPolygon.c(btex bananas\strut etex,7); newPolygon.f(btex fruits\strut etex,8); newEllipse.d(btex potatoes\strut etex); newDEllipse.e(btex peas\strut etex); newDBox.v(btex vegetables\strut etex); newPolygon.fo(btex food\strut etex,12); defaultfont:="ptmr8r"; warningcheck:=0; beginfig(1) newTree.fruits(f)(a,b,c) "Lalign(left)", "hideleaves(true)", "treemode(L)", "vsep(3mm)"; newTree.vegetables(v)(d,e) "Ralign(center)", "hideleaves(true)", "treemode(R)"; newTree.food(fo)(fruits,vegetables) "hsep(1cm)"; scaleObj(food,.7);food.c=origin; rebindVisibleObj(food); newDEllipse.ff(food);drawObj(ff); endfig; end;