Re: How to combine 3D Graphics?

*To*: mathgroup at smc.vnet.net*Subject*: [mg126467] Re: How to combine 3D Graphics?*From*: "djmpark" <djmpark at comcast.net>*Date*: Sat, 12 May 2012 04:56:15 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*References*: <18312799.4531.1336710717412.JavaMail.root@m06>

This is easy using the RaiseTo3D function in the Presentations Application. Here is the transparent surface with a density plot at the z = -1 plane. I used a more distinctive coloring function for the density plot. << Presentations` Draw3DItems[ {(* Draw the transparent surface *) {Opacity[0.5, Orange], Draw3D[Sin[x + y], {x, 0, Pi}, {y, 0, Pi}, Mesh -> False]}, (* Draw the density plot and raise it to 3D *) DensityDraw[Sin[x + y], {x, 0, Pi}, {y, 0, Pi}, PlotPoints -> 40, ColorFunction -> ColorData["DarkRainbow"]] // RaiseTo3D[-1 &]}, NeutralLighting[0, 0.2, 0.5], NiceRotation, Axes -> True, ImageSize -> 300] In the following we put a transparent contour plot on the surface and a density plot at z = -1. Draw3DItems[ {(* Draw a contour plot and raise it to the surface *) {Opacity[0.8], ContourDraw[Sin[x + y], {x, 0, Pi}, {y, 0, Pi}, PlotPoints -> 40, ColorFunction -> ColorData["DarkRainbow"]] // RaiseTo3D[Sin[#1 + #2] &]}, (* Draw a density plot and raise it to the z = -1 surface *) DensityDraw[Sin[x + y], {x, 0, Pi}, {y, 0, Pi}, PlotPoints -> 40, ColorFunction -> ColorData["DarkRainbow"]] // RaiseTo3D[-1 &]}, NeutralLighting[0, 0.2, 0.5], NiceRotation, Axes -> True, ImageSize -> 300] Just draw one thing after another. David Park djmpark at comcast.net http://home.comcast.net/~djmpark/index.html From: Jee Lou [mailto:ywdr1987 at gmail.com] I have tried to combine a translucent 3D-plot graph with its density plot by using Show. But it doesn't work. Here's my code: g1=Plot3D[Sin[x + y], {x, 0, Pi}, {y, 0, Pi}, Mesh -> False,PlotStyle->Opacity[.5]]; g2=DensityPlot[Sin[x + y], {x, 0, Pi}, {y, 0, Pi}, Frame -> False]; g3=Plot3D[-1, {x, 0, Pi}, {y, 0, Pi}, Mesh -> None,TextureCoordinateFunction -> ({#1, #2} &), PlotStyle -> Directive[Texture[g2]]]; Show[g1,g3] It turns out that the density graph disappears T_T. How can I make it right?