String Art

Manipulate[Graphics[{
   Table[
    Line[{{Sin[a], Cos[a]}, {Sin[a + 2 Pi/3 + t], Cos[a + 2 Pi/3]}}],
    {a, 0, 2 Pi - 0.001, Pi/50}]
   }, PlotRange -> {{-1, 1}, {-1, 1}}], {t, 0, 2 Pi}]