% --- start of displayed preamble in the book ---
input metaobj
% --- end of displayed preamble in the book ---
defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
newBox.a(btex Input etex);
a.c=origin;
newEllipse.b(btex what ? etex)
   "framestyle(dashed evenly)";
a.s-b.n=(0,5mm);
newCircle.c(btex no! etex);
c.w-b.e=(1cm,0);
newPolygon.d(btex five etex,5)
   "fit(false)", "polymargin(2mm)";
c.s-d.n=(0,1cm);
ncbar(a)(d) "angleA(180)", "armA(1cm)";
drawObj(a,b,c,d);ncline(a)(b);
ncline(b)(c);ncline(c)(d);
endfig;
end;