[[MORE]]
Mathematica code:
v1[t_] := {Cos[t], 0, Sin[t]}v2[t_, a_] :=  1/Sqrt[1 + Sin[t]^2 Tan[a]^2] {-Sin[t], -Sin[t] Tan[a], Cos[t]}v3[t_, a_] :=  1/Sqrt[1 + Sin[t]^2 Tan[a]^2] {-Sin[t]^2 Tan[a], 1, Cos[t] Sin[t] Tan[a]}P[t_, a_] := {v3[t, a][[2]]/Tan[a] - v3[t, a][[1]], 0, -v3[t, a][[3]]/2}Q[t_, a_] := {v3[t, a][[2]]/Tan[a], v3[t, a][[2]], v3[t, a][[3]]/2}vertices[t_, a_, A_, B_, C_, D_] := {P[t, a] - A*Sqrt[2]/2 v1[t],   P[t, a] + B*Sqrt[2]/2 v1[t],  Q[t, a] - C*Sqrt[2]/2 v2[t, a],   Q[t, a] + D*Sqrt[2]/2 v2[t, a]}Tetrahedron[T_, t_, a_, o_, A_, B_, C_, D_] := Table[  {FaceForm[White], Opacity[o], EdgeForm[Thick],   Polygon[    Table[     T[vertices[t, a, A, B, C, D][[1 + Mod[i + j, 4]]]], {i, 1, 3, 1}]]},  {j, 0, 3, 1}]Kaleidocycle[t_, n_, o_, R_, A_, B_, C1_, D1_, x_, y_, z_, S_] := Translate[  Scale[   Rotate[    Table[     Rotate[      Table[       Tetrahedron[T, t, 2 Pi/n, o, A/Tan[2 Pi/n], B* A/Tan[2 Pi/n],         C1/Tan[2 Pi/n], D1*C1/Tan[2 Pi/n]],       {T, {TransformationFunction[IdentityMatrix[4]],          ReflectionTransform[{-Sin[2 Pi/n], Cos[2 Pi/n], 0}]}}],      r*4 Pi/n, {0, 0, 1}],     {r, 0, n - 1, 1}],    R*Sin[t], {0, 1, 0}],   S],  {x, y, z}]rr[q_] := (SeedRandom[q]; RandomReal[])K[t_, pr_, Q_, w_] := Graphics3D[  Table[   Kaleidocycle[t + 2 Pi*rr[w*q], 5 + 2 Floor[10 rr[2 w*q]], 1, 0,     1.5, 1, 1.5, 1, 1.2 pr*rr[3 w*q], 1.2*6/5 pr*rr[4 w*q],     10 pr*(1 rr[5 w*q] - 1), 1],   {q, 1, Q, 1}],  PlotRange -> {{0, pr}, {0, 6/5 pr}, {-10 pr, 10 pr}},   ImageSize -> 500, Axes -> False, Boxed -> False,   Lighting -> "Neutral", ViewPoint -> {0, 0, Infinity} ,   Background -> White ]Manipulate[ K[t, 15.5, 18, 5], {t, 0, 2Pi}]

Mathematica code:

v1[t_] := 
{Cos[t], 0, Sin[t]}

v2[t_, a_] :=
1/Sqrt[1 + Sin[t]^2 Tan[a]^2] {-Sin[t], -Sin[t] Tan[a], Cos[t]}

v3[t_, a_] :=
1/Sqrt[1 + Sin[t]^2 Tan[a]^2] {-Sin[t]^2 Tan[a], 1, Cos[t] Sin[t] Tan[a]}

P[t_, a_] :=
{v3[t, a][[2]]/Tan[a] - v3[t, a][[1]], 0, -v3[t, a][[3]]/2}

Q[t_, a_] :=
{v3[t, a][[2]]/Tan[a], v3[t, a][[2]], v3[t, a][[3]]/2}

vertices[t_, a_, A_, B_, C_, D_] :=
{P[t, a] - A*Sqrt[2]/2 v1[t],
P[t, a] + B*Sqrt[2]/2 v1[t],
Q[t, a] - C*Sqrt[2]/2 v2[t, a],
Q[t, a] + D*Sqrt[2]/2 v2[t, a]}

Tetrahedron[T_, t_, a_, o_, A_, B_, C_, D_] :=
Table[
{FaceForm[White], Opacity[o], EdgeForm[Thick],
Polygon[
Table[
T[vertices[t, a, A, B, C, D][[1 + Mod[i + j, 4]]]], {i, 1, 3, 1}]]},
{j, 0, 3, 1}]

Kaleidocycle[t_, n_, o_, R_, A_, B_, C1_, D1_, x_, y_, z_, S_] :=
Translate[
Scale[
Rotate[
Table[
Rotate[
Table[
Tetrahedron[T, t, 2 Pi/n, o, A/Tan[2 Pi/n], B* A/Tan[2 Pi/n],
C1/Tan[2 Pi/n], D1*C1/Tan[2 Pi/n]],
{T, {TransformationFunction[IdentityMatrix[4]],
ReflectionTransform[{-Sin[2 Pi/n], Cos[2 Pi/n], 0}]}}],
r*4 Pi/n, {0, 0, 1}],
{r, 0, n - 1, 1}],
R*Sin[t], {0, 1, 0}],
S],
{x, y, z}]

rr[q_] := (SeedRandom[q]; RandomReal[])

K[t_, pr_, Q_, w_] :=
Graphics3D[
Table[
Kaleidocycle[t + 2 Pi*rr[w*q], 5 + 2 Floor[10 rr[2 w*q]], 1, 0,
1.5, 1, 1.5, 1, 1.2 pr*rr[3 w*q], 1.2*6/5 pr*rr[4 w*q],
10 pr*(1 rr[5 w*q] - 1), 1],
{q, 1, Q, 1}],
PlotRange -> {{0, pr}, {0, 6/5 pr}, {-10 pr, 10 pr}},
ImageSize -> 500, Axes -> False, Boxed -> False,
Lighting -> "Neutral", ViewPoint -> {0, 0, Infinity} ,
Background -> White ]

Manipulate[
K[t, 15.5, 18, 5],
{t, 0, 2Pi}]
 
  1. jmmontero74 reblogged this from intothecontinuum
  2. pxrple-cactus reblogged this from lastyleglobal
  3. muchrubby reblogged this from intothecontinuum
  4. glowing-inthe-darkest-night reblogged this from vortexanomaly
  5. oldskoolbro reblogged this from vortexanomaly
  6. masster77 reblogged this from vortexanomaly
  7. vortexanomaly reblogged this from machine-like-vengeance and added:
    flowering…
  8. fvtvre-flvrt reblogged this from n3onblvk
  9. jeanderoche reblogged this from intothecontinuum
  10. maciswack reblogged this from trippppyyyyytittieeeesssss
  11. moonlit-empathy reblogged this from this-h0use-is-a-circus
  12. fuckthisyouandeverything reblogged this from this-h0use-is-a-circus
  13. this-h0use-is-a-circus reblogged this from the-awesome-squad
  14. justsmokingthings reblogged this from sabrinasandino
  15. shmosie reblogged this from ambrl093
  16. ambrl093 reblogged this from onmyowntwohands
  17. mooseesoom reblogged this from onmyowntwohands
  18. onmyowntwohands reblogged this from gifselections
  19. asbestospoisoning reblogged this from gifselections
  20. freethinkingart reblogged this from gifselections
  21. cindylikesgifs reblogged this from gifselections
  22. gifselections reblogged this from intothecontinuum
  23. suspirosdeagonia reblogged this from felipegracini
  24. felipegracini reblogged this from intothecontinuum
  25. tarambanatrz reblogged this from intothecontinuum and added:
    Creo que lo han hecho con matemáticas, pero son fórmulas que se me escapan. Un poco mareante, pero mola.
  26. novamains reblogged this from rikclarregui
  27. rosanemable reblogged this from trippppyyyyytittieeeesssss
  28. phantasmagoricsoup reblogged this from intothecontinuum
  29. acidivi reblogged this from trippppyyyyytittieeeesssss
  30. medical-metal reblogged this from trippppyyyyytittieeeesssss
  31. thats-just-how-i-rowling reblogged this from trippppyyyyytittieeeesssss