home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 August / chip_08_2000.iso / aktualnosci / shareware / Rhinoceros / rh11eval_20000320.exe / %MAINDIR% / RIB / rh_emboss.slc < prev    next >
Encoding:
Text File  |  2000-06-08  |  420 b   |  32 lines
  1. version BMRT 2.4.0b
  2. displacement rh_emboss
  3. param    float    Km        0.05
  4. param    string    texturename        ""
  5. local    string    $_str_0     ""
  6. initcode 1
  7.     return
  8. code
  9.     pushs    $_str_0 
  10.     pushs    texturename 
  11.     sne
  12.     ifz    0
  13.     pushv    N 
  14.     normalize
  15.     pushf    t 
  16.     pushf    s 
  17.     pushif    0 
  18.     pushs    texturename 
  19.     pushif    2 
  20.     pushif    2 
  21.     ftexture
  22.     mulF    Km 
  23.     mulfv
  24.     addV    P 
  25.     popv    P 
  26.     pushv    P 
  27.     calculatenormal
  28.     popv    N 
  29. label 0
  30. label 1
  31.     return
  32.