% --- start of displayed preamble in the book --- input metafun % --- end of displayed preamble in the book --- defaultfont:="ptmr8r"; warningcheck:=0; beginfig(1) draw unitsquare scaled 1.5cm smoothed 2mm; endfig; end;