# [GIF] Take Flight (Another Cairo tiling animation)

Posted 2 years ago
2509 Views
|
2 Replies
|
7 Total Likes
|
 Take FlightTaking 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
Sort By:
Posted 2 years ago
 - 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 2 years ago
 What a design! Thank you.
Community posts can be styled and formatted using the Markdown syntax.