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,369 notes

  1. craizydude reblogged this from justsomecoolgifs
  2. breathejukgoshipeoyo reblogged this from bboykrazy
  3. heoh-gotar reblogged this from itsmewallis
  4. cameroonieandcheese reblogged this from intrepidstranger
  5. demonputty reblogged this from spring-of-mathematics
  6. psycedelicate reblogged this from pollutive
  7. pollutive reblogged this from toyte
  8. humansarealiens reblogged this from toyte
  9. lndshrk reblogged this from toyte
  10. toyte reblogged this from vvampirevveeknd
  11. dreamofthemoon reblogged this from behindthelenzes
  12. melina-bea reblogged this from intothecontinuum
  13. the-promised-wlan reblogged this from andrewkellogg
  14. malprocrastination reblogged this from darth-vader
  15. theonlyshawnde reblogged this from pen-island
  16. pen-island reblogged this from darth-vader
  17. adorkablenymph reblogged this from darth-vader
  18. fistiecuffs reblogged this from darth-vader
  19. darth-vader reblogged this from intothecontinuum
  20. looksomeonefinally reblogged this from intothecontinuum
  21. crystarls reblogged this from klub-kiss
  22. maaaddison reblogged this from carriepoppins
  23. carriepoppins reblogged this from klub-kiss
  24. naivesmiles reblogged this from klub-kiss
  25. klub-kiss reblogged this from mistysea
  26. bubbaganjalion reblogged this from witchhousepoland
  27. mayorhoney reblogged this from gnorcs and added:
    @_@
  28. tgv83 reblogged this from intothecontinuum
  29. sicl9 reblogged this from intothecontinuum
  30. jeanderoche reblogged this from intothecontinuum
  31. sirsuffix reblogged this from brittonius