Parabolic Dish

frame[X_] := Module[{M},
  M = ((1 - 4 X^2)/(4 X));
  Show[
   Plot[x^2, {x, -0.5, 0.5}, PlotRange -> {{-1, 1}, {-0.1, 1}},
    Axes -> None, AspectRatio -> 1/2],
   Plot[(X - x) M + X^2, {x, -10 Sign[X], X},
    PlotStyle -> RGBColor[0.2, 0.6, 0.1]],
   Graphics[{
     Darker@RGBColor[0.2, 0.6, 0.1], Line[{{X, 1}, {X, X^2}}],
     PointSize[Medium], Darker@Red, Point[{0, 0.25}]
     }]
   ]];
Manipulate[frame[X], {X, -0.4, 0.4}]