Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

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]



  • Prev by Date: Re: Frames on Density Plots in Version 7
  • Next by Date: Problem with spline function object in Mathematica 6
  • Previous by thread: Re: Extracting Graphics3D from Plots
  • Next by thread: Re: Extracting Graphics3D from Plots