home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 August / chip_08_2000.iso / aktualnosci / shareware / Rhinoceros / rh11eval_20000320.exe / %MAINDIR% / RIB / rh_pointlight.slc < prev    next >
Encoding:
Text File  |  2000-06-08  |  680 b   |  45 lines
  1. version BMRT 2.4.0b
  2. light rh_pointlight
  3. param    color    lightcolor        1 1 1
  4. param    point    from        0 0 0
  5. local    string    $_str_0     "current"
  6. local    string    $_str_1     "shader"
  7. local    float    intensity    0
  8. local    float    maxintensity    0
  9. initcode 1
  10.     pushiv    0 0 0 
  11.     pushs    $_str_0 
  12.     pushs    $_str_1 
  13.     ptransformss
  14.     popv    from 
  15.     return
  16. code
  17.     return_area
  18.     pushif    2 
  19.     pushc    lightcolor 
  20.     comp
  21.     pushif    1 
  22.     pushc    lightcolor 
  23.     comp
  24.     pushif    0 
  25.     pushc    lightcolor 
  26.     comp
  27.     fmax
  28.     fmax
  29.     popf    maxintensity 
  30.     pushif    20 
  31.     mulF    maxintensity 
  32.     exp
  33.     popf    intensity 
  34.     pushv    from 
  35.     illuminate1    0
  36.     pushv    L 
  37.     pushv    L 
  38.     vdot
  39.     pushc    lightcolor 
  40.     divcf
  41.     mulFc    intensity 
  42.     popc    Cl 
  43. label 0
  44.     return
  45.