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