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