home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1995 January / pcw-0195.iso / polyray / dat / texture / erode.pi < prev    next >
Text File  |  1994-12-31  |  949b  |  42 lines
  1. // Generic Polyray input File
  2. // Polyray input file: Alexander Enzmann
  3.  
  4. // Set up the camera
  5. viewpoint {
  6.    from <0,5,-7>
  7.    at <0,0,0>
  8.    up <0,1,0>
  9.    angle 45
  10.    resolution 256, 256
  11.    }
  12.  
  13. background <0, 0, 0>
  14. light <-10,20, -20>
  15. include "..\colors.inc"
  16.  
  17. define erode_exper (noise(10*P, 2) < 0.2 ? 1 :
  18.              (noise(10*P, 2) < 0.4 ?
  19.             1 - 5 * (noise(10*P, 2) - 0.2) : 0))
  20.  
  21. define eroded_red
  22. texture {
  23.    special surface {
  24.       normal N + 4 * (dnoise(10*P, 4) - <0.5, 0.5, 0.5>)
  25.       ambient (1 - erode_exper) * red, 0.2
  26.       diffuse (1 - erode_exper) * red, 0.5
  27.       specular (1 - erode_exper) * white, 0.7
  28.       microfacet Reitz 15
  29.       transmission erode_exper, 1
  30.       }
  31.    }
  32.  
  33. object {
  34.      object { sphere <0, 0, 0>, 2 shading_flags 55 eroded_red }
  35.    & object { disc <0, 0, 0>, <0, 0, 1>, 3 }
  36.    }
  37.  
  38. object {
  39.    disc <0, -2, 0>, <0, 1, 0>, 10
  40.    texture { checker matte_white, matte_black }
  41.    }
  42.