input TEX;
prologues := 1;
%if scantokens(mpversion) < 1.200:
% filenametemplate
%else:
% outputtemplate :=
%fi
% "%j.eps";
beginfig(1)
pair zaaab ;
zaaab = ( 1cm , 0 ) ;
pair zaaac ;
zaaac = zaaab rotated 72.0 ;
pair zaaad ;
zaaad = zaaac rotated 72.0 ;
pair zaaae ;
zaaae = zaaad rotated 72.0 ;
pair zaaaf ;
zaaaf = zaaae rotated 72.0 ;
path paaag ;
paaag:=zaaab -- zaaac -- zaaad -- zaaae -- zaaaf -- cycle;
transform Taaah ;
pair zaaai ;
zaaai = zaaab transformed Taaah ;
pair zaaaj ;
zaaaj = ( 0.1999969482421875 ) [ zaaab , zaaac ] ;
zaaai = zaaaj;
pair zaaak ;
zaaak = zaaac transformed Taaah ;
pair zaaal ;
zaaal = ( 0.1999969482421875 ) [ zaaac , zaaad ] ;
zaaak = zaaal;
pair zaaam ;
zaaam = zaaad transformed Taaah ;
pair zaaan ;
zaaan = ( 0.1999969482421875 ) [ zaaad , zaaae ] ;
zaaam = zaaan;
draw paaag ;
path paaao ;
paaao:=paaag transformed Taaah ;
draw paaao ;
path paaap ;
paaap:=paaao transformed Taaah ;
draw paaap ;
path paaaq ;
paaaq:=paaap transformed Taaah ;
currentpicture := currentpicture shifted
-llcorner currentpicture shifted (1cm,2cm);
endfig;
end;