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