I want to create the following animation with Mathematica.

What is the simplest way to do so?

My first effort:

GenerateLines[a_, b_, r_, n_] := Table[r {Cos[\[Theta]], Sin[\[Theta]], 0}, {\[Theta], a, b, (b - a)/ n}]; basePts = GenerateLines[\[Pi]/6, 2 \[Pi] - \[Pi]/6, 3, 200]; peakPt = {{0, 0, 3}}; baseLine = Line@basePts; slantedLines = Line /@ Tuples[{basePts, peakPt}]; Graphics3D[{baseLine, slantedLines}]