Message Boards Message Boards

GROUPS:

[GIF] Take Flight (Another Cairo tiling animation)

Posted 3 years ago
3249 Views
|
2 Replies
|
7 Total Likes
|

Cairo tiling animation

Take Flight

Taking the butterfly conceit from my last animation even more literally.

Here's the code:

DynamicModule[{t = π/6., s, cols},
 cols = RGBColor /@ {"#FA5555", "#F7FB76", "#8DED8E", "#2D7D8F"};
 Manipulate[
  Graphics[{FaceForm[None], EdgeForm[Thickness[.005]], 
    Table[s = π/3. Haversine[2 r]; {EdgeForm[
       Blend[{GrayLevel[.9], If[EvenQ[x], cols[[1]], cols[[2]]]}, 
        3 s/π]], 
      Polygon[FoldList[
        Plus, {Sqrt[3] (x + (-1)^x 2 Haversine[r]), 
         2 Sqrt[3] y + Sqrt[3] HeavisideTheta[(-1)^x]}, 
        Table[{Cos[θ], 
          i (3/4 + Cos[2 i r]/4) Sin[θ]}, {θ, 
          Accumulate[{π/3, π/2, π/3, π/
             2}]}]]]}, {x, -9, 8}, {y, -4, 4}, {i, {-1, 1}}], 
    Table[s = π/3. Haversine[2 r]; {EdgeForm[
       Blend[{GrayLevel[.9], If[EvenQ[x], cols[[3]], cols[[4]]]}, 
        3 s/π]], 
      Polygon[FoldList[
        Plus, {2 Sqrt[3] y + 
          Sqrt[3] HeavisideTheta[(-1)^x] - (3 Sqrt[3] - 1)/2, 
         Sqrt[3] (x + (-1)^x 2 Haversine[r]) + (Sqrt[3] - 1)/2}, 
        Table[{i (3/4 + Cos[2 i r]/4) Sin[θ], 
          Cos[θ]}, {θ, 
          Accumulate[{π/3, π/2, π/3, π/
             2}]}]]]}, {x, -9, 8}, {y, -4, 4}, {i, {-1, 1}}]}, 
   PlotRange -> {{-9 - Sqrt[3], 10}, {-10, 10}}, ImageSize -> 540, 
   Background -> GrayLevel[.15]], {r, 0., π}]]
2 Replies
Posted 3 years ago

What a design! Thank you.

enter image description here - another post of yours has been selected for the Staff Picks group, congratulations !

We are happy to see you at the tops of the "Featured Contributor" board. Thank you for your wonderful contributions, and please keep them coming!

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract