home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 August / chip_08_2000.iso / aktualnosci / shareware / Rhinoceros / rh11eval_20000320.exe / %MAINDIR% / RIB / checker.slc < prev    next >
Encoding:
Text File  |  2000-06-08  |  756 b   |  60 lines
  1. version BMRT 2.4.0b
  2. surface checker
  3. param    float    Kd        0.5
  4. param    float    Ka        0.1
  5. param    float    frequency        10
  6. param    color    blackcolor        0 0 0
  7. local    float    smod    0
  8. local    float    tmod    0
  9. initcode 3
  10.     return
  11. code
  12.     return_area
  13.     pushif    1 
  14.     mulFF    s frequency 
  15.     mod
  16.     popf    smod 
  17.     pushif    1 
  18.     mulFF    t frequency 
  19.     mod
  20.     popf    tmod 
  21.     pushif    0.5 
  22.     pushf    smod 
  23.     lt
  24.     ifz    0
  25.     pushif    0.5 
  26.     pushf    tmod 
  27.     lt
  28.     ifz    2
  29.     cpCC    Cs Ci 
  30.     jump    3
  31. label 2
  32.     cpCC    blackcolor Ci 
  33. label 3
  34.     jump    1
  35. label 0
  36.     pushif    0.5 
  37.     pushf    tmod 
  38.     lt
  39.     ifz    4
  40.     cpCC    blackcolor Ci 
  41.     jump    5
  42. label 4
  43.     cpCC    Cs Ci 
  44. label 5
  45. label 1
  46.     cpCC    Os Oi 
  47.     pushv    I 
  48.     pushv    N 
  49.     normalize
  50.     faceforward
  51.     diffuse
  52.     mulFc    Kd 
  53.     ambient
  54.     mulFc    Ka 
  55.     addcc
  56.     mulCC    Oi Ci 
  57.     mulcc
  58.     popc    Ci 
  59.     return
  60.