input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) pair zaaab ; zaaab = ( 1cm , 0 ) ; numeric xaaac ; xaaac = -1.0 * 1cm; pair zaaad ; zaaad = ( xaaac , 0 ) ; numeric xaaae ; xaaae = -0.1999969482421875 * 1cm; pair zaaaf ; zaaaf = ( xaaae , 0 ) ; numeric xaaag ; xaaag = 0.1999969482421875 * 1cm; pair zaaah ; zaaah = ( xaaag , 0 ) ; path paaai ; paaai:=zaaab { up } .. zaaad { down } -- zaaaf { up } .. zaaah { down } -- cycle ; color caaaj ; caaaj = 0.79998779296875 * white; fill paaai withcolor caaaj ; pen qaaak ; qaaak = pencircle scaled 1bp ; draw paaai withpen qaaak ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;