home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / texture / radtex1.pi < prev    next >
Encoding:
Text File  |  1992-11-05  |  935 b   |  51 lines
  1. // Sample Polyray file
  2. // A gradient texture with changing 'alpha' values
  3. //
  4. viewpoint {
  5.    from <0, 8, -8>
  6.    at <0,0,0>
  7.    up <0,1,0>
  8.    angle 45
  9.    resolution 160, 160
  10.    }
  11.  
  12. include "..\colors.inc"
  13.  
  14. background midnightblue
  15.  
  16. light <-10, 7, -5>
  17.  
  18. define position_radial  5
  19. define lookup_plain    0
  20.  
  21. define patriotic_radial
  22. texture {
  23.    noise surface {
  24.       color white
  25.       position_fn position_radial
  26.       lookup_fn lookup_plain
  27.       octaves 3
  28.       turbulence 0.1
  29.       ambient 0.3
  30.       diffuse 0.8
  31.       specular 0.3
  32.       microfacet Reitz 5
  33.       color_map(
  34.      [0.0, 0.3, white, white]
  35.      [0.3, 0.4, white, red]
  36.      [0.4, 0.6, red, red]
  37.      [0.6, 0.8, red, blue]
  38.      [0.8, 0.9, blue, blue]
  39.      [0.8, 1.0, blue, white])
  40.       }
  41.    }
  42.  
  43. object {
  44.    sphere <0, 0, 0>, 1
  45.    texture { checker matte_white, matte_black }
  46.    }
  47. object {
  48.    disc <0, -1, 0>, <0, 1, 0>, 20
  49.    patriotic_radial
  50.    }
  51.