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