Drexel dragonThe Math ForumDonate to the Math Forum



Search All of the Math Forum:

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


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

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:
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



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

[Privacy Policy] [Terms of Use]

© Drexel University 1994-2014. All Rights Reserved.
The Math Forum is a research and educational enterprise of the Drexel University School of Education.