[GIF] Closing In (Hexagonal tiling morph)

Staff Picks
, , ,
1

hex6t.gif

Closing In

I kind of like the contrast between the hexagonal lattice and the square image shape in this one.

Code:

DynamicModule[{?, xpos, ypos, cols},
 cols = RGBColor /@ {"#03C1EB", "#86F3B8", "#482D57"};
 Manipulate[Graphics[Table[
    {xpos, ypos} = {Sqrt[3] x + (-1)^y Sqrt[3]/4, 3 y/2};
    ? = 2 ?/3 (Haversine[Clip[#, {0, ?}]]) &[t - ?/8 Max[Abs[xpos], Abs[ypos]]];
    {Blend[cols[[;; 2]], Sin[3 ?/2]], CapForm["Round"], 
     Thickness[.01], 
     Line[1.2 ({xpos, ypos}) + # & /@ {.2 {Cos[? + ?], Sin[? + ?]}, 
          {Cos[? + ?], Sin[? + ?]}}]}, 
     {x, -5, 5}, {y, -5, 5}, {?, ?/6, 3 ?/2, 2 ?/3}], PlotRange -> 9, 
   ImageSize -> 540, Background -> cols[[3]]], {t, 2 ?, 0}]]
4 Likes
2

2015-11-02_10-07-11.png

  • 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!