Obfuscate

A simple one tonight: a riff on this Daily Minimal piece.

Code:

rhombus[{x_, y_}, ?_] := 
  Polygon[{x, y} + # & /@ 
      Prepend[{#[[1]], #[[1]] + #[[2]], #[[2]]}, {0, 
        0}] &[{{Cos[?], 
      Sin[?]}, {Cos[? + ?/3], 
      Sin[? + ?/3]}}]];
basicblock[{x_, y_}, t_] := 
  Table[{rhombus[{x, y}, ? + t], 
    rhombus[{x + Cos[? + t] + Cos[? + t + ?/3], 
      y + Sin[? + t] + Sin[? + t + ?/3]}, ? +
       t + 2 ?/3]}, {?, 0, 2 ? - ?/3, ?/3}];

Manipulate[
 Graphics[{FaceForm[None], 
   EdgeForm[
    Directive[GrayLevel[45/255], JoinForm["Round"], 
     Thickness[.0065]]], 
   If[n >= 1, 
    Table[basicblock[{0, 0}, ? + ?/6.], {?, 
      0., (n - 1) ?/(3 n), ?/(3 n)}]]}, PlotRange -> 3.5, 
  ImageSize -> 540, Background -> RGBColor[{242, 240, 241}/255]], {n, 
  0, 30, 1}]