Plot[{Sqrt[1 - x^2], -Sqrt[1 - x^2], Sqrt[x - x^2], -Sqrt[-x - x^2], Sqrt[0.005 - (x - 0.5)^2], -Sqrt[0.005 - (x - 0.5)^2], Sqrt[0.005 - (x + 0.5)^2], -Sqrt[0.005 - (x + 0.5)^2]}, {x, -1, 1}, Axes -> False, PlotStyle -> Black, Filling -> {2 -> {{4}, Black}, 2 -> {Axis, Black}, 3 -> {Axis, Black}, 4 -> {Axis, White}, 5 -> {{6}, White}, 7 -> {{8}, Black}}, AspectRatio -> Automatic]