Re: RE: Combining surfaces
- To: mathgroup at smc.vnet.net
- Subject: [mg72502] Re: [mg72491] RE: Combining surfaces
- From: "Steve Adler \(NowComp\)" <steve.adler at nowcomp.com>
- Date: Wed, 3 Jan 2007 01:23:08 -0500 (EST)
Isn't DisplayTogether the same as Show, which I am already using? Is it possible to combine all the graphics objects into one object first? Steve -----Original Message----- From: Bob Hanlon [mailto:hanlonr at cox.net] Sent: Tuesday, January 02, 2007 4:13 AM To: Steve Adler (NowComp); mathgroup at smc.vnet.net Subject: [mg72502] [SPAM] - Re: [mg72491] RE: Combining surfaces - Bayesian Filter detected spam Needs["Graphics`"]; DisplayTogether[Table[ ParametricPlot3D[ {Cos[n*t],Sin[3t],Sin[t],Hue[1/2+n/10]}, {t,0,2Pi}],{n,1,5,2}],ImageSize->500]; ParametricPlot3D[Evaluate[Table[ {Cos[n*t],Sin[3t],Sin[t],Hue[1/2+n/10]}, {n,1,5,2}]],{t,0,2Pi},ImageSize->500]; Bob Hanlon ---- "Steve Adler (NowComp)" <steve.adler at nowcomp.com> 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 > -- Bob Hanlon hanlonr at cox.net