home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 August / chip_08_2000.iso / aktualnosci / shareware / Rhinoceros / rh11eval_20000320.exe / %MAINDIR% / RIB / show_xyz.slc < prev    next >
Encoding:
Text File  |  2000-06-08  |  1.0 KB  |  72 lines
  1. version BMRT 2.4.0b
  2. surface show_xyz
  3. param    float    xmin        -1
  4. param    float    ymin        -1
  5. param    float    zmin        -1
  6. param    float    xmax        1
  7. param    float    ymax        1
  8. param    float    zmax        1
  9. local    string    $_str_0     "bad bounding box %f %f %f %f %f %f in show_xyz()"
  10. local    string    $_str_1     "shader"
  11. local    point    scale    0 0 0
  12. local    point    zero    0 0 0
  13. local    point    objP    0 0 0
  14. local    point    cubeP    0 0 0
  15. initcode 5
  16.     return
  17. code
  18.     return_area
  19.     pushf    zmin 
  20.     pushf    zmax 
  21.     feqf
  22.     pushf    ymin 
  23.     pushf    ymax 
  24.     feqf
  25.     pushf    xmin 
  26.     pushf    xmax 
  27.     feqf
  28.     or
  29.     or
  30.     ifz    0
  31.     pushf    zmax 
  32.     pushf    zmin 
  33.     pushf    ymax 
  34.     pushf    ymin 
  35.     pushf    xmax 
  36.     pushf    xmin 
  37.     pushs    $_str_0 
  38.     printf
  39.     jump    1
  40. label 0
  41.     subFF    zmax zmin 
  42.     pushif    1 
  43.     divff
  44.     subFF    ymax ymin 
  45.     pushif    1 
  46.     divff
  47.     subFF    xmax xmin 
  48.     pushif    1 
  49.     divff
  50.     popv    scale 
  51.     pushf    zmin 
  52.     pushf    ymin 
  53.     pushf    xmin 
  54.     popv    zero 
  55.     pushv    P 
  56.     pushs    $_str_1 
  57.     transforms
  58.     popv    objP 
  59.     pushv    scale 
  60.     subVV    objP zero 
  61.     mulvv
  62.     popv    cubeP 
  63.     pushv    cubeP 
  64.     zcomp
  65.     pushv    cubeP 
  66.     ycomp
  67.     pushv    cubeP 
  68.     xcomp
  69.     popc    Ci 
  70. label 1
  71.     return
  72.