Re: Wireframes
- To: mathgroup at smc.vnet.net
- Subject: [mg4279] Re: Wireframes
- From: vvs124 at rsphy1.anu.edu.au (Victoria.Steblina) (Victoria Steblina)
- Date: Sat, 29 Jun 1996 03:53:25 -0400
- Organization: Optical Sciences Centre, ANU
- Sender: owner-wri-mathgroup at wolfram.com
>I would like to take a Stack of 2D outlined sections and create a 3D
>wireframe. Does anyone know if there is an already existing program
>or algorithm that will help.
Try StackGraphics:
In[47]:= Needs["Graphics`Graphics3D`"]
In[48]:= ?StackGraphics
StackGraphics[{g1, g2, ...}] generates a Graphics3D object
corresponding
to a "stack" of two-dimensional graphics objects.
Gaussian pulse as an example:
In[49]:= f[x_, y_] := Exp[-(x-y)^2/4]
The following function defines 2D sections and labels them:
In[50]:= section[y_] := Show[Plot[ f[x,y], {x, -10, 15},
PlotRange -> All, DisplayFunction->Identity],
Graphics[Text["y = "<> ToString @ y,{17, 0}]],
DisplayFunction->Identity]
StackGraphics displays corresponding to different y sections together:
In[51]:= Show[
StackGraphics[Table[section[y], {y,0,10,2}]],
PlotRange -> All, BoxRatios -> {1,1,0.5},Boxed -> False,
Axes -> {Automatic, None, Automatic},
AxesLabel -> {"x ","","f"},
DisplayFunction -> $DisplayFunction]
Out[52]= -Graphics3D-
Cheers,
Vicki
________________________________________________________________________
Victoria Steblina
vvs124 at rsphy1.anu.edu.au
Optical Sciences Centre
Australian National University
==== [MESSAGE SEPARATOR] ====