home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m470 / 1.ddi / RMAN / CGMETAL.SL next >
Encoding:
Text File  |  1990-11-12  |  528 b   |  22 lines
  1. /* @(#)cgrefmap.sl    1.2    (CryslatGraphics Inc.)    11/12/90 */
  2. /* Metallic Reflection Map shader for CrystalGraphics RIB files */
  3. surface
  4. cgmetal (float Ka=1, Ks=1, Kr = 1, Kd = 1, roughness=.1;
  5.         string texturename = "";)
  6. {
  7.     point Nf, D, V;
  8.     color Cr;
  9.  
  10.     Nf = faceforward(normalize(N), I) ;
  11.     V = normalize(-I);
  12.  
  13.     if (texturename != "") {
  14.     Cr = Kr * color texture(texturename);
  15.     } else {
  16.     Cr = Cs;
  17.     }
  18.  
  19.     Oi = Os;
  20.     Ci = Os * Cs * ( Ka*ambient() + Ks*specular(Nf,V,roughness) + Cr);
  21. }
  22.