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 * 5mm;
pair zaaad ;
 zaaad = ( 5mm , xaaac ) ;
numeric xaaae ;
 xaaae = 1.5 * 5mm;
pair zaaaf ;
 zaaaf = ( xaaac , xaaae ) ;
numeric xaaag ;
 xaaag = 3.0 * 5mm;
pair zaaah ;
 zaaah = ( xaaag , xaaac ) ;
numeric xaaai ;
 xaaai = 4.0 * 5mm;
pair zaaaj ;
 zaaaj = ( xaaai , 0 ) ;
path paaak ;
 paaak:=zaaab { curl 0  }  .. zaaad .. zaaaf .. zaaah .. { curl 0  }  zaaaj ;
path paaal ;
 paaal:=subpath ( 0 , 1.0 ) of paaak ;
draw paaal  withcolor red    ;
 path paaam ;
 paaam:=subpath ( 1.0 , 2.0 ) of paaak ;
draw paaam  withcolor green    ;
 path paaan ;
 paaan:=subpath ( 2.0 , 3.0 ) of paaak ;
draw paaan  withcolor blue    ;
 path paaao ;
 paaao:=subpath ( 3.0 , 3.5 ) of paaak ;
draw paaao    dashed evenly  ;
 path paaap ;
 paaap:=subpath ( 3.5 , 4.0 ) of paaak ;
draw paaap    dashed withdots  ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;