Fire in the Hole

I'm not exactly sure what to say about this. I was somewhat inspired by Frédéric Vayssouze-Faure's worries bin and I started by plotting Gabriel's Horn. After some playing around, I ended up with the spheres lying on logarithmic spirals on the surface of revolution for the graph of $f(x)=\frac{1}{x^3}$.

This was also the first time I've used Lighting in a nontrivial way, and it was very cool to see how much you can change the mood just by changing the location and color of a couple of point lights.

Here's the code:

With[{? = ?/8., ? = ?/5., cols = RGBColor /@ {"#FECEA8", "#E84A5F", "#000000"}}, Manipulate[ Graphics3D[ {cols[[1]], Table[ Sphere[{E^((? + s)/10) Cos[? + t], E^((? + s)/10) Sin[? + t], E^((? + s)/30)}, .01], {?, -10. ?, 3 ?, ?}, {t, 0., 2 ?, ?}]}, PlotRange -> {{-5, 5}, {-5, 5}, {0, 2}}, ViewAngle -> ?/50, ImageSize -> {800, 600}, Boxed -> False, Background -> cols[[-1]], Lighting -> {{"Point", cols[[2]], {0, 0, 1/2}}, {"Directional", cols[[1]], 10 {-1, -1, 1}}}, ViewPoint -> {1, 1, 1}, ViewVertical -> {0, 0, 1}, ViewCenter -> {0.5, 0.5, 0.35}], {s, 0, ?}] ]