Chestnut Shell "Redux"
- To: mathgroup at smc.vnet.net
- Subject: [mg122680] Chestnut Shell "Redux"
- From: Gilmar Rodriguez-pierluissi <peacenova at yahoo.com>
- Date: Sat, 5 Nov 2011 04:49:16 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Reply-to: Gilmar Rodriguez-pierluissi <peacenova at yahoo.com>
I'm attempting to revive the "Chestnut Shell" given in: http://www.mathematica-journal.com/issue/v8i3/special/notebooks/cover8-3.nb The package to build the plot is: << PolyhedronOperations` The following two Mathematica code lines work: Geodesate[PolyhedronData["Icosahedron"], 15] Stellate[Geodesate[PolyhedronData["Icosahedron"], 15], 1.05] But, Show[Graphics3D[ Partition[ Stellate[Geodesate[PolyhedronData["Icosahedron"], 15], 1.05], 675][[Range[11, 20]]]], Boxed -> False, ViewPoint -> {0, 0, 2}, LightSources -> {{{1, 0, 1}, RGBColor[1, 0.4, 0.4]}, {{-1, 1, 1}, RGBColor[0.3, 1, 0.1]}, {{-1, -1, 1}, RGBColor[0.2, 0.2, 0.9]}}] doesn't work. "Lighting" should be used instead of "LightSources". Thank you for your help! Gilmar Rodriguez-Pierluissi