Manipulate[
ListPlot[Table[
If[t > d, {(e + 1) Cos[t], (e + 1) Sin[
t]}, {(e + 1 - c (t/(d))) Cos[t], (e + 1 - c (t/(d))) Sin[
t]}], {t, 0, 2 Pi, 0.011}]], {c, 0, e + 1}, {d, 0.011, Pi}, {e,
0, 4}]
Registered users: Bing [Bot], Google [Bot], Google Feedfetcher, Majestic-12 [Bot], Yahoo [Bot]