f = ContourPlot; g = ContourStyle; t = Thickness; p = Graphics; Show[
Graphics[{RGBColor[1, 222/255, 48/255], Disk[{0, 0}, Sqrt[40]]}],
f[y == 1.45, {x, -5.5, -1}, {y, -1, 4}, g -> t[0.022]],
f[y == 1.45, {x, 5.5, 1}, {y, -1, 4}, g -> t[0.022]],
f[y == 0 + 0*x, {x, -5.5, -1}, {y, -1, 4}, g -> t[0.01]],
f[y == 0 + 0*x, {x, 5.5, 1}, {y, -1, 4}, g -> t[0.01]],
p[Disk[{-3.2, 0.75}, Sqrt[0.5]]], p[Disk[{3, 0.75}, Sqrt[0.5]]],
RegionPlot[(((1.1 x)^2) - 19)/4 <
y < (((0.78 (x + 0.5))^2) - 13.45)/4, {x, -5, 5}, {y, -9, 9},
PlotPoints -> 100, PlotStyle -> White]]