Gyroscope Explanation

Manipulate[
 p = RotationMatrix[-2 Pi t, {1, 0, 0}].{0.2 Sin[2 Pi t], 0, 1};
 Graphics3D[{
   Opacity[0.5],
   Cylinder[{{-0.05, 0, 0}, {0.05, 0, 0}}, 1],
   Opacity[1],
   Sphere[p, 0.15],
   Arrow[{p, p + {Cos[2 Pi t], 0, 0}}],
   Red,
   Arrow[{{0, 0, 1}, {1, 0, 1}}],
   Arrow[{{0, 0, -1}, {-1, 0, -1}}],
   Black,
   Thickness[0.01],
   Table[Line[{{0, Sin[2 Pi t + x], Cos[2 Pi t + x]}, {0,
       Sin[2 Pi t + x + Pi], Cos[2 Pi t + x + Pi]}}], {x, 0, Pi, Pi/6}]

   }, PlotRange -> {{-1.2, 1.2}, {-1.2, 1.2}, {-1.2, 1.2}},
  Boxed -> False, ImageSize -> {250}, ViewPoint -> {0.5, 2, 0.1}]
 , {t, 0, 1}]