Re: How to extract generated mesh data from a Graphics3D object ?
- To: mathgroup at smc.vnet.net
- Subject: [mg79911] Re: How to extract generated mesh data from a Graphics3D object ?
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Wed, 8 Aug 2007 04:59:21 -0400 (EDT)
- Organization: Uni Leipzig
- References: <f98vqo$bk9$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
Hi, Sphere[] is a build-in graphics primitive and generates no explicit polygonal description. You have to use g = ParametricPlot3D[ {Cos[phi]*Sin[th], Sin[phi]*Sin[th], Cos[th]}, {th, 0, Pi}, {phi, 0, 2 Pi}] and Cases[g, _GraphicsComplex, Infinity][[1]] /. GraphicsComplex[points_, poly_, ___] :> points to get the coordinates of the verticies. Regards Jens Ham Sha wrote: > Hi, > > I am using Mathematica ver 6.0 and I need to extract generated mesh data from a drawn Graphics3D object like the way I do it with a Plot3D object as follows: > > p = Plot3D[ Sin[x y], {x, 0, 4}, {y, 0, 4}] > p[[1, 1]] // FullForm (* this is OK and extracts actual generated mesh data *) > > g = Graphics3D[ Sphere[{0, 0, 0},1] ] > g[[1, 1]] // FullForm (* ???? how is it possible to extract the actual generated data by Graphics3D ? *) >