# [GIF] Fire in the Hole (Spheres on logarithmic spirals)

Posted 3 years ago
6208 Views
|
4 Replies
|
15 Total Likes
|
 Fire in the HoleI'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, ?}] ] 
4 Replies
Sort By:
Posted 3 years ago
 That's really cool! Only after removing the View-options I understood the shape of this object, very nice!
Posted 3 years ago
 Thanks!
 Yep, this marvelous one indeed hypnotized me for a while. Here is the full shape: With[ {?=?/8.,?=?/5.,s=0,cols=RGBColor/@{"#FECEA8","#E84A5F","#000000"}}, Graphics3D[ {cols[[1]],Table[Sphere[{E^((?+s)/10) Cos[?+t],E^((?+s)/10) Sin[?+t],E^((?+s)/30)},.01],{?,-10. ?,3 ?,?},{t,0.,2 ?,?}]}, ImageSize->{800,600}, Boxed->False, Background->cols[[-1]], Lighting->{{"Point",cols[[2]],{0,0,1/2}},{"Directional",cols[[1]],10 {-1,-1,1}}}, ViewAngle->0.332, ViewCenter->{{0.5,0.5,0.5},{0.602,0.359}}, ViewPoint->{-0.492,-1.934,-0.132}, ViewVertical->{0.54,-0.202,4.067} ] ] `