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] ====