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. addictedtosymmetry reblogged this from intothecontinuum
  2. fractalnerd reblogged this from anengineersaspect
  3. luciddreamcoats reblogged this from mastershogun
  4. mastershogun reblogged this from anengineersaspect
  5. anengineersaspect reblogged this from intothecontinuum
  6. iloas reblogged this from kneadthisdough
  7. hotoke-antiques reblogged this from yuruyurau
  8. iorvetth reblogged this from intothecontinuum
  9. imaginameatuladotodaslasnoches reblogged this from intothecontinuum
  10. laser-sheep2 reblogged this from intothecontinuum
  11. yuruyurau reblogged this from intothecontinuum
  12. thirstyear reblogged this from intothecontinuum
  13. viejho reblogged this from intothecontinuum
  14. haxpaxmax reblogged this from intothecontinuum
  15. umaunico reblogged this from intothecontinuum
  16. kneadthisdough reblogged this from intothecontinuum
  17. intothecontinuum posted this