Circlus - iomikron.tumblr.com

Circlus[maxNum_, MaxTheta_, stepTheta_, \[Phi]_] :=
 Module[{L1},
  	L1 = Table[{GrayLevel[(Sin[\[Theta]])^2],
     			Thickness[
      				RandomVariate[
       					NormalDistribution[0.0075, 0.01]
       					]],
     			Circle[{Sin[r*Sin[\[Theta] + Cos[\[Phi]]]],
       					Sin[r*Cos[\[Theta] + Sin[\[Phi]]]]},
      						r*Sin[\[Theta]*\[Phi]]^2]
     						},
    			{r, 1, maxNum},
    			{\[Theta], 0, MaxTheta, stepTheta}
			];
  	Return[L1]
  	];

Graphics[Circlus[40, 2 \[Pi], \[Pi]/10, phi],
  		Background -> Hue[{0.598, 0.282, 0.372, 1}],
  		PlotRange -> All,
  		ImageSize -> {400, 400}
  		]