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_, a_] :=
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 -> {{-5*pr/14, 5*pr/14}, {-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, 20, 1},
{{s, 3}, 0, 5}, {{h, 1}, .01, 10},
{{w, 1}, 0, 20, 1},{{m, 1}, 0, 20, 1},
{a, 1, 100, 1}]

P = {0, 27.7, 20, 1.3, 2.75, 1, 0, 18}


Show@
CubeProjections[P[[1]],P[[2]],P[[3]],P[[4]],P[[5]],P[[6]],P[[7]],P[[8]]]

 
  1. stoned-nymph reblogged this from billycrystals
  2. billycrystals reblogged this from intothecontinuum
  3. addictedtosymmetry reblogged this from intothecontinuum
  4. fractalnerd reblogged this from anengineersaspect
  5. luciddreamcoats reblogged this from master-shogun
  6. master-shogun reblogged this from anengineersaspect
  7. anengineersaspect reblogged this from intothecontinuum
  8. iloas reblogged this from kneadthisdough
  9. hotoke-antiques reblogged this from yuruyurau
  10. iorvetth reblogged this from intothecontinuum
  11. imaginameatuladotodaslasnoches reblogged this from intothecontinuum
  12. laser-sheep2 reblogged this from intothecontinuum
  13. yuruyurau reblogged this from intothecontinuum
  14. thirstyear reblogged this from intothecontinuum
  15. viejho reblogged this from intothecontinuum
  16. haxpaxmax reblogged this from intothecontinuum
  17. umaunico reblogged this from intothecontinuum
  18. kneadthisdough reblogged this from intothecontinuum
  19. intothecontinuum posted this