home *** CD-ROM | disk | FTP | other *** search
- // Prßctica 2: Una esfera con textura grßfica
-
- #include "colors.inc"
- #include "textures.inc"
-
-
- object { sphere { <0.0 0.0 0.0> 1.0 }
-
- texture {
- image_map { <1.0 -1.0 0.0> gif "mandel.gif"}
- translate <-0.5 -0.5 0>
- }
- scale <60 60 60>
- rotate <20 0 0>
- translate <0 50 0>
- }
-
- object {
- plane { <0.0 1.0 0.0> 0.0 }
- texture {
- checker
- color Black
- color White
- }
- scale<20 20 20>
- }
-
- object {
- sphere {<0 0 0> 10000}
- texture{ Blue_Sky scale <10000 10000 10000> }
- }
-
- camera {
- location <10.0 80.0 -150.0>
- direction <0.0 0.0 1.0>
- up <0.0 1.0 0.0>
- right <1.33333 0.0 0.0>
- look_at <0 50 0>
- }
-
- object {
- light_source { <50.0 150.0 -100.0>
- color White
- }
- }