Inspired by Successive Rows of Horizontal Straight Lines from Top to Bottom & Vertical Straight Lines from Left to Right (1972) by Sol LeWitt.

Mathematica code:

BG =
 Polygon[
 {ImageScaled[{0, 0}], ImageScaled[{1, 0}],
  ImageScaled[{1, 1}], ImageScaled[{0, 1}]}, 
 VertexColors ->
  {RGBColor[240/255, 237/255, 222/255],
   RGBColor[229/255, 226/255, 211/255], 
   RGBColor[228/255, 227/255, 209/255],
   RGBColor[214/255, 215/255, 199/255]}];

Manipulate[
 Graphics[
  Table[
   Rotate[
    Table[
     Table[
      Line[
       {{Mod[i + j/14 + (1 + r) t + r/2, 12], 0},
        {Mod[i + j/14 + (1 + r) t + r/2, 12], 12}}],
     {j, -i/2, i/2, 1}],
    {i, 0, 12, 1}],
   -r*Pi/2, {6, 6}],
  {r, {0, 1}}],
 PlotRange -> {{0, 11.5}, {0, 11.5}}, ImageSize -> 500, Prolog -> BG],
{{t, 11.05}, 0, 12}]