% --- 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 randomized (1mm,2mm); draw unitsquare scaled 1.5cm squeezed (1mm,5mm) shifted (3cm,0); endfig; end;