% --- start of displayed preamble in the book ---

% --- start of displayed preamble in the book ---
input metaobj
% Circles produced as before

% --- end of displayed preamble in the book ---

newCircle.a(btex start etex);
newCircle.b(btex end etex);
a.c=origin;
b.c-a.c=(3cm,1cm);

defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
nczigzag(a)(b);
nczigzag(a)(b)
"angleA(-90)","angleB(120)",
"linetension(0.8)", "coilwidth(2mm)",
"linearc(.1mm)";
drawObj(a,b);
endfig;
end;