# [GIF] △▽ (Morphing triangle grid)

Posted 10 months ago
2004 Views
|
|
7 Total Likes
| △▽△▽△▽△▽▽△▽△▽△▽△△▽△▽△▽△▽▽△▽△▽△▽△Another foreground/background mixup. This time, the shapes are cross-sections of this: 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[], Polygon[{Sqrt/2 x - Sqrt/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/2, 5 Sqrt/2}, {-5, 4}}, PlotRangePadding -> -.01], {s, 0, \[Pi]}] ] Answer -- you have earned Featured Contributor Badge 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! Answer