Re: Surface Graphics versus Graphics3D features
- To: mathgroup at smc.vnet.net
- Subject: [mg24903] Re: Surface Graphics versus Graphics3D features
- From: "Allan Hayes" <hay at haystack.demon.co.uk>
- Date: Sun, 20 Aug 2000 01:34:52 -0400 (EDT)
- References: <8nlhsb$9ei@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Anne, One speed up would be to replace your sea with a single polygon: Here is a small scale comparison: ice = Plot3D[Sin[x]Sin[y], {x, 0, 9}, {y, 0, 9}]; sea = Graphics3D[{Polygon[{{0, 0, 0}, {9, 0, 0}, {9, 9, 0}, {0, 9, 0}}]}] Show[ice, sea, PlotRange -> {0, 1}] // Timing // First 0.55 Second sea2 = ListPlot3D[Table[0.01, {x, 0, 9, .5}, {y, 0, 9, .5}], MeshRange -> {{0, 9}, {0, 9}}]; Show[ice, sea2, PlotRange -> {0, 1}] // Timing//fFirst 3.24 Second- Allan --------------------- Allan Hayes Mathematica Training and Consulting Leicester UK www.haystack.demon.co.uk hay at haystack.demon.co.uk Voice: +44 (0)116 271 4198 Fax: +44 (0)870 164 0565 "anne barker" <anne.barker at nrc.ca> wrote in message news:8nlhsb$9ei at smc.vnet.net... > Hello. > > I have 20 very large data files, with which I am creating a series of > surface graphics, which are in turn converted into an avi. animation. The > data represent an ice surface. I can clipfill the original data file to > create a "water surface" where there is no ice present. > > I need to insert 3 Graphics3D objects into the surface graphics to represent > various structures. For example: > barge = Show[ > Graphics3D[{EdgeForm[], SurfaceColor[RGBColor[1, 0, 0]], > Cuboid[{200, 117.5, -4}, {255.5, 202.5, 4}]}, > ..., DisplayFunction -> Identity]]; > > This is fine, but the problem I encounter is that my clip-filled surface is > deleted once I combine the Surface Graphic and the Graphic3D item, as the > entire graphics becomes a Graphics3D file, rather than a SurfaceGraphics > file. > > I have, in the past, created a surface: > > surface = ListPlot3D[Table[0.01, {x, 1, 500, 1}, {y, 1, 300, 1}], > ..., DisplayFunction -> Identity]; > surface2 = Graphics3D[surface]; > surface3 = Insert[surface2, SurfaceColor[Hue[0.63]], {1, 1}]; > > and then inserted this into the combined plot to represent the "clip-filled" > water surface. For example: > Show[sg, barge, surface3]. > > This was fine with smaller grids, but now I'm dealing with 500x300x12 grids, > and each time I try to insert the surface, Mathematica (v. 4.0) crashes. I > have a very fast computer with a good graphics card, so I'm essentially > wondering if there is a "simpler" way of creating this water surface so that > it won't chew up so much system memory. Is there a way to represent the > structures as Surface Graphics objects? > Would I need to use ListPlot3D, as I did for the surface, to create the > objects? > > Thanks from a novice user! > Anne > > > > >