Zobniki

x[t_]:=4 Cos[t]+Cos[4 t];
y[t_]:=4 Sin[t]-Sin[4 t];
ParametricPlot[{x[t],y[t]},{t,0,2 Pi}]

ω=0.3;ParametricPlot[{s+x[t]Cos[ω s]+y[t] Sin[ω s] ,-x[t]Sin[ω s]+y[t] Cos[ω s] },{s,0,50},{t,0,2 Pi},Mesh->{20,0},PlotPoints->60]

R =10;ω=2;ParametricPlot[{R Cos[s]+x[t]Cos[s+ω s]+y[t]Sin[s+ω s],R Sin[s]+x[t]Sin[s+ω s]-y[t]Cos[s+ω s]},{s,0,2 Pi},{t,0,2 Pi},Mesh->{10,0},PlotPoints->60]