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 = ( 1cm , 1cm ) ; pair zaaae ; zaaae = ( 0 , 1cm ) ; path paaaf ; paaaf:=zaaab -- zaaac -- zaaad -- cycle; draw paaaf ; pair zaaag ; zaaag = ( 0.5 ) [ zaaac , zaaad ] ; path paaah ; paaah:=zaaag -- zaaab; draw paaah dashed evenly ; pair zaaai ; zaaai = ( 0.5 ) [ zaaab , zaaad ] ; path paaaj ; paaaj:=zaaai -- zaaac; draw paaaj dashed evenly ; pair zaaak ; zaaak = ( 0.5 ) [ zaaac , zaaab ] ; path paaal ; paaal:=zaaak -- zaaad; draw paaal dashed evenly ; pair zaaam ; zaaam = zaaab + zaaac + zaaad; pair zaaan ; zaaan = 0.3333282470703125 * zaaam; pen qaaao ; qaaao = pencircle scaled 4bp ; draw zaaan withcolor red withpen qaaao ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;