[[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. manxome-foes reblogged this from intothecontinuum
  2. visiomire reblogged this from cristinarocioo
  3. izamacona reblogged this from dl-50
  4. phosphor-us reblogged this from d3ssins
  5. raveclub reblogged this from acid-laboratory
  6. jes-sa reblogged this from intothecontinuum
  7. wildbluespirit reblogged this from alaskanebraska
  8. wildcard253 reblogged this from dazed-all-day
  9. dazed-all-day reblogged this from drop--acids
  10. art-full reblogged this from intothecontinuum
  11. homicidedreams reblogged this from shhifting
  12. pathosmind reblogged this from shhifting
  13. sophieast reblogged this from fuckyeahtrippysgifs
  14. shhifting reblogged this from fuckyeahtrippysgifs
  15. girlwho-lovedthemonsters reblogged this from beatastic
  16. zepticsundown reblogged this from beatastic
  17. lun3s-0-mart3ns reblogged this from beatastic
  18. zoeiijade reblogged this from beatastic
  19. fabricated-selfportrait reblogged this from beatastic
  20. beatastic reblogged this from searinglimb
  21. youre-always-my-dreams reblogged this from sensimilliea
  22. aunemendianterousse reblogged this from precipitevolissimevolfermo
  23. therightbutlostgirl reblogged this from precipitevolissimevolfermo
  24. precipitevolissimevolfermo reblogged this from mosurah
  25. j-morifarty reblogged this from intothecontinuum
  26. rheefillthemind reblogged this from 2headedsnake
  27. dictatorofgrammar reblogged this from artisticlicenseandregistration
  28. throughbeautyandtruth reblogged this from blakelybrandon
  29. bigolsacka reblogged this from totesjustjeric
  30. jorrrdynnn reblogged this from jewleeaahnah
  31. totesjustjeric reblogged this from walter859
  32. jewleeaahnah reblogged this from intothecontinuum
  33. walter859 reblogged this from redveinsandwhitebones
  34. redveinsandwhitebones reblogged this from intothecontinuum
  35. i-am-mrmassimo reblogged this from intothecontinuum
  36. youletmydevilcomeoutme reblogged this from intothecontinuum
  37. removeyourbra reblogged this from robinbatmanspeasant