When I said "nephroid" I actually meant [Ranunculoid](http://mathworld.wolfram.com/Ranunculoid.html) of course ;). Check this `Manipulate[Show[{Graphics[{
ParametricPlot[
scale*{6 Cos[t + s] - Cos[6 t + s],
6 Sin[t + s] - Sin[6 t + s]}, {t, 0, 2 \[Pi]},
PlotStyle -> Red, DisplayFunction -> Identity][[1]]
}], g1}, AspectRatio -> Automatic, ImageSize -> 200,
Ticks -> None], {{scale, 0.14}, 0.0001, 1}, {{s, 0.9424}, 0, Pi}]` where `g1`is your graphic.