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 ) ;
path paaae ;
 paaae:=zaaab { up }  .. zaaad { down }  -- cycle ;
color caaaf ;
 caaaf = 0.79998779296875 * white;
fill paaae  withcolor caaaf    ;
 pen qaaag ;
 qaaag = pencircle scaled 1bp ;
draw paaae   withpen qaaag   ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;