% --- start of displayed preamble in the book --- input metaobj % --- end of displayed preamble in the book --- defaultfont:="ptmr8r"; warningcheck:=0; beginfig(1) newPolygon.a(btex Box A etex,5) "fit(false)","polymargin(5mm)"; newBox.b(btex Box B etex scaled \magstep3); newVRazor.ba(1cm); newPolygon.c(btex Box C etex scaled \magstep2,11) "polymargin(3mm)"; newVBox.v(a,b,ba,c) "align(center)","vbsep(3mm)"; v.c=origin; drawObj(v); endfig; end;