Well each of them is a combination of five shapes rotated around the center of
a face of a dodecahedron.  There were other interesting rotations in that
book, couldn't remember them when I got home though.  I will have to go back
to that library soon.  Source is below, get macros2.inc from David Fontaine's
page, and polyhedra,inc from my page.

> --
> David Fontaine  <dav### [at] faricynet>  ICQ 55354965
> My raytracing gallery:  http://davidf.faricy.net/

#include "colors.inc"
#include "polyhedra.inc"
#include "macros2.inc"
#include "finish.inc"

global_settings { max_trace_level 20 }
light_source { <3,20,-40> rgb 2}
camera {location <0,0,-20> look_at 0 angle 20}

background {White}

#declare Tex = array[5] {Red,Orange,Yellow,Green,Blue}
#declare F = rgbft <0,0,0,.7,.7>

#declare Tet = union {
        Tetrahedron_edges(1,.1)
        Tetrahedron_vertexes(1,.1)
        }
#declare Tet2 = object {Tetrahedron_faces}

#declare Tets =
union {
        object {Tet pigment {Tex[0]}}
        object {Tet pigment {Tex[1]} arotate(Icosahedron1,72)}
        object {Tet pigment {Tex[2]} arotate(Icosahedron1,(2*72))}
        object {Tet pigment {Tex[3]} arotate(Icosahedron1,3*72)}
        object {Tet pigment {Tex[4]} arotate(Icosahedron1,4*72)}

        object {Tet2 pigment {Tex[0]+F}}
        object {Tet2 pigment {Tex[1]+F} arotate(Icosahedron1,72)}
        object {Tet2 pigment {Tex[2]+F} arotate(Icosahedron1,(2*72))}
        object {Tet2 pigment {Tex[3]+F} arotate(Icosahedron1,3*72)}
        object {Tet2 pigment {Tex[4]+F} arotate(Icosahedron1,4*72)}
        finish {Shiny}
        }

#declare Cub = object {Cube_edges(1,.1)}
#declare Cub2 = object {Cube_faces}

#declare Cubs =
union {
        object {Cub pigment {Tex[0]}}
        object {Cub pigment {Tex[1]} arotate(Icosahedron1,72)}
        object {Cub pigment {Tex[2]} arotate(Icosahedron1,2*72)}
        object {Cub pigment {Tex[3]} arotate(Icosahedron1,3*72)}
        object {Cub pigment {Tex[4]} arotate(Icosahedron1,4*72)}
        rotate 45*y
        }
#declare Cubs2 =
union {
        object {Cub2 pigment {Tex[0]}}
        object {Cub2 pigment {Tex[1]} arotate(Icosahedron1,72)}
        object {Cub2 pigment {Tex[2]} arotate(Icosahedron1,2*72)}
        object {Cub2 pigment {Tex[3]} arotate(Icosahedron1,3*72)}
        object {Cub2 pigment {Tex[4]} arotate(Icosahedron1,4*72)}
        rotate 45*y
        finish {Shiny}
        }
#declare Oct = union {
        Octahedron_edges(Golden,.08)
        Octahedron_vertexes(Golden,.08)
        }
#declare Oct2 = object {Octahedron_faces}

#declare Octs =
union {
        object {Oct pigment {Tex[0]}}
        object {Oct pigment {Tex[1]} arotate(Icosahedron1,72)}
        object {Oct pigment {Tex[2]} arotate(Icosahedron1,2*72)}
        object {Oct pigment {Tex[3]} arotate(Icosahedron1,3*72)}
        object {Oct pigment {Tex[4]} arotate(Icosahedron1,4*72)}
        rotate 45*y
        finish {Shiny}
        }
//#declare Octs2 =
union {
        object {Oct2 pigment {Tex[0]}}
        object {Oct2 pigment {Tex[1]} arotate(Icosahedron1,72)}
        object {Oct2 pigment {Tex[2]} arotate(Icosahedron1,2*72)}
        object {Oct2 pigment {Tex[3]} arotate(Icosahedron1,3*72)}
        object {Oct2 pigment {Tex[4]} arotate(Icosahedron1,4*72)}
        rotate 45*y
        finish {Shiny}
        }



--
Dan Johnson

http://www.geocities.com/zapob

Post a reply to this message