home *** CD-ROM | disk | FTP | other *** search
- // Mike Williams
- // 111 Evering Road
- // LONDON N16 7SL
-
- #include "inc.shapes"
- #include "inc.colors"
- #include "inc.textures"
-
- camera {location <2,6,-15> look_at <0, 0, 0>}
- light_source { <30, 50, -50> color White }
- light_source { <0, 50, -20> color White }
-
- #declare floor_texture =
- texture {
- pigment {
- marble
- turbulence 0.4
- color_map {
- [0.0 0.73 color Copper
- color red 0.42 green 0.26 blue 0.15]
- [0.73 0.85 color red 0.42 green 0.26 blue 0.15
- color Firebrick]
- [0.85 0.91 color Firebrick
- color Black]
- [0.91 1.01 color Black
- color Copper]
- }
- rotate <45 45 0>
- scale <7 7 7>
- }
- finish {
- specular 1.0
- roughness 0.000024
- ambient 0.05
- diffuse 0.65
- reflection 0.2
- }
- }
-
- #declare cell =
- union {
- cylinder { <1, 1, 1>, <1, 1, -1>, 0.3 }
- cylinder { <1, 1, 1>, <1, -1, 1>, 0.3 }
- cylinder { <1, 1, 1>, <-1, 1, 1>, 0.3 }
- cylinder { <1, 1, -1>, <1, -1, -1>, 0.3 }
- cylinder { <1, 1, -1>, <-1, 1, -1>, 0.3 }
- cylinder { <1, -1, 1>, <1, -1, -1>, 0.3 }
- cylinder { <1, -1, 1>, <-1, -1, 1>, 0.3 }
- cylinder { <-1, 1, 1>, <-1, 1, -1>, 0.3 }
- cylinder { <-1, 1, 1>, <-1, -1, 1>, 0.3 }
- cylinder { <1, -1, -1>, <-1, -1, -1>, 0.3 }
- cylinder { <-1, 1, -1>, <-1, -1, -1>, 0.3 }
- cylinder { <-1, -1, 1>, <-1, -1, -1>, 0.3 }
-
- sphere { <1,1,1> 0.3}
- sphere { <1,1,-1> 0.3}
- sphere { <1,-1,1> 0.3}
- sphere { <-1,1,1> 0.3}
- sphere { <1,-1,-1> 0.3}
- sphere { <-1,1,-1> 0.3}
- sphere { <-1,-1,1> 0.3}
- sphere { <-1,-1,-1> 0.3}
-
-
- box { <-1.3,-1,-1>,<1.3,1,1> pigment {colour Red} finish {ambient 0.5 diffuse 0.5}}
-
- box { <-1,-1.3,-1>,<1,1.3,1> pigment {colour Yellow} finish {ambient 0.5 diffuse 0.5}}
-
- box { <-1,-1,-1.3>,<1,1,1.3> pigment {colour White} finish {ambient 0.5 diffuse 0.5}}
-
- pigment {colour Black}
- finish {phong 1 phong_size 10 ambient 0.5 diffuse 0.5}
- }
-
-
- background {colour SkyBlue}
-
-
- #declare layer=
- union {
- object {cell translate <-2.6,0,0>}
- object {cell}
- object {cell translate <2.6,0,0>}
- object {cell translate <0,0,-2.6>}
- object {cell translate <-2.6,0,-2.6>}
- object {cell translate <2.6,0,-2.6>}
- object {cell translate <0,0,2.6>}
- object {cell translate <-2.6,0,2.6>}
- object {cell translate <2.6,0,2.6>}
- }
-
- object {layer}
- object {layer rotate <0, 20, 0> translate <0, 2.6, 0>}
- object {layer rotate <0, -4, 0> translate <0, -2.6, 0>}
-
- // Floor
- plane {
- y, -3.9
- texture {
- floor_texture
- pigment{quick_color Tan} // quick render color
- }
- }
-