home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / height / hfnoise.pi < prev    next >
Encoding:
Text File  |  1992-09-08  |  747 b   |  42 lines
  1. // File demonstrating height field function
  2. // Polyray input file: Alexander Enzmann
  3.  
  4. // Set up the camera
  5. viewpoint {
  6.    from <-2, 6, -10>
  7.    at <0, 0, 0>
  8.    up <0,1,0>
  9.    angle 45
  10.    resolution 256, 256
  11.    }
  12.  
  13. // Set up background color & lights
  14. background SkyBlue
  15. light <10, 10, -10>
  16.  
  17. define field_texture
  18. texture {
  19.    checker
  20.       texture {
  21.      surface {
  22.         ambient coral, 0.2
  23.         diffuse coral, 0.8
  24.         }
  25.      },
  26.       texture {
  27.      surface {
  28.         ambient aquamarine, 0.2
  29.         diffuse aquamarine, 0.8
  30.         specular white, 0.7
  31.         microfacet Phong 10
  32.         }
  33.      }
  34.    scale <4, 4, 4>
  35.    }
  36.  
  37. // Define a noise based height field
  38. object {
  39.    height_fn 128, 128, -4, 4, -4, 4, noise(P, 2)
  40.    field_texture
  41.    }
  42.