intothecontinuum: Mathematica code: S[n_, t_] := Sin[n*2 Pi/50 + t]ListAnimate[ Show[ Table[ Plot[ 100 - n + (10*S[n,t] + .02)*Exp[-(x - 4.5*S[n, 0])^2/Abs[S[n,t]]], {x, -10, 10}, PlotStyle - Directive[Black, Thick], PlotRange - {{-7, 7}, {0, 100.5}}, Filling - Axis, FillingStyle - White, Axes - False, AspectRatio - Full, ImageSize - {500, 750}], {n, -10, 100, 1}]],{t, .001, 2 Pi + .001, (2 Pi + .001)/30}, AnimationRunning-False]
![intothecontinuum: Mathematica code: S[n_, t_] := Sin[n*2 Pi/50 + t]ListAnimate[ Show[ Table[ Plot[ 100 - n + (10*S[n,t] + .02)*Exp[-(x - 4.5*S[n, 0])^2/Abs[S[n,t]]], {x, -10, 10}, PlotStyle - Directive[Black, Thick], PlotRange - {{-7, 7}, {0, 100.5}}, Filling - Axis, FillingStyle - White, Axes - False, AspectRatio - Full, ImageSize - {500, 750}], {n, -10, 100, 1}]],{t, .001, 2 Pi + .001, (2 Pi + .001)/30}, AnimationRunning-False] Doodles Zentangles, Zentangle Art, Zentangle Patterns, Doodle Patterns, Doodle Borders, Op Art, Illusion Kunst, Illusion Art, Optical Art](https://i.pinimg.com/236x/2d/ac/51/2dac51024f4a41df821adf7447edef8f--zentangle.jpg)
