Is it possible to create a 3D rotating text like this:
Here is my try so far:
text = Style["Mathematica Mathematica ", 128];
g = ParametricPlot3D[{Cos[theta], Sin[theta], rho}, {theta, -π,
π}, {rho, 0, 1}, PlotStyle -> Texture[text],
Lighting -> "Neutral", Mesh -> None, PlotRange -> All,
TextureCoordinateScaling -> True, Boxed -> False, Axes -> False,
SphericalRegion -> True];
Animate[Show[g, ViewPoint -> {2 Cos[x], 2 Sin[x], 0}], {x, 0, 2 π}]
The problem is that the text is a texture, and one can't look through it. We can use Simon Woods's nice filledCurveToPolygons3D
function here to change the text into polygons, but wrapping the polygon to a cylinder seems to require non-geometric transformation, which I don't know how to do.
possible related questions: