A Moire pattern inspired by ‘eddying currents’

Mathematica code:
Eddy[x_, y_, s_, n_, th_, R_] := Translate[  {Thickness[th], Line[    Table[     If[R == 0,       TransformationFunction[IdentityMatrix[3]],        ReflectionTransform[{0, 1}]]      [{If[Or[Mod[i, 4] == 0, Mod[i, 4] == 1],        Floor[(i + 1)/4], s - Floor[i/4]],        If[Or[Mod[i, 4] == 0, Mod[i, 4] == 3],        Floor[Abs[(i - 1)]/4], s - Floor[i/4]]}],     {i, 0, n, 1}]]},  {x, y}]G[pr_, th_, o_, h_, s_, n_, X_, Y_, t_] := Graphics[{   Table[    Eddy[1 + X*x, 1 + Y*y, s, n, th, Mod[x, 2]],    {x, 0, 8, 1}, {y, 0, 8, 1}],   Translate[    Table[     {Opacity[o], Thickness[th],       Line[       Table[{{i - j*i, j*i}, {i - j*(i - h), h - j*h + j*i}},       {i, -h, h, 1}]]},     {j, 0, 1}],    {-t, -t}]},  PlotRange -> {{0, pr}, {0, 7/5 pr}}, ImageSize -> {500, 700}]
Manipulate[ G[40, .011, 1, 60, 5.25, 11, 7.2, 7.2, t], {t, 1, 1/30, -1/30}]

A Moire pattern inspired by ‘eddying currents

Mathematica code:

Eddy[x_, y_, s_, n_, th_, R_] := 
Translate[
{Thickness[th], Line[
Table[
If[R == 0,
TransformationFunction[IdentityMatrix[3]],
ReflectionTransform[{0, 1}]]
[{If[Or[Mod[i, 4] == 0, Mod[i, 4] == 1],
Floor[(i + 1)/4], s - Floor[i/4]],
If[Or[Mod[i, 4] == 0, Mod[i, 4] == 3],
Floor[Abs[(i - 1)]/4], s - Floor[i/4]]}],
{i, 0, n, 1}]]},
{x, y}]


G[pr_, th_, o_, h_, s_, n_, X_, Y_, t_] :=
Graphics[{
Table[
Eddy[1 + X*x, 1 + Y*y, s, n, th, Mod[x, 2]],
{x, 0, 8, 1}, {y, 0, 8, 1}],
Translate[
Table[
{Opacity[o], Thickness[th],
Line[
Table[{{i - j*i, j*i}, {i - j*(i - h), h - j*h + j*i}},
{i, -h, h, 1}]]},
{j, 0, 1}],
{-t, -t}]},
PlotRange -> {{0, pr}, {0, 7/5 pr}}, ImageSize -> {500, 700}]

Manipulate[
G[40, .011, 1, 60, 5.25, 11, 7.2, 7.2, t],
{t, 1, 1/30, -1/30}]
 
  1. aras008 reblogged this from intothecontinuum and added:
    Off
  2. glossolaalia reblogged this from intothecontinuum
  3. typh00nlulu reblogged this from intothecontinuum
  4. ligerlaserpanzer reblogged this from diymblr
  5. slumflower88 reblogged this from seeselfblack
  6. seeselfblack reblogged this from eye4daphonk
  7. clayspur reblogged this from intothecontinuum
  8. justarandomone reblogged this from porcelainspine
  9. freedles reblogged this from intothecontinuum
  10. slightlyspinning reblogged this from porcelainspine
  11. porcelainspine reblogged this from intothecontinuum
  12. metaphysicalboner reblogged this from intothecontinuum
  13. rhoim reblogged this from intothecontinuum
  14. dronesxoverxyou reblogged this from twodevans
  15. twodevans reblogged this from intothecontinuum
  16. jeanderoche reblogged this from intothecontinuum
  17. reorganizedremnants reblogged this from npr
  18. appetentamatheia reblogged this from intothecontinuum
  19. pointofspace reblogged this from intothecontinuum
  20. thesmellysalmon reblogged this from intothecontinuum
  21. angels-never-grow reblogged this from intothecontinuum
  22. pnppls reblogged this from intothecontinuum
  23. terra-delu reblogged this from intothecontinuum
  24. thevertical360 reblogged this from intothecontinuum
  25. eevess reblogged this from ddfdbp
  26. stuffmylunchbox reblogged this from intothecontinuum
  27. arcticfunkyjunkies reblogged this from intothecontinuum
  28. turquoisestarr reblogged this from soarin-soarin
  29. dark-pure-reality reblogged this from intothecontinuum
  30. nuweba reblogged this from great-ape-see