home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 13 Bitmap / 13-Bitmap.zip / povscn.zip / scenes / level2 / sunsethf.pov < prev    next >
Text File  |  1993-09-28  |  3KB  |  127 lines
  1. // Persistence of Vision Raytracer
  2. // Height field sample
  3. // by Douglas Muir
  4. // Note: Original used 640 x 480 height field.
  5. // This version is scaled down for distribution.
  6. // Requires "fract003.gif" plasma gif for the height field.
  7.  
  8.  
  9. #include "shapes.inc"
  10. #include "colors.inc"
  11. #include "textures.inc"
  12.  
  13. camera {
  14.    location <0.0, 80.0, -300.0>
  15.    direction <0.0, 0.0, 1.0>
  16.    up <0.0, 1.0, 0.0>
  17.    right <4/3, 0.0, 0.0>
  18.    look_at <0.0, 30.0, 200.0>
  19. }
  20.  
  21. height_field {
  22.    gif "fract003.gif" 
  23.    water_level 0.4
  24.  
  25.    pigment {
  26.       image_map { gif "fract003.gif" }
  27.       quick_color White
  28.       rotate 90*x
  29.       scale <320.0, 1.0, 200.0>
  30.       translate <0.0, 0.0, -1.0>
  31.    }
  32.  
  33.    scale <320, 256, 200>
  34.    scale <2.0, 0.5, 2.0>
  35.    translate <-160.0, -63.5, -100.0>
  36.    rotate 10*y
  37.    translate <-80.0, 0.0, -30.0>
  38. }
  39.  
  40. // Define the ocean surface 
  41. plane { y, -10.0
  42.    pigment { Aquamarine }
  43.    normal {
  44.       waves 0.06
  45.       frequency 5000.0
  46.       scale 1000.0
  47.    }
  48.    finish {
  49.       ambient 0.1
  50.       diffuse 0.1
  51.       reflection 0.8
  52.    }
  53. }
  54.  
  55. // Put a floor underneath to catch any errant waves from the ripples 
  56. plane { y, -11.0
  57.    pigment { colour red 1.0 green 0.6 }
  58.    finish {
  59.       crand 0.05
  60.       ambient 0.8
  61.       diffuse 0.0
  62.    }
  63. }
  64.  
  65. // Now draw the sky 
  66. sphere { <0.0, 0.0, 0.0>, 3500.0
  67.    pigment {
  68.       onion
  69.       colour_map {
  70.          [0.0 0.6  colour red 1.0 green 0.6 blue 0.0
  71.                    colour red 0.3 green 0.6 blue 0.6]
  72.          [0.6 1.0  colour red 0.3 green 0.6 blue 0.6
  73.                    colour red 0.1 green 0.4 blue 0.6]
  74.       }
  75.       quick_colour red 0.7 green 0.7 blue 1.0
  76.       scale <6000.0, 1700.0, 4000.0>
  77.       translate <-1200.0, 220.0, 2500.0>
  78.    }
  79.    finish {
  80.       ambient 0.8
  81.       diffuse 0.0   /* we don't want clouds casting shadows on the sky */
  82.    }
  83. }
  84.  
  85.  
  86. // Put in a few clouds 
  87. plane { y, 300.0
  88.    pigment {
  89.       bozo
  90.       turbulence 0.5
  91.       colour_map {
  92.          [0.0 0.6   colour red 1.0 green 1.0 blue 1.0 filter 1.0
  93.                     colour red 1.0 green 1.0 blue 1.0 filter 1.0]
  94.          [0.6 0.8   colour red 1.0 green 1.0 blue 1.0 filter 1.0
  95.                     colour red 1.0 green 0.8 blue 0.1]
  96.          [0.8 1.001 colour red 1.0 green 0.8 blue 0.1
  97.                     colour red 0.8 green 0.4 blue 0.2]
  98.       }
  99.       quick_colour red 0.7 green 0.7 blue 1.0
  100.       scale <1000.0, 200.0, 800.0>
  101.    }
  102.    finish {
  103.       ambient 0.7
  104.       diffuse 0.0
  105.    }
  106.  
  107.    translate -450*x
  108.    rotate 6*y
  109. }
  110.  
  111. // Now to cast some light on the subject 
  112. light_source { <-150.0, 250.0, -400.0> colour MediumGoldenrod }
  113.  
  114. // Now to cast some more light on the subject 
  115. light_source {
  116.    <0, 0, 0> colour red 1.0 green 0.7
  117.  
  118.    looks_like {
  119.       sphere { <0.0, 0.0, 0.0>, 190.0
  120.          pigment { colour red 1.0 green 0.6 filter 0.35 }
  121.          finish { ambient 1.0 diffuse 0.0 }
  122.       }
  123.    }
  124.        
  125.    translate <-1300.0, 380.0, 2500.0>
  126. }
  127.