>
plot(
[(1+cos(t))*sin(t),-(1+cos(t))*cos(t),t=-Pi..Pi]);
Dites le avec des maths !