New in Wolfram Mathematica 7: New Graphics Primitives  previous | next 
Use Cones in 3D Graphics
Use the Cone primitive to explore conic sections.
In[1]:=

Click for copyable input
Graphics3D[{Opacity[.5], Blue,

	Translate[{Cone[], White, Opacity[.9], 

    	Polygon[{{-1, -.25, -1}, {1, -.25, -1}, {1, .25, 1}, 

    		{-1, .25, 1}}]},{0,0,0}],

    Translate[{Cone[], Yellow, Opacity[.9], 

    	Polygon[{{1, 1, -1}, {1, 1, 1}, {-.5, -1.5, 1}, 

    		{-.5, -1.5, -1}}]},{3.5,-2,0}],

    Translate[{Cone[], Yellow, Opacity[.9], 

    	Polygon[{{1, 1, .5}, {-1, 1, .5}, {-1, -1, .5}, 

    		{1, -1, .5}}]},{7,-4,0}]

    }, Boxed -> False, ViewAngle->.24, ViewPoint->{1.3, -2.4, 2}]
Out[1]=