The Math Forum

Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Math Forum » Discussions » Inactive » comp.soft-sys.math.mathematica

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: Chestnut Shell "Redux"
Replies: 0  

Advanced Search

Back to Topic List Back to Topic List  
Gilmar Rodriguez-pierluissi

Posts: 18
Registered: 5/4/11
Chestnut Shell "Redux"
Posted: Nov 5, 2011 5:19 AM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

I'm attempting to revive the "Chestnut Shell" given in:

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]

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

Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© The Math Forum at NCTM 1994-2018. All Rights Reserved.