![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/25…](https://images.squarespace-cdn.com/content/v1/57a7ffc959cc6810b821b785/1470682514912-IWW0HFNWVOXEHY86T3BO/tumblr_miupi86fuN1qbgkzxo1_500.gif)
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}]