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