Re: Combining surfaces

*To*: mathgroup at smc.vnet.net*Subject*: [mg72501] Re: Combining surfaces*From*: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>*Date*: Wed, 3 Jan 2007 01:19:07 -0500 (EST)*Organization*: The Open University, Milton Keynes, UK*References*: <end7gv$idc$1@smc.vnet.net>

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