input TEX;
prologues := 1;
%if scantokens(mpversion) < 1.200:
%   filenametemplate
%else:
%   outputtemplate :=
%fi
% "%j.eps";

beginfig(1)
pair zaaab ;
 zaaab = ( 0 , 0 ) ;
numeric xaaac ;
 xaaac = 2.0 * 1cm;
pair zaaad ;
 zaaad = ( 1cm , xaaac ) ;
path paaae ;
 paaae:=zaaab { up }  .. zaaad { up }  ;
pair zaaaf ;
 zaaaf = ( 1cm , 0 ) ;
numeric xaaag ;
 pair zaaah ;
 zaaah = ( 0 , xaaac ) ;
path paaai ;
 paaai:=zaaaf { up }  .. zaaah { up }  ;
draw paaae     ;
 path paaaj ;
 paaaj:=subpath ( 0 , 0.399993896484375 ) of paaai ;
pen qaaak ;
 qaaak = pencircle scaled 1bp ;
draw paaaj   withpen qaaak   ;
 path paaal ;
 paaal:=subpath ( 0.5999908447265625 , 1.0 ) of paaai ;
pen qaaam ;
 draw paaal   withpen qaaak   ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;