Mathematica：3Dグラフィックスでテキストを印刷

Question

円筒上にテキストを印刷したい。結果はコカコーラのように見えるはずです。

私はMathematicaのドキュメントで例と、それは類似してみました：テキストの例は

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

}] 

>テクスチャ仕様> http://reference.wolfram.com/mathematica/ref/Texture.html>範囲しかし、シリンダーはVertexTextureCoordinates-オプションを認識しません。 私は何が間違っていますか？

Answer 1

何も間違ってはいません。組込みプリミティブafaikではうまく動作しません。

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} 
    ] 
    ] 
    } 
]