Mathematica code:

Rot60 = 
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/60}]

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_, a_] :=
Graphics[
Table[
Translate[
{AbsoluteThickness[h], If[color == 0, Black, White],
Line[
Table[
Table[
Rot60[[1 + Mod[w (y + m*x) + a, 60]]][[Edge[[k]]]][[c]],
{c, 1, 2, 1}],
{k, 1, 16, 1}]]},
{s*x, s*y}],
{x, -6, 6, 1}, {y, -b, b, 1}],
PlotRange -> {{-pr/3, pr/3}, {-pr+1, pr-1}}, 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, 20, 1},
{{s, 3}, 0, 5}, {{h, 1}, .01, 10},
{{w, 1}, 0, 20, 1},{{m, 1}, 0, 20, 1},
{a, 1, 60, 1}]

P = {0, 29, 20, 1.3, 2.5, 1, 0, 0}

Manipulate[
CubeProjections30[P[[1]], P[[2]], P[[3]], P[[4]], P[[5]], P[[6]],
P[[7]], a],
{a, 1, 30, 1}]
 
  1. suchisasami reblogged this from intothecontinuum
  2. clazzjassicalrockhop reblogged this from intothecontinuum
  3. welcometorealitypark reblogged this from intothecontinuum
  4. quietcoimetromaniac reblogged this from proofmathisbeautiful
  5. technically-tony reblogged this from intothecontinuum
  6. globalmutt reblogged this from longsnowsmoon
  7. senefra reblogged this from intothecontinuum
  8. cottoncandytommotheninja reblogged this from intothecontinuum
  9. invisiblejonsters reblogged this from intothecontinuum
  10. esho84 reblogged this from mer-de-noms
  11. cherrytooth reblogged this from trasspaso
  12. trasspaso reblogged this from mer-de-noms
  13. mer-de-noms reblogged this from amor-invictus
  14. thaladyk reblogged this from itsjessmehere
  15. ishouldgethelp reblogged this from intothecontinuum
  16. bruninho-b-h reblogged this from proofmathisbeautiful and added:
    ………
  17. aut0mat0n reblogged this from intothecontinuum
  18. troythulu reblogged this from proofmathisbeautiful
  19. unknownmistress reblogged this from proofmathisbeautiful
  20. heatdeathofauniverse reblogged this from supercuddlypuppies
  21. supercuddlypuppies reblogged this from proofmathisbeautiful
  22. wellshiet reblogged this from intothecontinuum
  23. onlygoodloveforall reblogged this from proofmathisbeautiful
  24. jetbunny reblogged this from radarloquere
  25. radarloquere reblogged this from intothecontinuum
  26. caballerojaguar reblogged this from intothecontinuum
  27. hypergiants reblogged this from metatron-the-angel