input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) numeric xaaab ; xaaab = 2.0 * 1cm; numeric xaaac ; xaaac = 0.5 * 1cm; pair zaaad ; zaaad = ( xaaac , 0 ) ; path paaae ; paaae:=makepath pencircle ; path paaaf ; paaaf:=paaae scaled xaaab ; path paaag ; paaag:=paaaf shifted zaaad ; path paaah ; paaah:=paaag rotated 120.0 ; path paaai ; paaai:=paaah rotated 120.0 ; fill paaag withcolor red ; fill paaah withcolor green ; fill paaai withcolor blue ; pair zaaaj ; zaaaj = paaag intersectiontimes paaah ; pair zaaak ; zaaak = paaah intersectiontimes paaag ; numeric xaaal ; xaaal = xpart zaaaj ; numeric xaaam ; xaaam = xpart zaaak ; numeric xaaan ; xaaan = ypart zaaaj ; numeric xaaao ; xaaao = ypart zaaak ; path paaap ; paaap:=subpath ( xaaal , xaaao ) of paaag ; path paaaq ; paaaq:=subpath ( xaaam , xaaan ) of paaah ; path paaar ; paaar:=paaap .. paaaq .. cycle; color caaas ; caaas = red + green; fill paaar withcolor caaas ; pair zaaat ; zaaat = paaah intersectiontimes paaai ; pair zaaau ; zaaau = paaai intersectiontimes paaah ; numeric xaaav ; xaaav = xpart zaaat ; numeric xaaaw ; xaaaw = xpart zaaau ; numeric xaaax ; xaaax = ypart zaaat ; numeric xaaay ; xaaay = ypart zaaau ; path paaaz ; paaaz:=subpath ( xaaav , xaaay ) of paaah ; path paaba ; paaba:=subpath ( xaaaw , xaaax ) of paaai ; path paabb ; paabb:=paaaz .. paaba .. cycle; color caabc ; caabc = green + blue; fill paabb withcolor caabc ; pair zaabd ; zaabd = paaai intersectiontimes paaag ; pair zaabe ; zaabe = paaag intersectiontimes paaai ; numeric xaabf ; xaabf = xpart zaabd ; numeric xaabg ; xaabg = xpart zaabe ; numeric xaabh ; xaabh = ypart zaabd ; numeric xaabi ; xaabi = ypart zaabe ; path paabj ; paabj:=subpath ( xaabf , xaabi ) of paaai ; path paabk ; paabk:=subpath ( xaabg , xaabh ) of paaag ; path paabl ; paabl:=paabj .. paabk .. cycle; color caabm ; caabm = blue + red; fill paabl withcolor caabm ; path paabn ; paabn:=subpath ( xaabg , xaaao ) of paaag ; path paabo ; paabo:=subpath ( xaaam , xaaay ) of paaah ; path paabp ; paabp:=subpath ( xaaaw , xaabi ) of paaai ; path paabq ; paabq:=paabn .. paabo .. paabp .. cycle; fill paabq withcolor white ; draw paaag ; draw paaah ; draw paaai ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;