home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / height / islands.pi < prev    next >
Encoding:
Text File  |  1992-04-05  |  1.3 KB  |  65 lines
  1. // File demonstrating height field function
  2. // Polyray input file: Alexander Enzmann
  3.  
  4. // Set up the camera
  5. viewpoint {
  6.    from < 0, 2.7, -12>
  7.    at <0, 0, 0>
  8.    up <0,1,0>
  9.    angle 30
  10.    resolution 512, 512
  11.    }
  12.  
  13. // Set up background color & lights
  14. background black
  15. light <10, 100,-5>
  16.  
  17. define position_objectx  1
  18. define ripple_normal     2
  19.  
  20. define mountain_colors
  21. texture {
  22.    noise surface {
  23.       ambient 0.2
  24.       diffuse 0.8
  25.       specular 0.2
  26.       position_fn position_objectx
  27.       color_map(
  28.          [-128,   0, blue,  blue]
  29.          [   0,  20, green, green]
  30.          [  20,  40, green, tan]
  31.          [  40,  90, tan,   tan]
  32.          [  90, 128, white, white])
  33.       }
  34.    rotate <0, 0, 90>
  35.    }
  36. define blue_ripple
  37. texture {
  38.    noise surface {
  39.       color <0.4, 0.4, 1.0>
  40.       normal ripple_normal
  41.       frequency 35
  42.       bump_scale 1
  43.       ambient 0.3
  44.       diffuse 0.4
  45.       specular white, 0.6
  46.       reflection white, 0.6
  47.       microfacet Reitz 10
  48.       }
  49.    translate <3, 0, -3>
  50.    }
  51.  
  52. object {
  53.    height_field "fracthf.tga"
  54.    scale <12, 0.005, 12>
  55.    translate <-6, 0, -6>
  56.    mountain_colors
  57.    rotate <0, 45, 0>
  58.    }
  59.  
  60. object {
  61.    polygon 4, <-7, 0, -7>, <-7, 0, 7>, <7, 0, 7>, <7, 0, -7>
  62.    rotate <0, 30, 0>
  63.    blue_ripple
  64.    }
  65.