#### QUESTION

How to generate a picture like this? I'd like the surface of the manifold to randomly distort.

#### ANSWER

```
Needs["PolyhedronOperations`"]
poly = Geodesate[PolyhedronData["Dodecahedron", "Faces"], 4];
amplitude = 0.15;
twist = 4;
verts = poly[[1]];
faces = poly[[2]];
phases = RandomReal[2 Pi, Length[verts]];
newverts[t_] :=
MapIndexed[{Sequence @@ (RotationMatrix[twist Last[#1]].Most[#1]),
Last[#1]} (1 + amplitude Sin[t + phases[[First@#2]]]) &,
verts];
newpoly[t_] := GraphicsComplex[newverts[t], faces];
duration = 1.5;
fps = 24;
frames = Most@
Table[Graphics3D[{EdgeForm[], newpoly[t]},
PlotRange -> Table[{-(1 + amplitude), (1 + amplitude)}, {3}],
ViewPoint -> Front, Background -> Black, Boxed -> False], {t, 0,
2 Pi, 2 Pi/(duration fps)}];
ListAnimate[frames, fps]
```

The next thing you need is global illumination, but Mathematica doesn't have that as far as I know.

Tweet