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. c-r-a-z-o-2014 reblogged this from felixinclusis and added:
    felixinclusis :
  2. scottwasham reblogged this from bt7 and added:
    //intothecontinuum.tumblr.com/
  3. clazzjassicalrockhop reblogged this from intothecontinuum
  4. rafflesiaflowersforalgernon reblogged this from intothecontinuum
  5. insideoftheocean reblogged this from michealjordanus
  6. fantastiqueturquoise reblogged this from michealjordanus
  7. reblogprensesi reblogged this from michealjordanus
  8. michealjordanus reblogged this from intothecontinuum
  9. neezieneezie reblogged this from intothecontinuum
  10. alano5 reblogged this from intothecontinuum
  11. spongethuggin- reblogged this from infiniteacidtrip
  12. brainlikepancakebatter reblogged this from tiit
  13. atw211 reblogged this from intothecontinuum
  14. merlinhoot reblogged this from intothecontinuum
  15. oo0oo0oo0oo0oo reblogged this from lllllllllilllllllll
  16. gifzick reblogged this from re-venant
  17. valasion reblogged this from tiit
  18. archbastard reblogged this from shuer-loco
  19. analog-ears reblogged this from fumaflowers
  20. dukedesilver reblogged this from neezieneezie
  21. sanitysamalady reblogged this from neezieneezie
  22. enceladus-orchestra reblogged this from fumaflowers
  23. dodrugshavefun reblogged this from fumaflowers
  24. forsolongmyheartwasbreakin reblogged this from fumaflowers
  25. m-a-n-t-i-s reblogged this from fumaflowers
  26. fumaflowers reblogged this from camdonius and added:
    more psychedelic shit on http://fumaflowers.tumblr.com/
  27. volovant reblogged this from in-rear
  28. in-rear reblogged this from ansatsu-sha
  29. lightningstruckthewolf reblogged this from youareglitterbaby