wolfram-mathematica - 数学 : Print Text on 3D-Graphic

Question

我想在圆柱体上打印文字。结果应该看起来像一 jar 可口可乐。

我尝试了类似于mathematica文档中的示例:
http://reference.wolfram.com/mathematica/ref/Texture.html > 范围 > 纹理规范 > 文本示例

text = Style["Coca Cola", 128];
Graphics3D[{
   Texture[text],
   Red, Cylinder[{{0, 0, 0}, {0, 0, h}}, radius[h], VertexTextureCoordinates -> {...}],

}]

但是 Cylinder 无法识别 VertexTextureCoordinates 选项。
我究竟做错了什么？

Answer 1

你没有做错任何事，它只是不适用于内置原语 afaik。但是你当然可以自己写Cylinder从多边形构建的函数，您可以在其中应用您喜欢的任何纹理:

text = Style["Cook a Cola", 128, White, Background -> Red];
Graphics3D[
 {Texture[text],
  Red, EdgeForm[],
  With[{dphi = Pi/35},
   Table[
    Polygon[{{Cos[phi], Sin[phi], 0}, {Cos[phi + dphi], 
       Sin[phi + dphi], 0}, {Cos[phi + dphi], Sin[phi + dphi], 
       1}, {Cos[phi], Sin[phi], 1}}, 
     VertexTextureCoordinates -> {{phi/Pi, 0}, {(phi + dphi)/Pi, 
        0}, {(phi + dphi)/Pi, 1}
       , {phi/Pi, 1}}],
    {phi, 0, 2 Pi - dphi, dphi}
    ]
   ]
  }
 ]