archive
ask
personal
my art
instagram
Q & A
theme
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]
aestatestudio:

Daily inspiration. Learn more about the project www.aestate.be
maliara:

Playing cards - Makers and Brothers
hysteroids:

by Anton Demin
uvre:

Ron Gilad
in-frame:

💌 Envelope collage #collagesbytess
frexish:

•fresh•modern•
For Lily aka neude
By me