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 , 0 ) ;
path paaad ;
 paaad:=zaaab { up }  .. zaaac { up }  ;
pair zaaae ;
 zaaae = ( 0 , 1cm ) ;
pair zaaaf ;
 zaaaf = dir -60.0 ;
pair zaaag ;
 zaaag = ( 1cm , -1cm ) ;
pair zaaah ;
 zaaah = dir 60.0 ;
pair zaaai ;
 zaaai = ( 2cm , 1cm ) ;
path paaaj ;
 paaaj:=zaaae { zaaaf }  .. zaaag .. { zaaah }  zaaai ;
draw paaad     ;
 draw paaaj     ;
 pair zaaak ;
 zaaak = paaad intersectionpoint paaaj ;
pen qaaal ;
 qaaal = pencircle scaled 4bp ;
draw zaaak   withpen qaaal   ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;