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 ; numeric xaaak ; numeric xaaal ; draw paaad ; draw paaaj ; numeric xaaam ; pair zaaan ; zaaan = ( xaaak , xaaam ) ; pair zaaao ; zaaao = paaad intersectiontimes paaaj ; zaaan = zaaao; pair zaaap ; zaaap = point xaaak of paaad ; pen qaaaq ; qaaaq = pencircle scaled 4bp ; draw zaaap withpen qaaaq ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;