home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1995 January / pcw-0195.iso / polyray / dat / texture / indexed3.pi < prev    next >
Text File  |  1994-12-31  |  777b  |  43 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 0.8*white, <-10, 7, -5>
  19. light 0.8*white, < 10, 7, -5>
  20.  
  21. define pink_glass
  22. texture {
  23.    surface {
  24.       ambient 0
  25.       diffuse 0.05
  26.       specular 0.2
  27.       transmission pink, 0.7, 1.5
  28.       }
  29.    }
  30.  
  31. define index_tex_map
  32. texture_map([0, 1, pink_glass, mirror])
  33.  
  34. object {
  35.    sphere <0, 0, 0>, 2
  36.    texture { indexed noise(3*P, 1), index_tex_map }
  37.    }
  38.  
  39. object {
  40.    disc <0, -2, 0>, <0, 1, 0>, 30
  41.    texture { special matte { color red_marble_map[granite_fn] } }
  42.    }
  43.