Message Boards Message Boards

GROUPS:

[GIF] △▽ (Morphing triangle grid)

Posted 2 months ago
689 Views
|
1 Reply
|
7 Total Likes
|

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!

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