3
$\begingroup$

In Mathematica 11 it is not possible to Printout3D a Graphics3D object with image textures, however, it is possible using VertexColor. I'd like to convert a textured Graphics3D to one with VertexColor instead, is this automatically possible?

Specifically, my graphic is simply many textured polygons in 3d. In the most simple form of this question I'd like to replicate this output:

i = ExampleData[{"ColorTexture", "WhiteMarble"}]
Graphics3D[{Texture[i], 
  Polygon[{{-1, -1, -1}, {1, -1, -1}, {1, 1, -1}, {-1, 1, -1}}, 
   VertexTextureCoordinates -> {{0, 0}, {1, 0}, {1, 1}, {0, 1}}]}, 
 Lighting -> "Neutral"]

without invoking the Texture command:

Graphics3D[
 Polygon[{{-1, -1, -1}, {1, -1, -1}, {1, 1, -1}, {-1, 1, -1}}, 
  VertexColors -> {Blue, Red, Green, Pink}]]

This obviously doesn't work.

$\endgroup$
  • $\begingroup$ Can you give an example of the Graphics3D you are working with? $\endgroup$ – SumNeuron Oct 25 '16 at 17:34
  • $\begingroup$ @SumNeuron My example has a few different polygons with textures. I added a minimal example. $\endgroup$ – M.R. Oct 25 '16 at 17:40
  • 1
    $\begingroup$ You will need a lot of polygons to get acceptable resolution... $\endgroup$ – Yves Klett Oct 25 '16 at 18:02
  • $\begingroup$ @YvesKlett that is ok, so long as Mathematica doesn't crash. $\endgroup$ – M.R. Oct 25 '16 at 20:35
  • $\begingroup$ I believe this is a job for a ColorFunction $\endgroup$ – SumNeuron Oct 26 '16 at 4:00

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Browse other questions tagged or ask your own question.