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