home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / texture / layer2.pi < prev    next >
Encoding:
Text File  |  1992-11-08  |  1013 b   |  55 lines
  1. // Sample Polyray file
  2. // A layered marble texture with glass in the veins
  3. //
  4. viewpoint {
  5.    from <0, 2, -10>
  6.    at <0,0,0>
  7.    up <0,1,0>
  8.    angle 35
  9.    resolution 160, 160
  10.    aspect 1
  11.    }
  12.  
  13. include "..\colors.inc"
  14.  
  15. background midnightblue
  16.  
  17. light <-10, 7, -5>
  18.  
  19. object {
  20.    disc <0, -2.005, 0>, <0, 1, 0>, 10
  21.    texture { checker matte_white, matte_black }
  22.    }
  23.  
  24. define position_objectx 1
  25. define lookup_sawtooth  1
  26.  
  27. define glass_veined_marble
  28. texture {
  29.    layered
  30.       texture {
  31.      noise surface {
  32.         color white
  33.         position_fn position_objectx
  34.         lookup_fn lookup_sawtooth
  35.         octaves 3
  36.         turbulence 3
  37.         ambient 0.3
  38.         diffuse 0.8
  39.         specular 0.3
  40.         microfacet Reitz 5
  41.         color_map(
  42.            [0.0, 0.2, white, 0,   white, 0]
  43.            [0.2, 0.3, white, 0,   black, 0.2]
  44.            [0.3, 0.4, black, 0.2, black, 1]
  45.            [0.4, 1.0, black, 1, black, 1])
  46.         }
  47.      },
  48.       glass
  49.    }
  50.  
  51. object {
  52.    sphere <0, 0, 0>, 2
  53.    glass_veined_marble
  54.    }
  55.