Mathematica code:
Rot =  Table[  Table[   RotationTransform[a, {1, 1, 0}, {0, 0, 0}][Tuples[{-1, 1}, 3][[v]]],  {v, 1, 8, 1}],{a, 0, 2 Pi, 2 Pi/100}]Edge := {1, 2, 4, 3, 7, 8, 6, 5, 1, 3, 4, 8, 7, 5, 6, 2}CubeProjections[color_, pr_, b_, s_, h_, w_, m_, o_] :=Graphics[ Table[  Translate[   {AbsoluteThickness[h], If[color == 0, Black, White],    Line[     Table[      Table[       Rot[[1 + Mod[w (y + m*x) + a, 100]]][[Edge[[k]]]][[c]],       {c, 1, 2, 1}],      {k, 1, 16, 1}]]},   {s*x, s*y}],  {x, -b, b, 1}, {y, -b, b, 1}], PlotRange -> {{-pr, pr}, {-pr, pr}}, ImageSize -> 500,  Background -> If[color == 0, White, Black] ]Manipulate[PM = {color, pr, b, s, h, w, m, a};CubeProjections[color, pr, b, s, h, w, m, a],{color, 0, 1, 1}, {{pr, 17}, 1, 52}, {{b, 5}, 1, 10, 1},{{s, 3}, 0, 5}, {{h, 1}, .01, 10},{{w, 1}, 0, 20, 1},{{m, 1}, 0, 20, 1},{a, 1, 100, 1}]P = {1, 28, 9, 3, 1.4, 1, 1, 30}Manipulate[CubeProjections[P[[1]],P[[2]],P[[3]],P[[4]],P[[5]],P[[6]],P[[7]],a],{a, 48, 0, -2}]



Mathematica code:

Rot = 
Table[
Table[
RotationTransform[a, {1, 1, 0}, {0, 0, 0}][Tuples[{-1, 1}, 3][[v]]],
{v, 1, 8, 1}],
{a, 0, 2 Pi, 2 Pi/100}]

Edge := {1, 2, 4, 3, 7, 8, 6, 5, 1, 3, 4, 8, 7, 5, 6, 2}

CubeProjections[color_, pr_, b_, s_, h_, w_, m_, o_] :=
Graphics[
Table[
Translate[
{AbsoluteThickness[h], If[color == 0, Black, White],
Line[
Table[
Table[
Rot[[1 + Mod[w (y + m*x) + a, 100]]][[Edge[[k]]]][[c]],
{c, 1, 2, 1}],
{k, 1, 16, 1}]]},
{s*x, s*y}],
{x, -b, b, 1}, {y, -b, b, 1}],
PlotRange -> {{-pr, pr}, {-pr, pr}}, ImageSize -> 500,
Background -> If[color == 0, White, Black]
]

Manipulate[
PM = {color, pr, b, s, h, w, m, a};
CubeProjections[color, pr, b, s, h, w, m, a],
{color, 0, 1, 1}, {{pr, 17}, 1, 52}, {{b, 5}, 1, 10, 1},
{{s, 3}, 0, 5}, {{h, 1}, .01, 10},
{{w, 1}, 0, 20, 1},{{m, 1}, 0, 20, 1},
{a, 1, 100, 1}]

P = {1, 28, 9, 3, 1.4, 1, 1, 30}

Manipulate[
CubeProjections[P[[1]],P[[2]],P[[3]],P[[4]],P[[5]],P[[6]],P[[7]],a],
{a, 48, 0, -2}]
 
  1. adidhash reblogged this from intothecontinuum
  2. jeanderoche reblogged this from intothecontinuum
  3. billycrystals reblogged this from intothecontinuum
  4. reveriegroup3 reblogged this from intothecontinuum
  5. technically-tony reblogged this from intothecontinuum
  6. laudland reblogged this from ryanpanos
  7. addictedtosymmetry reblogged this from intothecontinuum
  8. conscienza reblogged this from intothecontinuum
  9. babysoft7 reblogged this from intothecontinuum
  10. ronenreblogs reblogged this from intothecontinuum
  11. naked-thoughts-nude-heart reblogged this from ryanpanos
  12. skatetuff reblogged this from domdecarlo and added:
    deep lines
  13. glitchsigifs reblogged this from intothecontinuum
  14. 2d2d2 reblogged this from intothecontinuum
  15. pure-art-photography reblogged this from yeaaaahbaby
  16. yeaaaahbaby reblogged this from 1l1k3
  17. preshtildeath reblogged this from fromtheweirdtotheinsane
  18. fromtheweirdtotheinsane reblogged this from petuniagypsyfoot
  19. petuniagypsyfoot reblogged this from intothecontinuum
  20. juststefanie reblogged this from ryanpanos
  21. godual reblogged this from smoot
  22. ice-sparks reblogged this from intothecontinuum
  23. catalyst226 reblogged this from intothecontinuum
  24. wellshiet reblogged this from intothecontinuum
  25. radarloquere reblogged this from intothecontinuum
  26. smizzthewizz reblogged this from wickedcoolperson
  27. measurementoftheobserver reblogged this from intothecontinuum
  28. irrelephantish reblogged this from intothecontinuum
  29. soyconsecuencias reblogged this from linohlala
  30. laclemdelaclem reblogged this from intothecontinuum