Posts tagged: Sol LeWitt

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}]

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}]