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