I have the following code to display three coloured disks and their coloured intersections. However, the result does not appear to have been anti-aliased enough. How can I make it smoother?
rDisk = Disk[{Cos[60 Degree], Sin[60 Degree]}];
gDisk = Disk[{1, 0}];
bDisk = Disk[{0, 0}];
rgbDisk = RegionIntersection[rDisk, gDisk, bDisk];
rgDisk = RegionIntersection[rDisk, gDisk];
rbDisk = RegionIntersection[rDisk, bDisk];
gbDisk = RegionIntersection[gDisk, bDisk];
Show[
Graphics[{Red, rDisk}],
Graphics[{Blue, bDisk}],
Graphics[{Green, gDisk}],
Graphics[{Blend[{Red, Blue}, 0.5], DiscretizeRegion[rbDisk]}],
Graphics[{Blend[{Red, Green}, 0.5], DiscretizeRegion[rgDisk]}],
Graphics[{Blend[{Green, Blue}, 0.5], DiscretizeRegion[gbDisk]}],
Graphics[{White, DiscretizeRegion[rgbDisk]}]
]
I tried adding Antialiasing->True
to the Graphics
, but: a) it didn't help; b) it added a mesh to the regions, which I don't like to have.