home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1995 January / pcw-0195.iso / polyray / dat / texture / indexed1.pi < prev    next >
Text File  |  1994-12-31  |  820b  |  41 lines
  1. // Sample Polyray file
  2. // A gradient texture with changing 'alpha' values
  3. //
  4. viewpoint {
  5.    from <0, 5, -10>
  6.    at <0,0,0>
  7.    up <0,1,0>
  8.    angle 35
  9.    resolution 256, 256
  10.    aspect 1
  11.    }
  12.  
  13. include "..\colors.inc"
  14. include "..\texture.inc"
  15.  
  16. background midnightblue
  17.  
  18. light <-10, 7, -5>
  19. light < 10, 7, -5>
  20.  
  21. object {
  22.    disc <0, -2.005, 0>, <0, 1, 0>, 10
  23.    texture { checker matte_white, matte_black }
  24.    }
  25.  
  26. define red_blue_check texture { checker shiny_red, shiny_blue }
  27.  
  28. define index_tex_map
  29. texture_map([-2, 0, red_blue_check, bumpy_green],
  30.         [0, 2, bumpy_green, reflective_blue])
  31.  
  32. object {
  33.    sphere <0, 0, 0>, 2
  34.    texture { indexed x, index_tex_map }
  35.    }
  36.  
  37. object {
  38.    disc <0, -2, 0>, <0, 1, 0>, 30
  39.    texture { special matte { color sky_color_map[noisy_onion_fn] } }
  40.    }
  41.