input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) picture Paaab ; Paaab:= nullpicture; path paaac ; paaac:=makepath pencircle ; path paaad ; paaad:=paaac scaled 1cm ; color caaae ; caaae = 0.79998779296875 * white; addto Paaab contour paaad withcolor caaae ; pen qaaaf ; qaaaf = pencircle scaled 0.5bp ; addto Paaab doublepath paaad withpen qaaaf ; pair zaaag ; zaaag = ( 1mm , 1mm ) ; picture Paaah ; Paaah:=Paaab shifted zaaag ; addto Paaab also Paaah ; draw Paaab ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;