[GIF]Breathe (Concentric Star Polygons Gradient) for Meditation

[shenghuiy (Shenghui Yang)]

Inspired by Clayton’s [GIF] Recede (Concentric circles gradient)

---

Use Clayton’s code in the above link and set trigonometric function the shadows for phase shift in each frame of the iteration, you can create the gif to control your breathe rythem.

anim1 = With[{\[Delta] = 1/12, 
    cols = RGBColor /@ {"#07090e", "#2bb3c0", "#faf7f2"}}, 
   Table[Graphics[Reverse[Table[s = Mod[r + i, 3/2];
         {Blend[cols, LogisticSigmoid[8 (s - 1/2)]], 
          Polygon@Map[
            RotationTransform[-Sin[s*\[Pi]*3*r]]@*
             RotationTransform[3*r*\[Pi]], star52[2*s], {2}]}, {i, 0, 
          3/2 - #, #}]] &[\[Delta]], PlotRange -> 1, ImageSize -> 540,
      Background -> cols[[-1]]], {r, 0, \[Delta], 0.004}]];

And

   anim2 = With[{\[Delta] = 1/12, 
    cols = RGBColor /@ {"#07090e", "#2bb3c0", "#faf7f2"}}, 
   Table[Graphics[Reverse[Table[s = Mod[r + i, 3/2];
         {Blend[cols, LogisticSigmoid[8 (s - 1/2)]], 
          Polygon@Map[
            RotationTransform[Sin[s*\[Pi]*3*r]]@*
             RotationTransform[-3*r*\[Pi]], star52[2*s], {2}]}, {i, 0,
           3/2 - #, #}]] &[\[Delta]], PlotRange -> 1, 
     ImageSize -> 540, Background -> cols[[-1]]], {r, 0, \[Delta], 
     0.004}]];

Visualize by

ListAnimate[anim[0]~Join~Reverse@anim[0]~Join~anim2~Join~Reverse[anim2]]

[wolframcommunity (EDITORIAL BOARD)]

• Congratulations! This post is now a Staff Pick as distinguished by a badge on your profile! Thank you, keep it coming, and consider contributing your work to the The Notebook Archive!

[johnotvos]

This is a phenomenal moving meditation. As a long retired woodworker, it looks quite difficult to build. As a newbie here I have a question about software. Is there a geometric program that would allow one to draw different sizes of the Baha’i nine-pointed star using different angles which would also compute the lengths and widths of the 18 identical members?