This code applies harmonious colours
baseColor = RandomColor[];
harmoniousPalette = Take[ColorData[1, "ColorList"], 14];
harmoniousColors = Prepend[harmoniousPalette, baseColor];
Graphics[{
{harmoniousColors[[1]], Disk[{0, 0}, 1, {0, Pi/2}]},
{harmoniousColors[[2]], Disk[{0, 0}, 1, {Pi, 2*Pi}]},
{harmoniousColors[[3]], Disk[{2, 0}, 1, {0, Pi/2}]},
{harmoniousColors[[4]], Disk[{2, 0}, 1, {Pi/2, Pi}]},
{harmoniousColors[[5]], Disk[{2, 0}, 1, {Pi, 3*Pi/2}]},
{Black, Disk[{2, 0}, 1, {3*Pi/2, 2*Pi}]},
{Black, Disk[{0, 0}, 1, {3*Pi/2, 2*Pi}]},
{harmoniousColors[[6]], Rectangle[{1, -2}, {2, -1}]},
{harmoniousColors[[7]], Rectangle[{-1, -2}, {0, -1}]},
{harmoniousColors[[8]], Disk[{0, -2}, 1, {Pi, 3*Pi/2}]},
{harmoniousColors[[9]], Disk[{2, -2}, 1, {3*Pi/2, 2*Pi}]},
{harmoniousColors[[10]], Disk[{0, -5}, 1, {Pi/2, Pi}]},
{harmoniousColors[[11]], Disk[{2, -5}, 1, {0, Pi/2}]},
{harmoniousColors[[12]], Rectangle[{0, -2}, {1, -1}]},
{harmoniousColors[[13]], Rectangle[{0, -3}, {1, -2}]},
{harmoniousColors[[14]], Rectangle[{1, -3}, {2, -2}]},
{RandomColor[], Rectangle[{2, -2}, {3, -1}]},
{RandomColor[], Rectangle[{0, -5}, {1, -4}]},
{RandomColor[], Rectangle[{1, -5}, {2, -4}]},
{RandomColor[], Disk[{0, 0}, 1, {0, Pi/2}]},
{RandomColor[], Disk[{0, 0}, 1, {Pi, 3*Pi/2}]},
{RandomColor[], Disk[{2, 0}, 1, {Pi, 3*Pi/2}]},
{RandomColor[], Disk[{2, 0}, 1, {0, Pi/2}]},
{RandomColor[], Disk[{2, 0}, 1, {Pi/2, Pi}]},
{RandomColor[], Rectangle[{-1, 0}, {0, 1}]}
}, ImageSize -> Large, PlotRange -> {{-2, 4}, {-6, 2}}]