Re: Extracting Graphics3D from Plots

*To*: mathgroup at smc.vnet.net*Subject*: [mg95658] Re: Extracting Graphics3D from Plots*From*: "Sjoerd C. de Vries" <sjoerd.c.devries at gmail.com>*Date*: Sat, 24 Jan 2009 06:18:16 -0500 (EST)*References*: <200901221201.HAA11196@smc.vnet.net> <glc4th$38g$1@smc.vnet.net>

Dear Ernst, Call the 3D graphic (like the one in your example) g then: {GeometricTransformation[g /. Graphics3D -> List, RotationTransform[30 Degree, {1, 0, 1}]], Cylinder[]} // Graphics3D shows that you can rotate the result and combine it with a cylinder. Cheers -- Sjoerd On Jan 23, 12:07 pm, "Ernst H.K. Stelzer" <stel... at embl.de> wrote: > Dear Mathematicans, > > a problem I have been struggling for quite a while is how to extract a ma= nipulatable Graphics3D object from the result of e.g. a Plot3D or Revolutio= nPlot3D call. By manipulatable I mean an object I can rotate or translat= e using "RotationTransform" and then combine with other objects such as "Cy= linder". What I do not intend to do is use "Epilog" in a Plot3D call. > > I am actually looking for the CORRECT Mathematica-way, i.e. the one antic= ipated by the Wolfram people and not some workaround that might fail in fut= ure versions of Mathematica. > > Somewhat related is another question. Is it possible to put a texture = on a "Cylinder", "Tube" or "Cone"? I do know how to place an image onto = the surface of a Plot3D output (in a seemingly correct Mathematica way, see= below). > > Greetings > > Ernst > > img = Import["ExampleData/rose.gif"] > > imgS = Rasterize[img, "Data", RasterSize -> {32, 32}]/255.0; > > Plot3D[Sin[x y], {x, 0, 3}, {y, 0, 3}, = > > ColorFunction -> (RGBColor[ > imgS[[1 + Round[10 #1], 1 + Round[10 #2]]]] &), = > > ColorFunctionScaling -> False, Mesh -> False, PlotPoints -> 32]

**References**:**Newbie Question - Change 3D Bar Chart Background Color***From:*Tim Heger <timheger@usrbs.com>