input TEX;
prologues := 1;
%if scantokens(mpversion) < 1.200:
%   filenametemplate
%else:
%   outputtemplate :=
%fi
% "%j.eps";

beginfig(1)
pair zaaab ;
 zaaab = 1cm * right;
pair zaaac ;
 zaaac = zaaab rotated 0 ;
pen qaaad ;
 qaaad = pencircle scaled 4bp ;
draw zaaac   withpen qaaad   ;
 pair zaaae ;
 zaaae = zaaab rotated 90.0 ;
draw zaaae   withpen qaaad   ;
 pair zaaaf ;
 zaaaf = zaaab rotated 180.0 ;
draw zaaaf   withpen qaaad   ;
 pair zaaag ;
 zaaag = zaaab rotated 270.0 ;
draw zaaag   withpen qaaad   ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;