MathGroup Archive 1996

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Wireframes

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

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 

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

(* 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 *)

	Graphics3D[ crossSections

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

You may find the package RuledSurfacePlot.m (MathSource# 0207-975) 

 xah at; 74631.731 at
 Mountain View, CA, USA
 Quote of the day: I'm the Schizoid Man. --The Schizoid Man


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