Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

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


  • Prev by Date: Re: Bug in FourierTransform?
  • Next by Date: Re: {Keydown,"c"} event in graphics
  • Previous by thread: Re: How the GaussianMatrix is calculated in Mathematica?
  • Next by thread: Re: How to eliminate noises? A better way perhaps.