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. jstownsend reblogged this from intothecontinuum
  2. dimensionsinyourmind reblogged this from intothecontinuum
  3. aras008 reblogged this from intothecontinuum and added:
    Off
  4. glossolaalia reblogged this from intothecontinuum
  5. typh00nlulu reblogged this from intothecontinuum
  6. ligerlaserpanzer reblogged this from diymblr
  7. slumflower88 reblogged this from seeselfblack
  8. seeselfblack reblogged this from eye4daphonk
  9. clayspur reblogged this from intothecontinuum
  10. justarandomone reblogged this from porcelainspine
  11. freedles reblogged this from intothecontinuum
  12. slightlyspinning reblogged this from porcelainspine
  13. porcelainspine reblogged this from intothecontinuum
  14. metaphysicalboner reblogged this from intothecontinuum
  15. rhoim reblogged this from intothecontinuum
  16. dronesxoverxyou reblogged this from twodevans
  17. twodevans reblogged this from intothecontinuum
  18. jeanderoche reblogged this from intothecontinuum
  19. reorganizedremnants reblogged this from npr
  20. appetentamatheia reblogged this from intothecontinuum
  21. pointofspace reblogged this from intothecontinuum
  22. thesmellysalmon reblogged this from intothecontinuum
  23. angels-never-grow reblogged this from intothecontinuum
  24. pnppls reblogged this from intothecontinuum
  25. terra-delu reblogged this from intothecontinuum
  26. thevertical360 reblogged this from intothecontinuum
  27. eevess reblogged this from ddfdbp
  28. stuffmylunchbox reblogged this from intothecontinuum
  29. arcticfunkyjunkies reblogged this from intothecontinuum
  30. turquoisestarr reblogged this from soarin-soarin