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. jeffbxco reblogged this from jeffbxco2
  6. technically-tony reblogged this from intothecontinuum
  7. laudland reblogged this from ryanpanos
  8. addictedtosymmetry reblogged this from intothecontinuum
  9. conscienza reblogged this from intothecontinuum
  10. babysoft7 reblogged this from intothecontinuum
  11. ronenreblogs reblogged this from intothecontinuum
  12. naked-thoughts-nude-heart reblogged this from ryanpanos
  13. skatetuff reblogged this from domdecarlo and added:
    deep lines
  14. glitchsigifs reblogged this from intothecontinuum
  15. 2d2d2 reblogged this from intothecontinuum
  16. pure-art-photography reblogged this from yeaaaahbaby
  17. yeaaaahbaby reblogged this from 1l1k3
  18. preshtildeath reblogged this from fromtheweirdtotheinsane
  19. fromtheweirdtotheinsane reblogged this from petuniagypsyfoot
  20. petuniagypsyfoot reblogged this from intothecontinuum
  21. juststefanie reblogged this from ryanpanos
  22. godual reblogged this from smoot
  23. ice-sparks reblogged this from intothecontinuum
  24. catalyst226 reblogged this from intothecontinuum
  25. wellshiet reblogged this from intothecontinuum
  26. radarloquere reblogged this from intothecontinuum
  27. smizzthewizz reblogged this from wickedcoolperson
  28. measurementoftheobserver reblogged this from intothecontinuum
  29. irrelephantish reblogged this from intothecontinuum
  30. soyconsecuencias reblogged this from linohlala