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

% --- end of displayed preamble in the book ---
defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
draw fullcircle scaled 2cm;
picture savepic;
savepic=currentpicture;
currentpicture:=nullpicture;
draw savepic scaled .5;
draw savepic scaled .5 shifted (3cm,0);
endfig;
end;