from Graphics3D to 2D
- To: mathgroup at smc.vnet.net
- Subject: [mg21291] from Graphics3D to 2D
- From: Maarten.vanderBurgt at icos.be
- Date: Wed, 22 Dec 1999 00:34:45 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Hallo,
in the Mathematica lines below I am doing the following:
- lpts is a list of (x,y,z) coordinates
- these points are plotted usign ScatterPlot3D, which returns a Graphics3D
object.
- Using Project I project the Graphics3D object onto the y-z plane
- Project also returns a Graphics3D object
- I use ViewPoint -> {10^200, 0, 0} to make it look like a 2D graphics
object
My question: is there a way to convert the Graphics3D object into a real 2D
Graphics object?
<<Graphics`Graphics3D`
In[14]:= lpts = Table[{ t Cos[t], t Sin[t], t}, {t, 0, 4Pi, Pi/20}];
In[15]:= spir = ScatterPlot3D[lpts]
- graphics not shown -
Out[15]= -Graphics3D-
In[16]:= Show[Project[spir, {{0, 0, 1}, {0, 1, 0}}, {0, 0, 0}], ViewPoint
-> {10^200, 0, 0}]
- graphics not shown -
Out[16]= -Graphics3D-
thanks for your help
Maarten van der Burgt
Leuven