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

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