%
% 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;