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