Message Boards Message Boards

[GIF] △▽ (Morphing triangle grid)

Morphing triangle grid

△▽△▽△▽△▽
▽△▽△▽△▽△
△▽△▽△▽△▽
▽△▽△▽△▽△

Another foreground/background mixup. This time, the shapes are cross-sections of this:

Spinning 3D solid with hexagonal cross-sections

This is done in six separate pieces that were stitched together. Here's a Manipulate version of the first:

DynamicModule[{t, cols = RGBColor /@ {"#032d3c", "#94fc13"}},
 Manipulate[
  t = 1/2 - Cos[s]/2;
  Graphics[
   {White, Thickness[.005],
    Table[
     {cols[[1]],
      Polygon[{Sqrt[3]/2 x - Sqrt[3]/2, 3/2 y} + # & /@ Append[#, First[#]]]
        &[Riffle[
        (1 - t/2) Table[{Cos[\[Theta]], (-1)^(x + y) Sin[\[Theta]]}, {\[Theta], \[Pi]/2, 2 \[Pi], 2 \[Pi]/3}],
        (1/2 + t/2) Table[{Cos[\[Theta]], (-1)^(x + y) Sin[\[Theta]]}, {\[Theta], 5 \[Pi]/6, 13 \[Pi]/6, 2 \[Pi]/3}]]]},
     {y, -4, 3}, {x, If[OddQ[y], Range[-5, 5, 2], Range[-4, 6, 2]]}]},
   ImageSize -> 540, Background -> cols[[-1]], 
   PlotRange -> {{-5 Sqrt[3]/2, 5 Sqrt[3]/2}, {-5, 4}}, 
   PlotRangePadding -> -.01],
  {s, 0, \[Pi]}]
 ]

enter image description here -- you have earned Featured Contributor Badge enter image description here Your exceptional post has been selected for our editorial column Staff Picks http://wolfr.am/StaffPicks and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you!

POSTED BY: Moderation Team
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