Mathematica: Imprimir texto en 3D-Graphic

Quiero imprimir un texto en un cilindro. El resultado debe parecerse a una lata de coca cola.

Lo probé similar a un ejemplo en la documentación de Mathematica: http://reference.wolfram.com/mathematica/ref/Texture.html > Alcance > Especificación de textura > Ejemplo de texto

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

}]

Pero el Cilindro no reconoce la opción VertexTextureCoordinates. ¿Qué estoy haciendo mal?

preguntado el 03 de mayo de 12 a las 18:05

1 Respuestas

No estás haciendo nada malo, simplemente no funciona con las primitivas integradas afaik. Pero seguramente puedes escribir el tuyo propio. Cylinder función que se construye a partir de polígonos donde puede aplicar cualquier textura que desee:

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

enter image description here

contestado el 03 de mayo de 12 a las 19:05

Gracias. Pero mi profesor quiere que use las primitivas integradas. Sin embargo, esta idea de texto era solo una idea para ganar algunos puntos extra. - Reini

No es la respuesta que estás buscando? Examinar otras preguntas etiquetadas or haz tu propia pregunta.