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