home *** CD-ROM | disk | FTP | other *** search
/ Hackers Magazine 57 / CdHackersMagazineNr57.iso / Software / Multimedia / k3d-setup-0.7.11.0.exe / share / k3d / shaders / surface / k3d_plastic.sl < prev    next >
Encoding:
Text File  |  2008-01-23  |  590 b   |  20 lines
  1. /* plastic.sl - Standard plastic surface for RenderMan Interface.
  2.  * (c) Copyright 1988, Pixar.
  3.  *
  4.  * The RenderMan (R) Interface Procedures and RIB Protocol are:
  5.  *     Copyright 1988, 1989, Pixar.  All rights reserved.
  6.  * RenderMan (R) is a registered trademark of Pixar.
  7.  */
  8.  
  9. surface k3d_plastic(float Ka = 1;
  10.             float Kd = .5; float Ks = .5; float roughness = .1;
  11.             color specularcolor = 1;
  12.   )
  13. {
  14.   normal Nf = faceforward(normalize(N), I);
  15.   Oi = Os;
  16.   Ci =
  17.     Os * (Cs * (Ka * ambient() + Kd * diffuse(Nf)) +
  18.       specularcolor * Ks * specular(Nf, -normalize(I), roughness));
  19. }
  20.