Message Boards Message Boards

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

GROUPS:

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}]

]

POSTED BY: Clayton Shonkwiler
Answer
4 months ago

Group Abstract Group Abstract