Soothing Mandala-like Animation

Staff Picks
, , , ,
1

Life is stressful. Seems unbelievable, but Mathematica can help us relax after just a few lines of code.
This quite simple piece of code generates animated mandala-like pictures that will calm you down. At least, this works for me :slight_smile:

Animate[Graphics@
  Table[{Thick, Dotted, Hue[r/360, 1, 1, .4], 
    Line[{{Cos[x r Degree], Sin[x r Degree]},
             {Cos[39 r Degree], Sin[ 39 r Degree]}}]}, 
  {r, 0, 360, 1}], 
{x,Select[Range[1, 360], ! IntegerQ[#/3] &]}, 
ControlPlacement -> Top,DefaultDuration -> 360]

39 in the second point of line was chosen by chance. I’ve decided, that 2D parameters are unnecessary. I’ve also decided to skip multiplies of 3 in iterator x, because they produce not so harmonic pictures as others.

CosSinGraphics.jpg
CosSinGraphics.jpg407×433 116 KB

I’ve also found some images that look especially fascinating for me (however, there is so much more to explore!)

calm.jpg
calm.jpg942×940 559 KB

31-31-39-39.jpg
31-31-39-39.jpg942×940 473 KB

So turn on some relaxing music…I hope you’ll enjoy it!)

8 Likes
2

The second one is very neat, can’t figure out the ‘rule’ ! very intricate.

1 Like
3

This is it:

Graphics@
  Table[{Thick, Dotted, Hue[r/360, 1, 1, .4], 
    Line[{{Cos[31 r Degree], Sin[31 r Degree]},
             {Cos[39 r Degree], Sin[ 39 r Degree]}}]}, 
  {r, 0, 360, 1}]

Also looks great in black and white:

31-31_39-39.jpg
31-31_39-39.jpg578×570 180 KB

4 Likes
4

I only knew of these kinds of visualizations:

Graphics[Line[Tuples[N@CirclePoints[17], 2]]]

ScreenShot2016-06-05at12.56.55.png
ScreenShot2016-06-05at12.56.55.png720×710 127 KB

However yours are much more intricate, very nicely done!

2 Likes
5

If you can generate an animation that makes people dizzy, you could probably make money selling it to people who need to retrain their vestibulo-ocular reflex, the brain circuitry that coordinates inputs from the various senses.

2 Likes
6

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

  • another post of yours has been selected for the Staff Picks group, congratulations !

We are happy to see you at the tops of the “Featured Contributor” board. Thank you for your wonderful contributions, and please keep them coming!

7

Very nice!

1 Like
8

Wow! This is great material. You can find many of these crazy-looking animations at the Twitter account “Tweet-a-Program”: Tweet-a-Program (@wolframtap) / X. Mrs. Silvia Torosyan is a frequent contributor; some of her codes are published thereof. :slight_smile:

1 Like
9

I am not sure how soothing are these, but I do that find them visually intriguing:

SeedRandom[1587];
ResourceFunction["RandomMandala"]["Radius" -> {10, 11, 9}, 
 "RotationalSymmetryOrder" -> Reverse[11*2^Range[3]], 
 "ConnectingFunction" -> FilledCurve@*BezierCurve, 
 ColorFunction -> "DarkRainbow", FaceForm -> {Opacity[0.3]}, 
 EdgeForm -> {Yellow, Opacity[0.6]}, ImageSize -> 1000]

1587-soothing.jpeg
1587-soothing.jpeg1000×998 186 KB

SeedRandom[2344];
ResourceFunction["RandomMandala"]["Radius" -> {8, 10, 6}, 
 "RotationalSymmetryOrder" -> Reverse[5*2^Range[3]], 
 "ConnectingFunction" -> FilledCurve@*BezierCurve, 
 ColorFunction -> "Rainbow", FaceForm -> {Opacity[0.3]}, 
 EdgeForm -> {Yellow, Opacity[0.6]}, ImageSize -> 1000]

2344-soothing.jpeg
2344-soothing.jpeg1000×998 114 KB

5 Likes
10

Here are animations based on the random mandalas above:

1 Like