Construct this pattern of the "sunflower":

> r:=exp(t);

> m:=64;

> a:=plot([[r*cos(t+2*Pi*k/m),r*sin(t+2*Pi*k/m),t=3..5]$k=1..m],scaling=constrained,color=red,axes=none):

> b:=plot([[r*cos(t+2*Pi*k/m),-r*sin(t+2*Pi*k/m),t=3..5]$k=1..m],scaling=constrained,color=blue,axes=none):

> with(plots):

Warning, the name changecoords has been redefined

maple