付録B
アニメーションの作り方

星状化20面体のアニメ-ション

パッケージ読み込み（一度で良い）

<< Graphics`Polyhedra`

星状化20面体のアニメーション作成

Do[Show[Stellate[Polyhedron[Icosahedron], k], Boxed -> False], {k, 
        2, 7}]
Do[Show[Stellate[Polyhedron[Icosahedron], k], Boxed -> False], {k, 
        6, 3, -1}]

Copyright 2004 Naoto KOUYAMA. All right reserved.