Coeur pour Juliette
t=seq(from=-pi,to=pi,length.out=3000)
# r=(1+0.9*cos(8*t))*(1+.1*cos(24*t))*(0.9+.05*cos(200*t))*(1+sin(t))
# px=r*cos(t)
# py=r*sin(t)
# plot(px,py,type="l")
cx=16*(sin(t)^3)
cy=(13*cos(t))-(5*cos(2*t))-(2*cos(3*t))-(cos(4*t))
plot(cx,cy,type="l")
text(0,0, label="Juliette", cex=3)