My Horrific Elegance

intothecontinuum:

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. clazzjassicalrockhop reblogged this from intothecontinuum
  2. welcometorealitypark reblogged this from intothecontinuum
  3. salvadorantwilek reblogged this from proofmathisbeautiful
  4. technically-tony reblogged this from intothecontinuum
  5. globalmutt reblogged this from longsnowsmoon
  6. senefra reblogged this from intothecontinuum
  7. cottoncandytommotheninja reblogged this from intothecontinuum
  8. invisiblejonsters reblogged this from intothecontinuum
  9. esho84 reblogged this from mer-de-noms
  10. cherrytooth reblogged this from trasspaso
  11. trasspaso reblogged this from mer-de-noms
  12. mer-de-noms reblogged this from amor-invictus
  13. thaladyk reblogged this from itsjessmehere
  14. ishouldgethelp reblogged this from intothecontinuum
  15. bruninho-b-h reblogged this from proofmathisbeautiful and added:
    ………
  16. aut0mat0n reblogged this from intothecontinuum
  17. troythulu reblogged this from proofmathisbeautiful
  18. unknownmistress reblogged this from proofmathisbeautiful
  19. afightagainstentropy reblogged this from supercuddlypuppies
  20. supercuddlypuppies reblogged this from proofmathisbeautiful
  21. wellshiet reblogged this from intothecontinuum
  22. onlygoodloveforall reblogged this from proofmathisbeautiful
  23. jetbunny reblogged this from radarloquere
  24. radarloquere reblogged this from intothecontinuum
  25. caballerojaguar reblogged this from intothecontinuum
  26. hypergiants reblogged this from metatron-the-angel
Blog comments powered by Disqus