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: [mg95675] Re: Extracting Graphics3D from Plots
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Sat, 24 Jan 2009 06:21:27 -0500 (EST)
  • Organization: Uni Leipzig
  • References: <200901221201.HAA11196@smc.vnet.net> <glc4th$38g$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de

Hi,

a)

surf = Cases[
    Plot3D[Sin[x*y], {x, 0, Pi}, {y, 0, Pi}], _GraphicsComplex,
    Infinity];

and

Manipulate[
  Graphics3D[
   {surf, Sphere[Append[pnt, z], 1]}],
  {{pnt, {0, 0}}, Slider2D}, {{z, 0}, -2, 2}]

b) Epilog work only with 2d graphics never with 3d
c) MathGL3d can do textures but Mathematica not

Regards
   Jens

Ernst H.K. Stelzer wrote:
> Dear Mathematicans,
> 
> a problem I have been struggling for quite a while is how to extract a manipulatable Graphics3D object from the result of e.g. a Plot3D or RevolutionPlot3D call.  By manipulatable I mean an object I can rotate or translate using "RotationTransform" and then combine with other objects such as "Cylinder".  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 anticipated by the Wolfram people and not some workaround that might fail in future 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: message-driven function: more explanation
  • Next by Date: Re: Dynamic, UpdateInterval and global variable
  • Previous by thread: Re: Extracting Graphics3D from Plots
  • Next by thread: Re: Extracting Graphics3D from Plots