I am trying to put some 3D text inside a 3D graphics. So far I find two ways to make 3D text.
halirutan in “Rotating an image along a Möbius strip?”)
wordData = ImportString[ExportString["Mathematica", "PDF"], "PDF"][[1, 1, 2, 1, 1, 2]]; Graphics3D[Tube[#, 0.2] & /@ Map[Append[#, 0] &, wordData, {2}]]
J.M. in “Strategies for creating 3D text”
RegionProduct[DiscretizeGraphics[Text[Style["Mathematica", Bold, FontFamily -> "Times"]], _Text, MaxCellMeasure -> 0.1], MeshRegion[{{0}, {2}}, Line[{1, 2}]]]
halirutan’s method gives a set of coordinates which is easy to manipulate (for example – change position, orientation, colour etc.)
word1 = ImportString[ExportString["Hello", "PDF"], "PDF"][[1, 1, 2, 1, 1, 2]]; word2 = ImportString[ExportString["World", "PDF"], "PDF"][[1, 1, 2, 1, 1, 2]]; Graphics3D[{Tube[#, 0.2] & /@ Map[Append[#, 0] &, word1, {2}], Tube[RotationTransform[Pi/2, {1, 0, 0}][#], 0.2] & /@ Map[Append[#, 0] &, word2, {2}]}]
How can I do the same thing with J.M.’s method?