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