Alan's Swirls:

This space curve was produced using the following Maple commands:

> x:=cos(t)*3*cos(Pi*t);
> y:=sin(t)*3*sin(Pi*t);
> z:=t/2/Pi;

                       x := 3 cos(t) cos(Pi t)


                       y := 3 sin(t) sin(Pi t)


                                      t
                            z := 1/2 ----
                                      Pi

> with(plots):
> spacecurve([x,y,z],t=0..15*Pi,numpoints=4000,
>  axes='FRAMED',scaling='CONSTRAINED',orientation=[100,60]);