Re: Wireframes

• To: mathgroup at smc.vnet.net
• Subject: [mg4306] Re: Wireframes
• From: Xah Lee <xah at best.com>
• Date: Tue, 9 Jul 1996 00:47:42 -0400
• Organization: Best Internet Communications
• Sender: owner-wri-mathgroup at wolfram.com

```Kathryn Lockwood wrote:
>
> 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 wil

An elementary approach is to raisd each of your 2D outline to a higher
plane. This you do by replacing each point {x,y} in your 2D graphics
primitive by {x,y,n}, where n is higher for each 2D outline.

suppose you crossSections is a bunch of ellipses with different
eccentricity.

crossSections = First@ ParametricPlot[
Evaluate@ Table[{i Cos at t, Sin at t}, {i,.5,1.5,.25}],
{t, 0, 2 Pi},
AspectRatio->Automatic,
PlotStyle->{Hue[.75], Hue[0],Hue[.35,1,.7]}
];0;

(* now raise each ellipse to higher plane *)

crossSections = Table[
replaceAll[ crossSections[[i]], rule[{x_?AtomQ,y_?AtomQ},{x,y,i}]],
{i,Length@ crossSections}
];

crossSections = crossSections /. {replaceAll->ReplaceAll, rule->Rule};

(* show the result *)

Show[
Graphics3D[ crossSections
],
AspectRatio->Automatic
];0;

If you also want lines that run across, it'll take some more
programming.

You may find the package RuledSurfacePlot.m (MathSource# 0207-975)
useful.
http://www.best.com/~xah/public_html/SpecialPlaneCurves_dir/MmaPackages_
dir/mmaPackages.html

Xah
xah at best.com; 74631.731 at compuserve.com
http://www.best.com/~xah/SpecialPlaneCurves_dir/specialPlaneCurves.html
Mountain View, CA, USA
Quote of the day: I'm the Schizoid Man. --The Schizoid Man

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

```

• Next by Date: Time Series
• Next by thread: Time Series