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 = dir 0 ;
pair zaaad ;
 zaaad = 2cm * zaaac;
pair zaaae ;
 zaaae = dir 30.0 ;
pair zaaaf ;
 zaaaf = 2cm * zaaae;
path paaag ;
 paaag:=zaaab .. zaaad ;
draw paaag     ;
 path paaah ;
 paaah:=zaaab .. zaaaf ;
draw paaah     ;
 pair zaaai ;
 zaaai = zaaad - zaaab;
numeric xaaaj ;
 xaaaj = angle zaaai ;
pair zaaak ;
 zaaak = zaaaf - zaaab;
numeric xaaal ;
 xaaal = angle zaaak ;
pair zaaam ;
 zaaam = dir xaaaj ;
pair zaaan ;
 zaaan = 1cm * zaaam;
pair zaaao ;
 zaaao = zaaab + zaaan;
numeric xaaap ;
 xaaap = xaaaj + 90.0;
pair zaaaq ;
 zaaaq = dir xaaap ;
pair zaaar ;
 zaaar = dir xaaal ;
pair zaaas ;
 zaaas = 1cm * zaaar;
pair zaaat ;
 zaaat = zaaab + zaaas;
numeric xaaau ;
 xaaau = xaaal + 90.0;
pair zaaav ;
 zaaav = dir xaaau ;
path paaaw ;
 paaaw:=zaaao { zaaaq }  .. zaaat { zaaav }  ;
draw paaaw     ;
 pair zaaax ;
 numeric xaaay ;
 pair zaaaz ;
 numeric xaaba ;
 pair zaabb ;
 pair zaabc ;
 zaabc = 1.1cm * zaaam;
pair zaabd ;
 zaabd = zaaab + zaabc;
numeric xaabe ;
 pair zaabf ;
 pair zaabg ;
 pair zaabh ;
 zaabh = 1.1cm * zaaar;
pair zaabi ;
 zaabi = zaaab + zaabh;
numeric xaabj ;
 pair zaabk ;
 path paabl ;
 paabl:=zaabd { zaaaq }  .. zaabi { zaaav }  ;
draw paabl     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;