[GIF] Recede (Concentric circles gradient)

Staff Picks
, , , ,
1

disks8Lq.gif

Recede

Just a very simple gradient with concentric circles. One fun feature is the use of LogisticSigmoid[] for the color gradient. Here’s the code:

DynamicModule[{s, ? = 1/12, cols = RGBColor /@ {"#07090e", "#2bb3c0", "#faf7f2"}},
 Manipulate[
  Graphics[
   Reverse[
      Table[
       s = Mod[r + i, 3/2];
       {Blend[cols, LogisticSigmoid[8 (s - 1/2)]], Disk[{0, 0}, s]},
       {i, 0, 3/2 - #, #}]] &[?],
   PlotRange -> 1, ImageSize -> 540, Background -> cols[[-1]]],
  {r, 0, ?}]
 ]
6 Likes
[GIF]Breathe (Concentric Star Polygons Gradient) for Meditation
2

Beautiful! Slightly modify the code above we can have the following

5787loop.gif

anim = 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[s], star52[2*s], {2}]}, {i, 0,
           3/2 - #, #}]] &[\[Delta]], PlotRange -> 1, 
     ImageSize -> 540, Background -> cols[[-1]]], {r, 0, \[Delta], 
     0.003}]];

Animate the plot:

ListAnimate[anim~Join~anim]

where star52 is a function from

EntityClass["Lamina", "RegularPolygram"][EntityProperty["Lamina", "Vertices"]][[1]]

star.PNG
star.PNG784×223 36.8 KB

2 Likes
3

Another modification is that if you wrap every verices with RotationMatrix w.r.t. s and r, you can have something like this:

anim[offset_]:=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[-s]@*RotationTransform[2*r*\[Pi]+offset],star52[2*s],{2}]},{i,0,3/2-#,#}]]&[\[Delta]],PlotRange->1,ImageSize->540,Background->cols[[-1]]],{r,0,\[Delta],0.004}]];

ListAnimate[anim[0]~Join~anim[\[Pi]/6]]

7046loop.gif

4

Another modification is that if you wrap every verices with RotationMatrix w.r.t. s and r, you can have something like this:

anim[offset_]:=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[-s]@*RotationTransform[2*r*\[Pi]+offset],star52[2*s],{2}]},{i,0,3/2-#,#}]]&[\[Delta]],PlotRange->1,ImageSize->540,Background->cols[[-1]]],{r,0,\[Delta],0.004}]];

ListAnimate[anim[0]~Join~anim[\[Pi]/6]]

7046loop.gif

5

Another modification is that if you wrap every verices with RotationMatrix w.r.t. s and r, you can have something like this:

anim[offset_]:=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[-s]@*RotationTransform[2*r*\[Pi]+offset],star52[2*s],{2}]},{i,0,3/2-#,#}]]&[\[Delta]],PlotRange->1,ImageSize->540,Background->cols[[-1]]],{r,0,\[Delta],0.004}]];

ListAnimate[anim[0]~Join~anim[\[Pi]/6]]

7046loop.gif

6

These are very cool! Thanks!

7

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