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 = ( 3cm , 0 ) ;
pair zaaad ;
 zaaad = ( 1cm , 2cm ) ;
pair zaaae ;
 zaaae = ( 0.5 ) [ zaaac , zaaad ] ;
pair zaaaf ;
 zaaaf = ( 0.5 ) [ zaaab , zaaad ] ;
pair zaaag ;
 zaaag = ( 0.5 ) [ zaaab , zaaac ] ;
pair zaaah ;
 numeric xaaai ;
 pair zaaaj ;
 zaaaj = ( xaaai ) [ zaaab , zaaae ] ;
numeric xaaak ;
 pair zaaal ;
 zaaal = ( xaaak ) [ zaaac , zaaaf ] ;
zaaah = zaaaj = zaaal;
path paaam ;
 paaam:=zaaab -- zaaac -- zaaad -- cycle;
draw paaam     ;
 path paaan ;
 paaan:=zaaab -- zaaae;
draw paaan    dashed withdots  ;
 path paaao ;
 paaao:=zaaac -- zaaaf;
draw paaao    dashed withdots  ;
 path paaap ;
 paaap:=zaaad -- zaaag;
draw paaap    dashed withdots  ;
 pen qaaaq ;
 qaaaq = pencircle scaled 4bp ;
draw zaaah   withpen qaaaq   ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;