0
$\begingroup$

I have a ListLinePlot and a ListPlot3D that I want to combine using Show. I do not know how to change the positions of the figures. Here a toy example:

a = ListPlot3D[{{0, 0, 3}, {0, 1, 3}, {1, 0, 3}, {1, 1, 3}, {0.25, 0.5, 1}, {0.75, 0.5, 1}}]; b = ListLinePlot[{0, 4, 2, 7, 4, 9}]; Show[{Graphics3D[{EdgeForm[], {Texture[b], Polygon[{{-1, -1, -1}, {1, -1, -1}, {1, 1, -1}, {-1, 1, -1}}, VertexTextureCoordinates -> {{0, 0}, {1, 0}, {1, 1}, {0, 1}}]}}], a}]

How can I center the figure "a" ?

Thank you.

Improve this question
$\endgroup$
4
  • $\begingroup$ Hi! Is there a difference to your previous question? $\endgroup$ Commented Jun 23, 2015 at 18:22
  • $\begingroup$ @Yves Klett It is all related. Now is further issues related to the same problem I am attacking. $\endgroup$ Commented Jun 23, 2015 at 18:24
  • 2
    $\begingroup$ What do you mean by center? The figure "a" is defined by the points in your ListPlot3D. You can change your Polygon so the figure "a" will take all space in XY plane: Show[{Graphics3D[{EdgeForm[], {Texture[b], Polygon[{{0, 0, 0}, {1, 0, 0}, {1, 1, 0}, {0, 1, 0}}, VertexTextureCoordinates -> {{0, 0}, {1, 0}, {1, 1}, {0, 1}}]}}, Axes -> True], a}] $\endgroup$ Commented Jun 23, 2015 at 18:30
  • $\begingroup$ @BlacKow thank very much, that solves it. I have a further problem. I want the background of the ListLinePlot to be white. In order to do that I do Show[{Graphics3D[{EdgeForm[], {Texture[b], Polygon[{{0, 0, 0}, {1, 0, 0}, {1, 1, 0}, {0, 1, 0}}, VertexTextureCoordinates -> {{0, 0}, {1, 0}, {1, 1}, {0, 1}}]}}, Axes -> True, Lighting -> "Neutral"], a}] . But then, the figure "a" also becomes white. How can I fix that? $\endgroup$ Commented Jun 23, 2015 at 18:42

1 Answer 1

Reset to default
1
$\begingroup$

I'm not sure what exactly you trying to achieve by using the 2D plot as a Texture. The following code gives me white background:

a = ListPlot3D[{{0, 0, 3}, {0, 1, 3}, {1, 0, 3}, {1, 1, 3}, {0.25, 0.5, 1}, {0.75, 0.5, 1}}]; b = ListLinePlot[{0, 4, 2, 7, 4, 9}]; Show[{Graphics3D[{EdgeForm[], {Texture[b], Blue, Polygon[{{0, 0, 0}, {1, 0, 0}, {1, 1, 0}, {0, 1, 0}}, VertexTextureCoordinates -> {{0, 0}, {1, 0}, {1, 1}, {0, 1}}]}}, Lighting -> "Neutral", Axes -> True], a}]

enter image description here

Lighting -> {{"Ambient", White}} is another way to make your polygon white.

Although you should probably consider plotting your figure "b" in 3D instead of mapping it as a texture.

Improve this answer
$\endgroup$
8
  • $\begingroup$ I am using Mathematica 9, in my case the figure b also becomes white using Lighting -> "Neutral" $\endgroup$ Commented Jun 23, 2015 at 19:06
  • $\begingroup$ Try to change Lighting in your ListPlot3D too? E.g Lighting -> {{"Ambient", LightBlue}} I don't have have V9, so I can't test it. $\endgroup$ Commented Jun 23, 2015 at 19:10
  • $\begingroup$ Ok, I will open a new question to solve this issue. Thank very much! $\endgroup$ Commented Jun 23, 2015 at 19:12
  • $\begingroup$ Consider telling us the final goal of your visualization. Community can come up with more elegant solutions rather than using Texture $\endgroup$ Commented Jun 23, 2015 at 19:14
  • $\begingroup$ @Mr.Wizard♦ suggested that I should use Texture , in a comment under PlatoManiac's answer in this post: mathematica.stackexchange.com/questions/3665/… $\endgroup$ Commented Jun 23, 2015 at 19:16

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.