Message Boards Message Boards

[GIF] Take Flight (Another Cairo tiling animation)

GROUPS:

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., π}]]
POSTED BY: Clayton Shonkwiler
Answer
1 year ago

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!

POSTED BY: Moderation Team
Answer
1 year ago

What a design! Thank you.

POSTED BY: Razib Paul
Answer
1 year ago

Group Abstract Group Abstract