Intersection of four circles

SeedRandom[1234]
colors = RandomColor[4];
centers = Tuples[{-1, 1}/2, {2}];

Graphics[MapThread[{Opacity[.5], #, EdgeForm[{Darker@#, Thick}], Translate[Disk[], #2]} &, 
   {colors, centers}]]

enter image description here

colors = {Red, Green, Blue, Yellow};
labels = {"Paperwork Process", "MentalProcess", "Human Aspect", "Technical Tools"};


Graphics[{MapThread[{EdgeForm[{Darker@#, Thick}], #, Translate[Disk[], #2], 
  Text[Style[#3, 14, FontOpacity -> 1, FontColor -> Black], {4, 3} #2], 
  Arrowheads[Medium], Black, Arrow[{{4, 2.75} #2, {3, 2} #2}]} &, 
  {colors, centers, labels}], 
 Opacity[1], Text[Style["Education", 14], {0, 0}]}, 
 ImageSize -> Large]

enter image description here


The midpoints of the four circles(radius r) lie on a square(sidelength a) Change Circle to Disk to get colored circles.

With[{a = 0.5, r = 1}, Graphics[{ EdgeForm[Black], Opacity[.2],
FaceForm[Blue], Disk[{a, a}, r], Circle[{-a, a}, r],Circle[{-a, -a}, r] , Circle[{ a, -a}, r]}]]

enter image description here

Tags:

Graphics

Recent Posts