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 = ( 1cm , 0 ) ; pair zaaad ; zaaad = ( 0 , 1cm ) ; path paaae ; paaae:=zaaab -- zaaac -- zaaad -- cycle; draw paaae ; pair zaaaf ; zaaaf = ( 0.5 ) [ zaaac , zaaad ] ; path paaag ; paaag:=zaaaf -- zaaab; draw paaag ; pair zaaah ; zaaah = ( 0.5 ) [ zaaab , zaaad ] ; path paaai ; paaai:=zaaah -- zaaac; draw paaai ; pair zaaaj ; zaaaj = ( 0.5 ) [ zaaac , zaaab ] ; path paaak ; paaak:=zaaaj -- zaaad; draw paaak ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;