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

Re: Combining surfaces

• To: mathgroup at smc.vnet.net
• Subject: [mg72508] Re: Combining surfaces
• From: "Jean-Marc Gulliet" <jeanmarc.gulliet at gmail.com>
• Date: Wed, 3 Jan 2007 05:08:26 -0500 (EST)
• References: <459A6D64.5050608@gmail.com>

On 1/2/07, Steve Adler (NowComp) <steve.adler at nowcomp.com> wrote:
> Isn't DisplayTogether the same as Show?
> Is there some function that can combine them into a single graphics
> object such as g3=g2+g1?
> Steve

See the answer at the bottom of this message.

> -----Original Message-----
> From: Jean-Marc Gulliet [mailto:jeanmarc.gulliet at gmail.com]
> Sent: Tuesday, January 02, 2007 6:34 AM
> To: Steve Adler (NowComp)
> Subject: [NEW_SENDER] - Re: Combining surfaces - Message is from an
> unknown sender
>
> Steve Adler (NowComp) wrote:
> > I have created 13 unique individual 3-D surfaces in Mathematica 5.0
> > using the ParametricPlot3D function.  Is there a way to "add" or
> > combine all these surfaces into a single Graphics3D object?  I want to
>
> > do this in order to export the object to a .DXF or .STL file as a
> > single file instead of as 13 separate files.
> > Steve
> >
>
> g1 = ParametricPlot3D[{Cos[5*t], Sin[3*t], Sin[t]}, {t, 0, 2*Pi}];
> g2 = ParametricPlot3D[{Sin[5*t], Sin[3*t], Sin[t]}, {t, 0, 2*Pi}];
> Needs["Graphics`Graphics`"] DisplayTogether[g1, g2]
>
> Jean-Marc
>

You might have not notice that DisplayTogether *does* create a new
graphics object that contains the "sum" -- whatever thatr means -- of
the other graphics passed as parameters. You can verify that by
checking the head of the expression returned by DisplayTogether and
also export it in a graphical format to check that the resulting file
displays the combined graphics in, say, a wev browser.

In[1]:=
g1 = ParametricPlot3D[{Cos[5*t], Sin[3*t], Sin[t]}, {t, 0, 2*Pi}];
g2 = ParametricPlot3D[{Sin[5*t], Sin[3*t], Sin[t]}, {t, 0, 2*Pi}];
Needs["Graphics`Graphics`"]
g3 = DisplayTogether[g1, g2];

<...three graphics are displayed...>

In[5]:=
Head[g3]

Out[5]=
Graphics3D

In[6]:=
Export["c:\\g3.png", g3]

Out[6]=
c:\g3.png

HTH,
Jean-Marc