CoolRobot

AskSubmitPortfolioShopTerrifficoArchive

intothecontinuum:


Mathematica
code:
Rot80 = 
Table[
Table[
RotationTransform[a, {1, 1, 0}, {0, 0, 0}][Tuples[{-1, 1}, 3][[v]]],
{v, 1, 8, 1}],
{a, 0, 2 Pi, Pi/80}]

Edge := {1, 2, 4, 3, 7, 8, 6, 5, 1, 3, 4, 8, 7, 5, 6, 2}

CubeTrail[h_, op_, N_, s_, r_, z_, t_, PR_, IS_, C_] :=
Graphics[
Table[
Scale[
Translate[
{AbsoluteThickness[h], Opacity[op],
If[C == 1, Black, White],
Line[
Table[
{Rot80[[1 + Mod[t, 80]]][[Edge[[e]]]][[1]],
Rot80[[1 + Mod[t, 80]]][[Edge[[e]]]][[2]]},
{e, 1, 16, 1}]]},
r{Cos[2 Pi*(n*t/80 + k)/N], Sin[2 Pi*(n*t/80 + k)/N]}],
z^n, r{Cos[2 Pi*(n*t/80 + k)/N], Sin[2 Pi*(n*t/80 + k)/N]}],
{k, 1, N, 1},
{n, 1, s, 1}],
PlotRange -> PR, ImageSize -> 500,
Background -> If[C == 0, Black, White]]

Manipulate[P = {h, op, N, s, r, z, t, PR, IS, C};
CubeTrail[h, op, N, s, r, z, t, PR, 500, 0],
{{h, 1}, 0, 20}, {op, 1, 0},
{{N, 4}, 1, 16, 1}, {s, 1, 100, 1},
{{r, 3.5}, 0, 10}, {z, 1, 0},
{{PR, 5}, 1, 5}, {C, 0, 1, 1},
{t, 0, 100, 1}]

P ={1.5, 1, 4, 8, 3.8, 0.75, 0, 5, 500, 0}

Manipulate[
CubeTrail[P[[1]],P[[2]],P[[3]],P[[4]],P[[5]],P[[6]],t,P[[8]],500,0],
{t, 1, 80, 1}]

29,353 notes

  1. looksomeonefinally reblogged this from intothecontinuum
  2. radiolalou reblogged this from adidhash
  3. adidhash reblogged this from intothecontinuum
  4. classy-xbox reblogged this from klub-kiss
  5. maaaddison reblogged this from carriepoppins
  6. carriepoppins reblogged this from klub-kiss
  7. naivesmiles reblogged this from klub-kiss
  8. klub-kiss reblogged this from mistysea
  9. bubbaganjalion reblogged this from witchhousepoland
  10. mayorhoney reblogged this from gnorcs and added:
    @_@
  11. tgv83 reblogged this from intothecontinuum
  12. sicl9 reblogged this from intothecontinuum
  13. jeanderoche reblogged this from intothecontinuum
  14. sirsuffix reblogged this from brittonius
  15. brittonius reblogged this from intothecontinuum
  16. diariodebordoblog reblogged this from saudades-a-mil
  17. her-sugar-daddy reblogged this from mistysea
  18. omglolreblog reblogged this from mistysea
  19. mistysea reblogged this from royalpalms
  20. royalpalms reblogged this from hjyutv
  21. freebreathingmoon reblogged this from sterlingsea
  22. m0thwings reblogged this from uglyghostgirl
  23. almaestelar reblogged this from acidream
  24. 7ia reblogged this from jamesbluntofficial
  25. suprasonic reblogged this from bootygrl
  26. seizethedayembracethenight reblogged this from sealoss
  27. i-llmakeyousee reblogged this from xr0yal
  28. xr0yal reblogged this from paintmewithcolors
  29. paintmewithcolors reblogged this from highmariaa
  30. yourfriendlyneighborhoodolivia reblogged this from yangtzeswimming
  31. yangtzeswimming reblogged this from babysoft7