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. slightlyspinning reblogged this from porcelainspine
  2. porcelainspine reblogged this from intothecontinuum
  3. metaphysicalboner reblogged this from intothecontinuum
  4. rhoim reblogged this from intothecontinuum
  5. dronesxoverxyou reblogged this from twodevans
  6. twodevans reblogged this from intothecontinuum
  7. jeanderoche reblogged this from intothecontinuum
  8. reorganizedremnants reblogged this from npr
  9. appetentamatheia reblogged this from intothecontinuum
  10. pointofspace reblogged this from intothecontinuum
  11. thesmellysalmon reblogged this from intothecontinuum
  12. angels-never-grow reblogged this from intothecontinuum
  13. pnppls reblogged this from intothecontinuum
  14. terra-delu reblogged this from intothecontinuum
  15. thevertical360 reblogged this from intothecontinuum
  16. eevess reblogged this from ddfdbp
  17. little-adults reblogged this from intothecontinuum
  18. albustheracistdragon reblogged this from intothecontinuum
  19. turquoisestarr reblogged this from soarin-soarin
  20. dark-pure-reality reblogged this from intothecontinuum
  21. nuweba reblogged this from great-ape-see
  22. great-ape-see reblogged this from intothecontinuum
  23. soarin-soarin reblogged this from intothecontinuum
  24. belzons449 reblogged this from intothecontinuum
  25. alexouilleposts reblogged this from intothecontinuum
  26. scootsallot reblogged this from dotwoltshire
  27. dotwoltshire reblogged this from intothecontinuum
  28. alterbeing reblogged this from intothecontinuum
  29. oeildemoire reblogged this from intothecontinuum
  30. c-r-a-z-o-2014 reblogged this from felixinclusis and added:
    felixinclusis :