home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 August / chip_08_2000.iso / aktualnosci / shareware / Rhinoceros / rh11eval_20000320.exe / %MAINDIR% / RIB / rh_paintedplastic.slc < prev    next >
Encoding:
Text File  |  2000-06-08  |  842 b   |  60 lines
  1. version BMRT 2.4.0b
  2. surface rh_paintedplastic
  3. param    float    Ka        1
  4. param    float    Kd        0.5
  5. param    float    Ks        0.5
  6. param    float    roughness        0.1
  7. param    color    specularcolor        1 1 1
  8. param    string    texturename        ""
  9. local    string    $_str_0     ""
  10. local    normal    Nf    0 0 0
  11. local    vector    V    0 0 0
  12. local    color    Ct    0 0 0
  13. initcode 5
  14.     return
  15. code
  16.     pushs    $_str_0 
  17.     pushs    texturename 
  18.     sne
  19.     ifz    0
  20.     pushif    0 
  21.     pushs    texturename 
  22.     pushif    0 
  23.     pushif    0 
  24.     ctexture
  25.     popc    Ct 
  26.     jump    1
  27. label 0
  28.     pushif    1 
  29.     cset    Ct 
  30. label 1
  31.     return_area
  32.     pushv    I 
  33.     pushv    N 
  34.     normalize
  35.     faceforward
  36.     popv    Nf 
  37.     pushv    I 
  38.     normalize
  39.     negv
  40.     popv    V 
  41.     cpCC    Os Oi 
  42.     pushf    roughness 
  43.     pushv    V 
  44.     pushv    Nf 
  45.     specular
  46.     mulCF    specularcolor Ks 
  47.     mulcc
  48.     pushv    Nf 
  49.     diffuse
  50.     mulFc    Kd 
  51.     ambient
  52.     mulFc    Ka 
  53.     addcc
  54.     mulCC    Cs Ct 
  55.     mulcc
  56.     addcc
  57.     mulC    Os 
  58.     popc    Ci 
  59.     return
  60.