home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 9 / CD_ASCQ_09_1193.iso / news / 2132 / eea31 / sunset.in < prev    next >
Text File  |  1992-12-01  |  3KB  |  111 lines
  1. #include "shapes.inc"
  2. #include "colors.inc"
  3. #include "textures.inc"
  4.  
  5. camera {
  6.    location <0.0  80.0  -300.0>
  7.    direction <0.0  0.0  1.0>
  8.    up <0.0  1.0  0.0>
  9.    right <1.333333 0.0 0.0>
  10.    look_at <0.0  30.0  200.0>
  11. }
  12.  
  13. object {
  14.    height_field { gif "fract003.gif" 
  15.       water_level 101.0
  16.    }
  17.    scale <320 256 200>
  18.    texture {
  19.       image_map { <1.0 0.0 -1.0> gif "fract003.gif"  }
  20.       scale <320.0 1.0 200.0>
  21.       translate <0.0 0.0 -1.0>
  22.    }
  23.    scale <2.0 0.5 2.0>
  24.    translate <-160.0 -63.5 -100.0>
  25.    rotate <0.0 10.0 0.0>
  26.    translate <-80.0 0.0 -30.0>
  27. }
  28.  
  29. // Define the ocean surface 
  30. object {
  31.    plane { <0.0  1.0  0.0> -10.0  }
  32.    texture {
  33.       colour Aquamarine
  34.       waves 0.06
  35.       frequency 5000.0
  36.       phase [phase]
  37.       ambient 0.1
  38.       diffuse 0.1
  39.       reflection 0.8
  40.       scale <1000.0 1000.0 1000.0>
  41.    }
  42.    colour red 1.0 green 0.3
  43. }
  44.  
  45. // Put a floor underneath to catch any errant waves from the ripples 
  46. object {
  47.    plane { <0.0  1.0  0.0> -11.0  }
  48.    texture {
  49.       0.05
  50.       colour red 1.0 green 0.6
  51.       ambient [amb]
  52.       diffuse 0.0
  53.    }
  54. }
  55.  
  56. // Now draw the sky 
  57. object {
  58.   sphere { <0.0  0.0  0.0> 3500.0  }
  59.   texture {
  60.     onion
  61.     colour_map { [0.0 0.6  colour red 1.0 green 0.6 blue 0.0
  62.                            colour red 0.3 green 0.6 blue 0.6]
  63.                  [0.6 1.0  colour red 0.3 green 0.6 blue 0.6
  64.                            colour red 0.1 green 0.4 blue 0.6] }
  65.     scale <6000.0  1700.0  4000.0>
  66.     translate <-1200.0 220.0 2500.0>
  67.     ambient [amb]
  68.     diffuse 0.0   /* we don't want clouds casting shadows on the sky */
  69.   }
  70. }
  71.  
  72. // Put in a few clouds 
  73. object {
  74.   plane { <0.0 1.0 0.0> 300.0  }
  75.   texture {
  76.     bozo
  77.     turbulence 0.5
  78.     colour_map { [0.0 0.6 colour red 1.0 green 1.0 blue 1.0 alpha 1.0
  79.                           colour red 1.0 green 1.0 blue 1.0 alpha 1.0]
  80.                  [0.6 0.8 colour red 1.0 green 1.0 blue 1.0 alpha 1.0
  81.                           colour red 1.0 green 0.8 blue 0.1]
  82.                  [0.8 1.0 colour red 1.0 green 0.8 blue 0.1
  83.                           colour red 0.8 green 0.4 blue 0.2] }
  84.     scale <1000.0  200.0  800.0>
  85.     ambient 0.7
  86.     diffuse 0.0
  87.   }
  88.   translate <[nuage] 0.0 0.0>
  89.   rotate <6.0 0.0 0.0>
  90. }
  91.  
  92. // Now to cast some light on the subject 
  93. object { light_source { <-150.0  250.0  -400.0>
  94.                         colour MediumGoldenrod }
  95. }
  96.  
  97. // Now to cast some more light on the subject 
  98. object {
  99.   union {
  100.     sphere { <0.0  0.0  0.0> 190.0
  101.     texture {
  102.       colour red [rouge] green [vert] alpha [trans]
  103.       ambient 1.0
  104.       diffuse 0.0
  105.     }
  106.   }
  107.   light_source { <0 0 0> colour red [rouge] green [vert] } 
  108.   }       
  109.   translate <[ouest]  [haut]  2500>
  110. }
  111.