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