home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 August / chip_08_2000.iso / aktualnosci / shareware / Rhinoceros / rh11eval_20000320.exe / %MAINDIR% / RIB / rh_spot.slc < prev    next >
Encoding:
Text File  |  2000-06-08  |  1.0 KB  |  65 lines
  1. version BMRT 2.4.0b
  2. light rh_spot
  3. param    float    intensity        1
  4. param    color    lightcolor        1 1 1
  5. param    point    from        0 0 0
  6. local    string    $_str_0     "current"
  7. local    string    $_str_1     "shader"
  8. param    point    to        0 0 0
  9. param    float    coneangle        0.523599
  10. param    float    conedeltaangle        0.0872665
  11. param    float    beamdistribution        2
  12. local    float    atten    0
  13. local    float    cosangle    0
  14. local    vector    A    0 0 0
  15. initcode 2
  16.     pushiv    0 0 0 
  17.     pushs    $_str_0 
  18.     pushs    $_str_1 
  19.     ptransformss
  20.     popv    from 
  21. initcode 3
  22.     pushiv    0 0 1 
  23.     pushs    $_str_0 
  24.     pushs    $_str_1 
  25.     ptransformss
  26.     popv    to 
  27. initcode 6
  28.     return
  29. code
  30.     return_area
  31.     subVV    to from 
  32.     normalize
  33.     popv    A 
  34.     pushf    coneangle 
  35.     pushv    A 
  36.     pushv    from 
  37.     illuminate3    0
  38.     pushv    L 
  39.     length
  40.     pushv    A 
  41.     pushv    L 
  42.     vdot
  43.     divff
  44.     popf    cosangle 
  45.     pushf    beamdistribution 
  46.     pushf    cosangle 
  47.     pow
  48.     popf    atten 
  49.     pushf    cosangle 
  50.     subFF    coneangle conedeltaangle 
  51.     cos
  52.     pushf    coneangle 
  53.     cos
  54.     smoothstep
  55.     mulF    atten 
  56.     popf    atten 
  57.     pushif    2 
  58.     pushc    lightcolor 
  59.     mulFF    atten intensity 
  60.     mulfc
  61.     mulcf
  62.     popc    Cl 
  63. label 0
  64.     return
  65.