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 , 3cm ) ; pair zaaad ; zaaad = ( 1cm , 0 ) ; pair zaaae ; zaaae = ( -1cm , 2cm ) ; pair zaaaf ; numeric xaaag ; numeric xaaah ; pair zaaai ; zaaai = ( xaaag ) [ zaaab , zaaac ] ; pair zaaaj ; zaaaj = ( xaaah ) [ zaaad , zaaae ] ; zaaaf = zaaai = zaaaj; path paaak ; paaak:=zaaab -- zaaac; draw paaak ; path paaal ; paaal:=zaaad -- zaaae; draw paaal ; pen qaaam ; qaaam = pencircle scaled 4bp ; draw zaaaf withpen qaaam ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;