Message Boards Message Boards

[GIF] In Darkness Let Me Dwell (Rotating hyperboloid II)

Rotating hyperboloid II

In Darkness Let Me Dwell

Continuing to play with Lighting, this time using "Ambient" to get non-black shadows. This is simply a rotating hyperboloid, where I'm just showing some of the lines in one of the two families of ruling lines. In other words, this is effectively the same object as shown in Light Show, though obviously that hyperboloid had smaller eccentricity.

Here's the code:

With[{? = 2., cols = RGBColor /@ {"#F95959", "#455D7A", "#233142"}},
 Manipulate[
  Graphics3D[{
    White, Thickness[.005],
    Table[
     Tube[{Cos[? + t], Sin[? + t], 0} + # 2 Sqrt[2] {-Sin[? + t] Cos[?], Cos[? + t] Cos[?], Sin[?]} & /@ {-1, 1}],
     {?, 0, 2 ?, 2 ?/40}]},
   PlotRange -> 3.5, ImageSize -> 540, Background -> cols[[-1]],
   Lighting -> {{"Point", cols[[1]], {0, 0, 0}}, {"Ambient", cols[[-1]], {0, -5, 0}}},
   ViewPoint -> {0, -5, 0}, Boxed -> False],
  {t, 0, 2 ?/40}]

]

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract