       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>

```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][] /.
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 ? *)
>

```

• Prev by Date: Re: Re: how to collapse a cell in v.6
• Next by Date: Re: Beta function, Integral
• Previous by thread: How to extract generated mesh data from a Graphics3D object ?
• Next by thread: How to extract generated plot data (or mesh data) from a Graphics3D