(*^
::[	Information =

	"This is a Mathematica Notebook file.  It contains ASCII text, and can be
	transferred by email, ftp, or other text-file transfer utility.  It should
	be read or edited using a copy of Mathematica or MathReader.  If you 
	received this as email, use your mail application or copy/paste to save 
	everything from the line containing (*^ down to the line containing ^*)
	into a plain text file.  On some systems you may have to give the file a 
	name ending with ".ma" to allow Mathematica to recognize it as a Notebook.
	The line below identifies what version of Mathematica created this file,
	but it can be opened using any other version as well.";

	FrontEndVersion = "Macintosh Mathematica Notebook Front End Version 2.2";

	MacintoshStandardFontEncoding; 
	
	fontset = title, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e8,  24, "Times"; 
	fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e6,  18, "Times"; 
	fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, e6,  14, "Times"; 
	fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, a20,  18, "Times"; 
	fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, a15,  14, "Times"; 
	fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, a12,  12, "Times"; 
	fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; 
	fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  10, "Times"; 
	fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L-5,  12, "Courier"; 
	fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5,  12, "Courier"; 
	fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, L-5,  12, "Courier"; 
	fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5,  12, "Courier"; 
	fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, B65535, L-5,  12, "Courier"; 
	fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287,  12, "Courier"; 
	fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic,  10, "Geneva"; 
	fontset = header, inactive, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; 
	fontset = leftheader, inactive, L2,  12, "Times"; 
	fontset = footer, inactive, noKeepOnOnePage, preserveAspect, center, M7,  12, "Times"; 
	fontset = leftfooter, inactive, L2,  12, "Times"; 
	fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  10, "Times"; 
	fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; 
	fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; 
	fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; 
	fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; 
	fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; 
	fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; 
	fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; 
	paletteColors = 128; automaticGrouping; currentKernel; 
]
:[font = input; preserveAspect; startGroup]
delta=0.10;
cone = Table[
	Polygon[
		{{Sin[t], Cos[t], 0},{Sin[t+delta], Cos[t+delta], 0},{0,0,2}}],
			{t,0,2Pi,delta}];
:[font = output; output; inactive; preserveAspect; endGroup]
{Polygon[{{0, 1, 0}, {0.09983341664682815232, 0.9950041652780257661, 0}, 
 
    {0, 0, 2}}], Polygon[{{0.09983341664682815232, 0.9950041652780257661, 
 
     0}, {0.1986693307950612155, 0.9800665778412416311, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.1986693307950612155, 0.9800665778412416311, 0}, 
 
    {0.2955202066613395751, 0.9553364891256060197, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.2955202066613395751, 0.9553364891256060197, 0}, 
 
    {0.3894183423086504917, 0.9210609940028850828, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.3894183423086504917, 0.9210609940028850828, 0}, 
 
    {0.4794255386042030003, 0.8775825618903727162, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.4794255386042030003, 0.8775825618903727162, 0}, 
 
    {0.5646424733950353572, 0.8253356149096782973, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.5646424733950353572, 0.8253356149096782973, 0}, 
 
    {0.6442176872376910537, 0.7648421872844884262, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.6442176872376910537, 0.7648421872844884262, 0}, 
 
    {0.7173560908995227617, 0.6967067093471654209, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.7173560908995227617, 0.6967067093471654209, 0}, 
 
    {0.7833269096274833885, 0.6216099682706644564, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.7833269096274833885, 0.6216099682706644564, 0}, 
 
    {0.8414709848078965067, 0.5403023058681397173, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.8414709848078965067, 0.5403023058681397173, 0}, 
 
    {0.89120736006143534, 0.4535961214255773876, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.89120736006143534, 0.4535961214255773876, 0}, 
 
    {0.9320390859672263497, 0.3623577544766735775, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.9320390859672263497, 0.3623577544766735775, 0}, 
 
    {0.9635581854171929648, 0.2674988286245874068, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.9635581854171929648, 0.2674988286245874068, 0}, 
 
    {0.9854497299884601807, 0.1699671429002409384, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.9854497299884601807, 0.1699671429002409384, 0}, 
 
    {0.997494986604054431, 0.0707372016677029099, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.997494986604054431, 0.0707372016677029099, 0}, 
 
    {0.9995736030415051644, -0.02919952230128872642, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.9995736030415051644, -0.02919952230128872642, 0}, 
 
    {0.9916648104524686153, -0.1288444942955246843, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.9916648104524686153, -0.1288444942955246843, 0}, 
 
    {0.9738476308781951865, -0.2272020946930870555, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.9738476308781951865, -0.2272020946930870555, 0}, 
 
    {0.9463000876874144884, -0.3232895668635034225, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.9463000876874144884, -0.3232895668635034225, 0}, 
 
    {0.9092974268256816954, -0.4161468365471423872, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.9092974268256816954, -0.4161468365471423872, 0}, 
 
    {0.8632093666488737707, -0.5048461045998574517, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.8632093666488737707, -0.5048461045998574517, 0}, 
 
    {0.8084964038195901843, -0.5885011172553457085, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.8084964038195901843, -0.5885011172553457085, 0}, 
 
    {0.7457052121767201774, -0.6662760212798241933, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.7457052121767201774, -0.6662760212798241933, 0}, 
 
    {0.6754631805511509267, -0.7373937155412454995, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.6754631805511509267, -0.7373937155412454995, 0}, 
 
    {0.5984721441039564943, -0.8011436155469337148, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.5984721441039564943, -0.8011436155469337148, 0}, 
 
    {0.5155013718214642355, -0.8568887533689472336, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.5155013718214642355, -0.8568887533689472336, 0}, 
 
    {0.4273798802338299349, -0.9040721420170611478, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.4273798802338299349, -0.9040721420170611478, 0}, 
 
    {0.33498815015590492, -0.9422223406686581525, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.33498815015590492, -0.9422223406686581525, 0}, 
 
    {0.2392493292139823288, -0.9709581651495905216, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.2392493292139823288, -0.9709581651495905216, 0}, 
 
    {0.1411200080598672228, -0.9899924966004454572, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.1411200080598672228, -0.9899924966004454572, 0}, 
 
    {0.04158066243329057998, -0.9991351502732794646, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.04158066243329057998, -0.9991351502732794646, 0}, 
 
    {-0.05837414342757990826, -0.9982947757947530848, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.05837414342757990826, -0.9982947757947530848, 0}, 
 
    {-0.1577456941432483811, -0.9874797699088648841, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.1577456941432483811, -0.9874797699088648841, 0}, 
 
    {-0.2555411020268313182, -0.9667981925794610146, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.2555411020268313182, -0.9667981925794610146, 0}, 
 
    {-0.3507832276896198471, -0.9364566872907963381, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.3507832276896198471, -0.9364566872907963381, 0}, 
 
    {-0.4425204432948523832, -0.8967584163341470065, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.4425204432948523832, -0.8967584163341470065, 0}, 
 
    {-0.5298361409084932121, -0.8481000317104081595, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.5298361409084932121, -0.8481000317104081595, 0}, 
 
    {-0.6118578909427190746, -0.7909677119144167008, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.6118578909427190746, -0.7909677119144167008, 0}, 
 
    {-0.687766159183973817, -0.7259323042001401304, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.687766159183973817, -0.7259323042001401304, 0}, 
 
    {-0.7568024953079282503, -0.6536436208636119158, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.7568024953079282503, -0.6536436208636119158, 0}, 
 
    {-0.8182771110644105035, -0.5748239465332689127, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.8182771110644105035, -0.5748239465332689127, 0}, 
 
    {-0.8715757724135880593, -0.490260821340699579, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.8715757724135880593, -0.490260821340699579, 0}, 
 
    {-0.9161659367494549835, -0.4007991720799752984, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.9161659367494549835, -0.4007991720799752984, 0}, 
 
    {-0.9516020738895159536, -0.3073328699784196848, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.9516020738895159536, -0.3073328699784196848, 0}, 
 
    {-0.977530117665097055, -0.2107957994307797077, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.977530117665097055, -0.2107957994307797077, 0}, 
 
    {-0.993691003633464456, -0.1121525269350545193, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.993691003633464456, -0.1121525269350545193, 0}, 
 
    {-0.9999232575641008842, -0.01238866346289073914, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.9999232575641008842, -0.01238866346289073914, 0}, 
 
    {-0.996164608835840672, 0.08749898343944656727, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.996164608835840672, 0.08749898343944656727, 0}, 
 
    {-0.9824526126243325128, 0.1865123694225754024, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.9824526126243325128, 0.1865123694225754024, 0}, 
 
    {-0.9589242746631384695, 0.2836621854632262623, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.9589242746631384695, 0.2836621854632262623, 0}, 
 
    {-0.9258146823277322978, 0.3779777427129805611, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.9258146823277322978, 0.3779777427129805611, 0}, 
 
    {-0.8834546557201532659, 0.4685166713003769565, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.8834546557201532659, 0.4685166713003769565, 0}, 
 
    {-0.832267442223901165, 0.5543743361791609273, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.832267442223901165, 0.5543743361791609273, 0}, 
 
    {-0.772764487555987364, 0.6346928759426343604, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.772764487555987364, 0.6346928759426343604, 0}, 
 
    {-0.7055403255703919081, 0.7086697742912599981, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.7055403255703919081, 0.7086697742912599981, 0}, 
 
    {-0.6312666378723213136, 0.7755658785102497959, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.6312666378723213136, 0.7755658785102497959, 0}, 
 
    {-0.5506855425976377636, 0.8347127848391596812, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.5506855425976377636, 0.8347127848391596812, 0}, 
 
    {-0.464602179413757214, 0.8855195169413190028, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.464602179413757214, 0.8855195169413190028, 0}, 
 
    {-0.3738766648302363626, 0.9274784307440357398, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.3738766648302363626, 0.9274784307440357398, 0}, 
 
    {-0.2794154981989258758, 0.9601702866503660197, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.2794154981989258758, 0.9601702866503660197, 0}, 
 
    {-0.1821625042720955432, 0.983268438442584596, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.1821625042720955432, 0.983268438442584596, 0}, 
 
    {-0.0830894028174965813, 0.9965420970232174749, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.0830894028174965813, 0.9965420970232174749, 0}, 
 
    {0.01681390048434988692, 0.9998586363834151424, 0}, {0, 0, 2}}]}
;[o]
{Polygon[{{0, 1, 0}, {0.0998334, 0.995004, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.0998334, 0.995004, 0}, {0.198669, 0.980067, 0}, 
 
    {0, 0, 2}}], Polygon[{{0.198669, 0.980067, 0}, 
 
    {0.29552, 0.955336, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.29552, 0.955336, 0}, {0.389418, 0.921061, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.389418, 0.921061, 0}, {0.479426, 0.877583, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.479426, 0.877583, 0}, {0.564642, 0.825336, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.564642, 0.825336, 0}, {0.644218, 0.764842, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.644218, 0.764842, 0}, {0.717356, 0.696707, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.717356, 0.696707, 0}, {0.783327, 0.62161, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.783327, 0.62161, 0}, {0.841471, 0.540302, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.841471, 0.540302, 0}, {0.891207, 0.453596, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.891207, 0.453596, 0}, {0.932039, 0.362358, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.932039, 0.362358, 0}, {0.963558, 0.267499, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.963558, 0.267499, 0}, {0.98545, 0.169967, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.98545, 0.169967, 0}, {0.997495, 0.0707372, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.997495, 0.0707372, 0}, {0.999574, -0.0291995, 0}, 
 
    {0, 0, 2}}], Polygon[{{0.999574, -0.0291995, 0}, 
 
    {0.991665, -0.128844, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.991665, -0.128844, 0}, {0.973848, -0.227202, 0}, 
 
    {0, 0, 2}}], Polygon[{{0.973848, -0.227202, 0}, 
 
    {0.9463, -0.32329, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.9463, -0.32329, 0}, {0.909297, -0.416147, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.909297, -0.416147, 0}, {0.863209, -0.504846, 0}, 
 
    {0, 0, 2}}], Polygon[{{0.863209, -0.504846, 0}, 
 
    {0.808496, -0.588501, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.808496, -0.588501, 0}, {0.745705, -0.666276, 0}, 
 
    {0, 0, 2}}], Polygon[{{0.745705, -0.666276, 0}, 
 
    {0.675463, -0.737394, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.675463, -0.737394, 0}, {0.598472, -0.801144, 0}, 
 
    {0, 0, 2}}], Polygon[{{0.598472, -0.801144, 0}, 
 
    {0.515501, -0.856889, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.515501, -0.856889, 0}, {0.42738, -0.904072, 0}, 
 
    {0, 0, 2}}], Polygon[{{0.42738, -0.904072, 0}, 
 
    {0.334988, -0.942222, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.334988, -0.942222, 0}, {0.239249, -0.970958, 0}, 
 
    {0, 0, 2}}], Polygon[{{0.239249, -0.970958, 0}, 
 
    {0.14112, -0.989992, 0}, {0, 0, 2}}], 
 
  Polygon[{{0.14112, -0.989992, 0}, {0.0415807, -0.999135, 0}, 
 
    {0, 0, 2}}], Polygon[{{0.0415807, -0.999135, 0}, 
 
    {-0.0583741, -0.998295, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.0583741, -0.998295, 0}, {-0.157746, -0.98748, 0}, 
 
    {0, 0, 2}}], Polygon[{{-0.157746, -0.98748, 0}, 
 
    {-0.255541, -0.966798, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.255541, -0.966798, 0}, {-0.350783, -0.936457, 0}, 
 
    {0, 0, 2}}], Polygon[{{-0.350783, -0.936457, 0}, 
 
    {-0.44252, -0.896758, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.44252, -0.896758, 0}, {-0.529836, -0.8481, 0}, 
 
    {0, 0, 2}}], Polygon[{{-0.529836, -0.8481, 0}, 
 
    {-0.611858, -0.790968, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.611858, -0.790968, 0}, {-0.687766, -0.725932, 0}, 
 
    {0, 0, 2}}], Polygon[{{-0.687766, -0.725932, 0}, 
 
    {-0.756802, -0.653644, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.756802, -0.653644, 0}, {-0.818277, -0.574824, 0}, 
 
    {0, 0, 2}}], Polygon[{{-0.818277, -0.574824, 0}, 
 
    {-0.871576, -0.490261, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.871576, -0.490261, 0}, {-0.916166, -0.400799, 0}, 
 
    {0, 0, 2}}], Polygon[{{-0.916166, -0.400799, 0}, 
 
    {-0.951602, -0.307333, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.951602, -0.307333, 0}, {-0.97753, -0.210796, 0}, 
 
    {0, 0, 2}}], Polygon[{{-0.97753, -0.210796, 0}, 
 
    {-0.993691, -0.112153, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.993691, -0.112153, 0}, {-0.999923, -0.0123887, 0}, 
 
    {0, 0, 2}}], Polygon[{{-0.999923, -0.0123887, 0}, 
 
    {-0.996165, 0.087499, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.996165, 0.087499, 0}, {-0.982453, 0.186512, 0}, 
 
    {0, 0, 2}}], Polygon[{{-0.982453, 0.186512, 0}, 
 
    {-0.958924, 0.283662, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.958924, 0.283662, 0}, {-0.925815, 0.377978, 0}, 
 
    {0, 0, 2}}], Polygon[{{-0.925815, 0.377978, 0}, 
 
    {-0.883455, 0.468517, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.883455, 0.468517, 0}, {-0.832267, 0.554374, 0}, 
 
    {0, 0, 2}}], Polygon[{{-0.832267, 0.554374, 0}, 
 
    {-0.772764, 0.634693, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.772764, 0.634693, 0}, {-0.70554, 0.70867, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.70554, 0.70867, 0}, {-0.631267, 0.775566, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.631267, 0.775566, 0}, {-0.550686, 0.834713, 0}, 
 
    {0, 0, 2}}], Polygon[{{-0.550686, 0.834713, 0}, 
 
    {-0.464602, 0.88552, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.464602, 0.88552, 0}, {-0.373877, 0.927478, 0}, 
 
    {0, 0, 2}}], Polygon[{{-0.373877, 0.927478, 0}, 
 
    {-0.279415, 0.96017, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.279415, 0.96017, 0}, {-0.182163, 0.983268, 0}, 
 
    {0, 0, 2}}], Polygon[{{-0.182163, 0.983268, 0}, 
 
    {-0.0830894, 0.996542, 0}, {0, 0, 2}}], 
 
  Polygon[{{-0.0830894, 0.996542, 0}, {0.0168139, 0.999859, 0}, 
 
    {0, 0, 2}}]}
:[font = input; preserveAspect; startGroup]
Show[Graphics3D[cone]]
:[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 213; pictureHeight = 230]
%!
%%Creator: Mathematica
%%AspectRatio: 1.08091 
MathPictureStart
%% Graphics3D
/Courier findfont 10  scalefont  setfont
% Scaling calculations
-0.0261053 1.10191 0.0275478 1.10191 [
[ 0 0 0 0 ]
[ 1 1.08091 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
[ ] 0 setdash
0 g
0 0 m
1 0 L
1 1.08091 L
0 1.08091 L
closepath
clip
newpath
p
.002 w
.11113 .25956 m
.02755 .78716 L
s
.02755 .78716 m
.40581 1.05337 L
s
.40581 1.05337 m
.42246 .57705 L
s
.42246 .57705 m
.11113 .25956 L
s
.66297 .02755 m
.90359 .41959 L
s
.90359 .41959 m
.97245 .92356 L
s
.97245 .92356 m
.69509 .58091 L
s
.69509 .58091 m
.66297 .02755 L
s
.11113 .25956 m
.02755 .78716 L
s
.02755 .78716 m
.69509 .58091 L
s
.69509 .58091 m
.66297 .02755 L
s
.66297 .02755 m
.11113 .25956 L
s
.42246 .57705 m
.90359 .41959 L
s
.90359 .41959 m
.97245 .92356 L
s
.97245 .92356 m
.40581 1.05337 L
s
.40581 1.05337 m
.42246 .57705 L
s
P
p
.002 w
.52818 .52398 m .55339 .523 L .52483 .8443 L closepath p
.61 .238 .312 r
F P
s
P
p
.002 w
.50295 .52341 m .52818 .52398 L .52483 .8443 L closepath p
.643 .265 .312 r
F P
s
P
p
.002 w
.47787 .5213 m .50295 .52341 L .52483 .8443 L closepath p
.673 .288 .309 r
F P
s
P
p
.002 w
.55339 .523 m .5784 .52049 L .52483 .8443 L closepath p
.575 .208 .308 r
F P
s
P
p
.002 w
.45313 .51766 m .47787 .5213 L .52483 .8443 L closepath p
.702 .31 .302 r
F P
s
P
p
.002 w
.5784 .52049 m .60301 .51644 L .52483 .8443 L closepath p
.536 .174 .299 r
F P
s
P
p
.002 w
.42891 .5125 m .45313 .51766 L .52483 .8443 L closepath p
.729 .329 .29 r
F P
s
P
p
.002 w
.60301 .51644 m .62707 .51089 L .52483 .8443 L closepath p
.493 .134 .287 r
F P
s
P
p
.002 w
.40539 .50586 m .42891 .5125 L .52483 .8443 L closepath p
.756 .346 .274 r
F P
s
P
p
.002 w
.52483 .8443 m .64651 .50513 L .6484 .50444 L p
.394 .044 .248 r
F P
s
P
p
.002 w
.6484 .50444 m .65037 .50385 L .52483 .8443 L p
.442 .088 .268 r
F P
s
P
p
.002 w
.6484 .50444 m .66905 .49689 L .52483 .8443 L p
.394 .044 .248 r
F P
s
P
p
.002 w
.52483 .8443 m .62707 .51089 L .6484 .50444 L p
.442 .088 .268 r
F P
s
P
p
.002 w
.38276 .49774 m .40539 .50586 L .52483 .8443 L closepath p
.781 .361 .251 r
F P
s
P
p
.002 w
.3612 .48821 m .38276 .49774 L .52483 .8443 L closepath p
.804 .372 .22 r
F P
s
P
p
.002 w
.66905 .49689 m .69049 .48722 L .52483 .8443 L closepath p
.325 0 .217 r
F P
s
P
p
.002 w
.34089 .47731 m .3612 .48821 L .52483 .8443 L closepath p
.824 .38 .179 r
F P
s
P
p
.002 w
.69049 .48722 m .71067 .47619 L .52483 .8443 L closepath p
.242 0 .175 r
F P
s
P
p
.002 w
.32203 .46509 m .34089 .47731 L .52483 .8443 L closepath p
.839 .383 .124 r
F P
s
P
p
.002 w
.71067 .47619 m .72938 .46384 L .52483 .8443 L closepath p
.14 0 .118 r
F P
s
P
p
.002 w
.30479 .45163 m .32203 .46509 L .52483 .8443 L closepath p
.842 .376 .052 r
F P
s
P
p
.002 w
.72938 .46384 m .74645 .45027 L .52483 .8443 L closepath p
.012 0 .044 r
F P
s
P
p
.002 w
.28937 .43701 m .30479 .45163 L .52483 .8443 L closepath p
.825 .355 0 r
F P
s
P
p
.002 w
.74645 .45027 m .76169 .43554 L .52483 .8443 L closepath p
0 0 0 r
F P
s
P
p
.002 w
.27593 .42133 m .28937 .43701 L .52483 .8443 L closepath p
.774 .314 0 r
F P
s
P
p
.002 w
.76169 .43554 m .77493 .41976 L .52483 .8443 L closepath p
0 0 0 r
F P
s
P
p
.002 w
.26465 .40469 m .27593 .42133 L .52483 .8443 L closepath p
.678 .247 0 r
F P
s
P
p
.002 w
.77493 .41976 m .78599 .40304 L .52483 .8443 L closepath p
0 0 0 r
F P
s
P
p
.002 w
.2557 .38722 m .26465 .40469 L .52483 .8443 L closepath p
0 0 .422 r
F P
s
P
p
.002 w
.78599 .40304 m .7947 .38549 L .52483 .8443 L closepath p
.711 .855 .433 r
F P
s
P
p
.002 w
.24924 .36906 m .2557 .38722 L .52483 .8443 L closepath p
0 0 .53 r
F P
s
P
p
.002 w
.7947 .38549 m .80092 .36727 L .52483 .8443 L closepath p
.849 .926 .539 r
F P
s
P
p
.002 w
.2454 .35036 m .24924 .36906 L .52483 .8443 L closepath p
0 .041 .605 r
F P
s
P
p
.002 w
.80092 .36727 m .8045 .34853 L .52483 .8443 L closepath p
.931 .947 .611 r
F P
s
P
p
.002 w
.2443 .33129 m .2454 .35036 L .52483 .8443 L closepath p
0 .125 .65 r
F P
s
P
p
.002 w
.8045 .34853 m .80532 .32944 L .52483 .8443 L closepath p
.968 .935 .653 r
F P
s
P
p
.002 w
.24605 .31205 m .2443 .33129 L .52483 .8443 L closepath p
.1 .192 .674 r
F P
s
P
p
.002 w
.80532 .32944 m .8033 .31019 L .52483 .8443 L closepath p
.976 .905 .675 r
F P
s
P
p
.002 w
.25072 .29283 m .24605 .31205 L .52483 .8443 L closepath p
.204 .246 .685 r
F P
s
P
p
.002 w
.8033 .31019 m .79835 .29098 L .52483 .8443 L closepath p
.968 .868 .685 r
F P
s
P
p
.002 w
.25834 .27384 m .25072 .29283 L .52483 .8443 L closepath p
.287 .29 .688 r
F P
s
P
p
.002 w
.79835 .29098 m .79044 .27202 L .52483 .8443 L closepath p
.951 .83 .688 r
F P
s
P
p
.002 w
.26892 .2553 m .25834 .27384 L .52483 .8443 L closepath p
.354 .326 .688 r
F P
s
P
p
.002 w
.79044 .27202 m .77957 .25354 L .52483 .8443 L closepath p
.931 .795 .688 r
F P
s
P
p
.002 w
.28243 .23745 m .26892 .2553 L .52483 .8443 L closepath p
.41 .356 .686 r
F P
s
P
p
.002 w
.77957 .25354 m .76578 .23577 L .52483 .8443 L closepath p
.909 .762 .686 r
F P
s
P
p
.002 w
.29879 .22051 m .28243 .23745 L .52483 .8443 L closepath p
.457 .381 .683 r
F P
s
P
p
.002 w
.76578 .23577 m .74915 .21893 L .52483 .8443 L closepath p
.887 .732 .683 r
F P
s
P
p
.002 w
.31787 .20472 m .29879 .22051 L .52483 .8443 L closepath p
.497 .404 .681 r
F P
s
P
p
.002 w
.74915 .21893 m .72982 .20327 L .52483 .8443 L closepath p
.866 .705 .68 r
F P
s
P
p
.002 w
.33951 .19031 m .31787 .20472 L .52483 .8443 L closepath p
.532 .425 .678 r
F P
s
P
p
.002 w
.72982 .20327 m .70794 .189 L .52483 .8443 L closepath p
.845 .679 .678 r
F P
s
P
p
.002 w
.36348 .17748 m .33951 .19031 L .52483 .8443 L closepath p
.563 .444 .675 r
F P
s
P
p
.002 w
.70794 .189 m .68376 .17633 L .52483 .8443 L closepath p
.824 .656 .675 r
F P
s
P
p
.002 w
.38953 .16644 m .36348 .17748 L .52483 .8443 L closepath p
.591 .462 .673 r
F P
s
P
p
.002 w
.68376 .17633 m .65753 .16547 L .52483 .8443 L closepath p
.804 .635 .673 r
F P
s
P
p
.002 w
.41733 .15735 m .38953 .16644 L .52483 .8443 L closepath p
.617 .479 .671 r
F P
s
P
p
.002 w
.65753 .16547 m .62957 .15658 L .52483 .8443 L closepath p
.784 .615 .671 r
F P
s
P
p
.002 w
.44656 .15037 m .41733 .15735 L .52483 .8443 L closepath p
.641 .496 .67 r
F P
s
P
p
.002 w
.62957 .15658 m .60022 .14981 L .52483 .8443 L closepath p
.764 .596 .67 r
F P
s
P
p
.002 w
.47684 .14561 m .44656 .15037 L .52483 .8443 L closepath p
.663 .512 .669 r
F P
s
P
p
.002 w
.60022 .14981 m .56986 .14527 L .52483 .8443 L closepath p
.745 .579 .669 r
F P
s
P
p
.002 w
.50776 .14316 m .47684 .14561 L .52483 .8443 L closepath p
.685 .528 .668 r
F P
s
P
p
.002 w
.56986 .14527 m .53891 .14304 L .52483 .8443 L closepath p
.725 .561 .668 r
F P
s
P
p
.002 w
.53891 .14304 m .50776 .14316 L .52483 .8443 L closepath p
.705 .545 .668 r
F P
s
P
p
.002 w
.66297 .02755 m
.90359 .41959 L
s
.90359 .41959 m
.97245 .92356 L
s
.97245 .92356 m
.69509 .58091 L
s
.69509 .58091 m
.66297 .02755 L
s
.11113 .25956 m
.02755 .78716 L
s
.02755 .78716 m
.69509 .58091 L
s
.69509 .58091 m
.66297 .02755 L
s
.66297 .02755 m
.11113 .25956 L
s
P
p
P
% End of Graphics
MathPictureEnd

:[font = output; output; inactive; preserveAspect; endGroup]
Graphics3D["<<>>"]
;[o]
-Graphics3D-
:[font = input; preserveAspect; startGroup]
Options[Graphics3D,{AmbientLight, LightSources, Lighting}]
:[font = output; output; inactive; preserveAspect; endGroup]
{AmbientLight -> GrayLevel[0.], Lighting -> True, 
 
  LightSources -> 
 
   {{{1., 0., 1.}, RGBColor[1, 0, 0]}, {{1., 1., 1.}, RGBColor[0, 1, 0]}, 
 
    {{0., 1., 1.}, RGBColor[0, 0, 1]}}}
;[o]
{AmbientLight -> GrayLevel[0.], Lighting -> True, 
 
  LightSources -> 
 
   {{{1., 0., 1.}, RGBColor[1, 0, 0]}, {{1., 1., 1.}, RGBColor[0, 1, 0]}, 
 
    {{0., 1., 1.}, RGBColor[0, 0, 1]}}}
:[font = input; preserveAspect; startGroup]
SetOptions[Graphics3D,AmbientLight->RGBColor[1,0,0], Lighting->False]
:[font = output; output; inactive; preserveAspect; endGroup]
{AmbientLight -> RGBColor[1, 0, 0], AspectRatio -> Automatic, 
 
  Axes -> False, AxesEdge -> Automatic, AxesLabel -> None, 
 
  AxesStyle -> Automatic, Background -> Automatic, Boxed -> True, 
 
  BoxRatios -> Automatic, BoxStyle -> Automatic, 
 
  ColorOutput -> Automatic, DefaultColor -> Automatic, Epilog -> {}, 
 
  FaceGrids -> None, Lighting -> False, 
 
  LightSources -> 
 
   {{{1., 0., 1.}, RGBColor[1, 0, 0]}, {{1., 1., 1.}, RGBColor[0, 1, 0]}, 
 
    {{0., 1., 1.}, RGBColor[0, 0, 1]}}, PlotLabel -> None, 
 
  PlotRange -> Automatic, PlotRegion -> Automatic, 
 
  Plot3Matrix -> Automatic, PolygonIntersections -> True, Prolog -> {}, 
 
  RenderAll -> True, Shading -> True, SphericalRegion -> False, 
 
  Ticks -> Automatic, ViewCenter -> Automatic, 
 
  ViewPoint -> {1.3, -2.4, 2.}, ViewVertical -> {0., 0., 1.}, 
 
  DefaultFont :> $DefaultFont, DisplayFunction :> $DisplayFunction}
;[o]
{AmbientLight -> RGBColor[1, 0, 0], AspectRatio -> Automatic, 
 
  Axes -> False, AxesEdge -> Automatic, AxesLabel -> None, 
 
  AxesStyle -> Automatic, Background -> Automatic, Boxed -> True, 
 
  BoxRatios -> Automatic, BoxStyle -> Automatic, 
 
  ColorOutput -> Automatic, DefaultColor -> Automatic, Epilog -> {}, 
 
  FaceGrids -> None, Lighting -> False, 
 
  LightSources -> 
 
   {{{1., 0., 1.}, RGBColor[1, 0, 0]}, {{1., 1., 1.}, RGBColor[0, 1, 0]}, 
 
    {{0., 1., 1.}, RGBColor[0, 0, 1]}}, PlotLabel -> None, 
 
  PlotRange -> Automatic, PlotRegion -> Automatic, 
 
  Plot3Matrix -> Automatic, PolygonIntersections -> True, Prolog -> {}, 
 
  RenderAll -> True, Shading -> True, SphericalRegion -> False, 
 
  Ticks -> Automatic, ViewCenter -> Automatic, 
 
  ViewPoint -> {1.3, -2.4, 2.}, ViewVertical -> {0., 0., 1.}, 
 
  DefaultFont :> $DefaultFont, DisplayFunction :> $DisplayFunction}
:[font = input; preserveAspect; startGroup]
?PolygonIntersections

:[font = print; inactive; preserveAspect; endGroup]
PolygonIntersections is an option for Graphics3D and ParametricPlot3D.
   With PolygonIntersections -> True, intersecting polygons are left
   unchanged. With PolygonIntersections -> False, Graphics3D objects are
   modified by breaking polygons into smaller pieces which do not
   intersect each other.
^*)