Mathematica code:
RotAxis = Table[Table[  Table[    R[o, {.01 + x, .01 + y, 0}, {0, 0, 0}],    {o, 0, 2 Pi, 2 Pi/80}], {x, -10, 10, 1}], {y, -10, 10, 1}]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_, o_] :=Graphics[ Table[  Translate[   {AbsoluteThickness[h], If[color == 0, Black, White],    Line[     Table[      Table[      RotAxis[[11 + y]][[11 + x]]      [[1 + Mod[Round[ (Pi + ArcTan[.01 + x, .01 + y])/2Pi] + o, 80]]]      [[Edge[[k]]]][[c]],       {c, 1, 2, 1}],      {k, 1, 16, 1}]]},   {s*x, s*y}],  {x, -b, b, 1}, {y, -b, b, 1}], PlotRange -> {{-pr, pr}, {-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, 10, 1},{{s, 3}, 0, 5}, {{h, 1}, .01, 10},{{w, 1}, 0, 20, 1},{{m, 1}, 0, 20, 1},{a, 1, 80, 1}]P = {0, 20, 5, 3.6, 1.5, 1, 1, 1}Manipulate[CubeProjections[P[[1]],P[[2]],P[[3]],P[[4]],P[[5]],P[[6]],P[[7]],a],{a, 1, 79, 2}]

Mathematica code:

RotAxis =
 Table[Table[
Table[
R[o, {.01 + x, .01 + y, 0}, {0, 0, 0}],
{o, 0, 2 Pi, 2 Pi/80}],
 {x, -10, 10, 1}], {y, -10, 10, 1}]

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

P = {0, 20, 5, 3.6, 1.5, 1, 1, 1}

Manipulate[
CubeProjections[P[[1]],P[[2]],P[[3]],P[[4]],P[[5]],P[[6]],P[[7]],a],
{a, 1, 79, 2}]
 
  1. goawaybruh reblogged this from billycrystals
  2. billycrystals reblogged this from intothecontinuum
  3. officialwoolworths reblogged this from juste-une-question-damour
  4. juste-une-question-damour reblogged this from measurementoftheobserver
  5. measurementoftheobserver reblogged this from visualizingmath
  6. tinymagics reblogged this from intothecontinuum
  7. megpagemelpomene reblogged this from intothecontinuum and added:
    Still new to Mathematica, but I hope someday I’ll be able to make beautiful things like this.
  8. ss-ng reblogged this from visualizingmath
  9. mittenfister reblogged this from cloudgatesarise
  10. thereseflorian reblogged this from visualizingmath
  11. yesyesyoo reblogged this from visualizingmath
  12. embracethecreepy reblogged this from visualizingmath
  13. similarfruit reblogged this from visualizingmath
  14. mylifeisborromean reblogged this from visualizingmath
  15. teoterrago reblogged this from existinfreedom
  16. perpetual---motion reblogged this from existinfreedom
  17. existinfreedom reblogged this from theskunkcatcher
  18. brittonius reblogged this from visualizingmath
  19. undercoverhouseplants reblogged this from visualizingmath
  20. our-bluish-peacebone reblogged this from wanderdesire
  21. ambiguo12 reblogged this from wishtowhisper
  22. onetime-around reblogged this from freezingbones
  23. freezingbones reblogged this from visualizingmath
  24. wanderdesire reblogged this from moralkittens
  25. moralkittens reblogged this from wishtowhisper
  26. aproposito reblogged this from visualizingmath and added:
    Mathematica code: RotAxis = Table[Table[ Table[ R[o, {.01 + x, .01 + y, 0}, {0, 0, 0}], {o, 0, 2 Pi, 2 Pi/80}], {x, -10,...
  27. specialbrownii reblogged this from wishtowhisper and added:
    soo happy to see this on mah dash
  28. littlemisspeace reblogged this from wreckingfeelingss
  29. abre--tu--mente reblogged this from wishtowhisper
  30. del0nger reblogged this from visualizingmath
  31. spencerphillips reblogged this from wishtowhisper