input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) picture Paaab ; Paaab:= nullpicture; numeric xaaac ; xaaac = 2.0 * 3mm; path paaad ; paaad:=makepath pencircle ; path paaae ; paaae:=paaad scaled xaaac ; color caaaf ; caaaf = 0.79998779296875 * white; addto Paaab contour paaae withcolor caaaf ; pair zaaag ; zaaag = dir 150.0 ; pair zaaah ; zaaah = 3mm * zaaag; path paaai ; path paaaj ; paaaj:=paaad scaled 3mm ; path paaak ; paaak:=paaaj shifted zaaah ; color caaal ; addto Paaab contour paaak withcolor caaaf ; pair zaaam ; zaaam = dir 30.0 ; pair zaaan ; zaaan = 3mm * zaaam; path paaao ; path paaap ; path paaaq ; paaaq:=paaaj shifted zaaan ; color caaar ; addto Paaab contour paaaq withcolor caaaf ; draw Paaab ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;