In HW 14, we had experimented with some art

L=1.2; r1=Thickness[0.01]; r2=Thickness[0.001]; c[t_]:=Hue[t/(2Pi)];
r[t_]:={Cos[t]+0.1*Sin[3t],Sin[t]+0.1*Sin[5t]};
F[t_]:=ParametricPlot[r[t]+s*r'[t],{s,-L,L},PlotStyle->{r2,c[t]}];
S1=ParametricPlot[r[t],{t,0,2Pi},PlotStyle->{White,r1}];
SS=Show[{S1,Table[F[t],{t,0,2Pi,0.01}]},Axes->False,AspectRatio->1,
  PlotRange->{{-2,2},{-2,2}},Background->RGBColor[0,0,0.2]]

L=1.1; r1=0.05; r2=0.02; n=100; c[t_]:=RGBColor[t/(2Pi),1-t/(2Pi),1];
r[t_]:={Cos[t]+0.1*Sin[3t],Sin[t]+0.1*Sin[5t], Cos[3t]+0.1*Sin[4t]};
F[t_]:=Graphics3D[{c[t],Tube[{r[t]-L*r'[t],r[t]+L*r'[t]},r2]}];
S1=Graphics3D[{White,Tube[Table[r[t],{t,0,2Pi,0.01}],r1]}];
TT=Show[{S1,Table[F[t],{t,0,2Pi,2Pi/n}]},Axes->False,AspectRatio->1,
PlotRange->All,Background->RGBColor[0.1,0,0],Boxed->False]

Export["art.png",GraphicsGrid[{{SS},{TT}}],"PNG",ImageSize->400];
Here are some sample submissions from the class: