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 ? *)
>