Plate 7: Icosahedron

\251 Maplesoft, a division of Waterloo Maple Inc., 2004

restart;

with(geom3d):

icosahedron(p1,point(o,0,0,0),1);

stellate(p2,p1,4):

p := draw(p2):

q := plottools[homothety](p,3):

plots[display]([p,q],scaling=constrained,style=patchnogrid,lightmodel=light4,shading=xyz,orientation=[-107,81]);