Show@{Table[ParametricPlot[{Cos[θ]t, Sin[θ]t-(1/2)(t^2)},{t,0, 2Sin[θ]+(10^(-9))},PlotRange->{{-1,1},{0,0.6}}],{θ,((-π)/2),(π/2),(π/20)}],
Graphics[Table[Disk[{Cos[θ]Sin[θ],(1/2)((Sin[θ])^2)},0.015],{θ,((-π)/2),(π/2),(π/20)}]],
ParametricPlot[{(1/2)Cos[t],(1/4)(1+Sin[t])},{t,0,2π},PlotStyle->Red]}