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

beginfig(1)
pair zaaab ;
 zaaab = 1cm * up;
pair zaaac ;
 zaaac = zaaab rotated 0 ;
pair zaaad ;
 zaaad = zaaab rotated 51.428558349609375 ;
pair zaaae ;
 zaaae = zaaab rotated 102.85713195800781 ;
pair zaaaf ;
 zaaaf = zaaab rotated 154.28570556640625 ;
pair zaaag ;
 zaaag = zaaab rotated 205.7142791748047 ;
pair zaaah ;
 zaaah = zaaab rotated 257.1428527832031 ;
pair zaaai ;
 zaaai = zaaab rotated 308.57142639160156 ;
path paaaj ;
 paaaj:=zaaac -- zaaad -- zaaae -- zaaaf -- zaaag -- zaaah -- zaaai -- cycle;
draw paaaj     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;