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. imaginameatuladotodaslasnoches reblogged this from intothecontinuum
  11. laser-sheep2 reblogged this from intothecontinuum
  12. yuruyurau reblogged this from intothecontinuum
  13. thirstyear reblogged this from intothecontinuum
  14. viejho reblogged this from intothecontinuum
  15. haxpaxmax reblogged this from intothecontinuum
  16. umaunico reblogged this from intothecontinuum
  17. kneadthisdough reblogged this from intothecontinuum
  18. intothecontinuum posted this