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 { down } ; draw paaad ; pair zaaae ; zaaae = point 0 of paaad ; pen qaaaf ; qaaaf = pencircle scaled 4bp ; draw zaaae withpen qaaaf ; pair zaaag ; zaaag = point 0.5 of paaad ; pen qaaah ; draw zaaag withpen qaaaf ; pair zaaai ; zaaai = point 1.0 of paaad ; pen qaaaj ; draw zaaai withpen qaaaf ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;