> w:=1+cos(t)/2:z:=t/6-sin(2*t)/12:x:=w*cos(z):y:=w*sin(z):

> plot([x,y,t=0..12*Pi],axes=none,scaling=constrained,color=blue);

>