Horizon

This is essentially the exact same code as Stay Upright; the only real difference is that it's viewed from a different perspective.

Here's the code:

DynamicModule[{n = 100, a = ?/4, viewpoint = {1, -1, 0}, ? = ?, range = 8, plane,
  cols = RGBColor /@ {"#F71735", "#FDFFFC", "#41EAD4", "#011627"}},
 plane = NullSpace[{viewpoint}];
 Manipulate[
  Graphics[{Thickness[.003], 
    Table[{Blend[cols[[;; -2]], r/?], 
      InfiniteLine[
       RotationMatrix[?].plane.# & /@ {{Cot[r] Csc[a], 0, Cot[a]}, {0, Cot[r] Sec[a], -Tan[a]}}]}, 
      {r, 2 ?/n + s, ?, 2 ?/n}]},
   Background -> cols[[-1]], PlotRange -> range, ImageSize -> 540],
  {s, 0, 2 ?/n}]
 ]