% % This example need a fairly current version of metaobj.mp! % % You may need to install the latest version from CTAN % % --- start of displayed preamble in the book --- input metaobj % --- end of displayed preamble in the book --- defaultfont:="ptmr8r"; warningcheck:=0; beginfig(1) numeric u; u=1cm; newEllipse.A(btex Ellipse etex); newCircle.B(btex Circle etex); scaleObj(B,2); newBox.C(btex Box etex); scaleObj(C,3); newRBox.D(btex RBox etex); A.c=origin; B.c-A.c=(2u,0); C.c-B.c=(0,3u); D.c-C.c=(-u,u); newContainer.ct(A,B,C,D) "framed(true)", "framecolor(blue)", "filled(true)","fillcolor((.8,.8,.8))", "dx(1mm)", "dy(1mm)"; drawObj(ct); endfig; end;