input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) numeric xaaab ; xaaab = 2.0 * 3mm; path paaac ; paaac:=makepath pencircle ; path paaad ; paaad:=paaac scaled xaaab ; path paaae ; paaae:=paaad scaled 0.5 ; transform Taaaf ; numeric xaaag ; xaaag = xpart Taaaf ; numeric xaaah ; xaaah = ypart Taaaf ; xaaag = xaaah = 0; numeric xaaai ; xaaai = xxpart Taaaf ; xaaai = 1.0; numeric xaaaj ; xaaaj = yxpart Taaaf ; xaaaj = 2.0; numeric xaaak ; xaaak = xypart Taaaf ; xaaak = 3.0; numeric xaaal ; xaaal = yypart Taaaf ; xaaal = 4.0; pair zaaam ; zaaam = dir 30.0 ; pair zaaan ; zaaan = 3mm * zaaam; path paaao ; paaao:=paaae shifted zaaan ; pair zaaap ; zaaap = dir 150.0 ; pair zaaaq ; zaaaq = 3mm * zaaap; path paaar ; paaar:=paaae shifted zaaaq ; path paaas ; paaas:=paaad transformed Taaaf ; color caaat ; caaat = 0.79998779296875 * white; fill paaas withcolor caaat ; path paaau ; paaau:=paaao transformed Taaaf ; color caaav ; fill paaau withcolor caaat ; path paaaw ; paaaw:=paaar transformed Taaaf ; color caaax ; fill paaaw withcolor caaat ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;