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 ;
 pair zaaah ;
 zaaah = ( xaaag ) [ zaaab , zaaac ] ;
numeric xaaai ;
 pair zaaaj ;
 zaaaj = ( xaaai ) [ zaaad , zaaae ] ;
zaaaf = zaaah = 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;