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

]