home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 August / chip_08_2000.iso / aktualnosci / shareware / Rhinoceros / rh11eval_20000320.exe / %MAINDIR% / RIB / dented.slc < prev    next >
Encoding:
Text File  |  2000-06-08  |  832 b   |  61 lines
  1. version BMRT 2.4.0b
  2. displacement dented
  3. param    float    Km        1
  4. param    float    power        3
  5. param    float    frequency        1
  6. param    float    maxoctaves        6
  7. local    string    $_str_0     "shader"
  8. local    float    size    0
  9. local    float    magnitude    0
  10. local    float    i    0
  11. local    point    PP    0 0 0
  12. initcode 3
  13.     return
  14. code
  15.     pushif    0 
  16.     popf    magnitude 
  17.     pushv    P 
  18.     pushs    $_str_0 
  19.     transforms
  20.     popv    PP 
  21.     cpFF    frequency size 
  22.     pushif    0 
  23.     popf    i 
  24. label 0
  25.     pushf    maxoctaves 
  26.     pushf    i 
  27.     lt
  28.     ifz    2
  29.     pushf    size 
  30.     mulVF    PP size 
  31.     noisev
  32.     pushif    0.5 
  33.     subff
  34.     abs
  35.     divff
  36.     addF    magnitude 
  37.     popf    magnitude 
  38.     pushif    2 
  39.     mulF    size 
  40.     popf    size 
  41. label 1
  42.     pushif    1 
  43.     addF    i 
  44.     popf    i 
  45.     jump    0
  46. label 2
  47.     pushv    N 
  48.     normalize
  49.     pushf    power 
  50.     pushf    magnitude 
  51.     pow
  52.     mulF    Km 
  53.     mulfv
  54.     subV    P 
  55.     popv    P 
  56.     pushv    P 
  57.     calculatenormal
  58.     popv    N 
  59.     return_area
  60.     return
  61.