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 = -1.0 * 0.5cm; numeric xaaad ; xaaad = 2.0 * 0.5cm; pair zaaae ; zaaae = ( xaaac , xaaad ) ; numeric xaaaf ; xaaaf = 4.0 * 0.5cm; numeric xaaag ; xaaag = 3.0 * 0.5cm; pair zaaah ; zaaah = ( xaaaf , xaaag ) ; pair zaaai ; zaaai = ( xaaag , 0 ) ; path paaaj ; paaaj:=zaaab .. controls zaaae and zaaah .. zaaai ; pen qaaak ; qaaak = pencircle scaled 2pt ; draw paaaj withpen qaaak ; path paaal ; paaal:=zaaae -- zaaah; draw paaal dashed evenly ; path paaam ; paaam:=zaaab -- zaaae; drawarrow paaam ; path paaan ; paaan:=zaaai -- zaaah; drawarrow paaan ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;