       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:= Needs["Graphics`Graphics3D`"]

In:= ?StackGraphics

StackGraphics[{g1, g2, ...}] generates a Graphics3D object
corresponding
to a "stack" of two-dimensional graphics objects.

Gaussian pulse as an example:

In:= f[x_, y_] := Exp[-(x-y)^2/4]

The following function defines 2D sections and labels them:

In:= 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:= 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= -Graphics3D-

Cheers,
Vicki

________________________________________________________________________

Victoria Steblina

vvs124 at rsphy1.anu.edu.au
Optical Sciences Centre
Australian National University

==== [MESSAGE SEPARATOR] ====

```

• Prev by Date: Re: Help: Column/Row Vector
• Next by Date: Re: Abs and variables
• Previous by thread: Re: Wireframes
• Next by thread: Reversing an axis