input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) picture Paaab ; Paaab:= nullpicture; transform Taaac ; numeric xaaad ; xaaad = 2.0 * 3mm; path paaae ; paaae:=makepath pencircle ; path paaaf ; paaaf:=paaae scaled xaaad ; color caaag ; caaag = 0.79998779296875 * white; addto Paaab contour paaaf withcolor caaag ; pair zaaah ; zaaah = dir 150.0 ; pair zaaai ; zaaai = 3mm * zaaah; path paaaj ; path paaak ; paaak:=paaae scaled 3mm ; path paaal ; paaal:=paaak shifted zaaai ; color caaam ; addto Paaab contour paaal withcolor caaag ; pair zaaan ; zaaan = dir 30.0 ; pair zaaao ; zaaao = 3mm * zaaan; path paaap ; path paaaq ; path paaar ; paaar:=paaak shifted zaaao ; color caaas ; addto Paaab contour paaar withcolor caaag ; pair zaaat ; zaaat = ( 0 , 0 ) ; pair zaaau ; zaaau = zaaat transformed Taaac ; pair zaaav ; zaaau = zaaat; pair zaaaw ; zaaaw = ( 1.0 , 0 ) ; pair zaaax ; zaaax = zaaaw transformed Taaac ; pair zaaay ; zaaay = ( 1.0 , 1.0 ) ; zaaax = zaaay; pair zaaaz ; zaaaz = ( 0 , 1.0 ) ; pair zaaba ; zaaba = zaaaz transformed Taaac ; pair zaabb ; zaaba = zaaaw; picture Paabc ; Paabc:=Paaab transformed Taaac ; draw Paabc ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;