home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / raytrace / rayshade / examples / scripts / glass < prev    next >
Encoding:
Text File  |  1988-02-04  |  900 b   |  42 lines
  1. /*
  2.  * Bump-mapped transparent drinking glass on checkerboard
  3.  * C Kolb 12/90
  4.  */
  5. /*
  6.  * Drinking glass object.
  7.  * C. Kolb 12/89
  8.  */
  9. name glass
  10. union
  11.  torus 0.95 0.06 0 0 2 0 0 1
  12.  difference
  13.   list /* outer glass */
  14.    cone 0.9 0 0 -0.001 1.0 0 0 2
  15.    disc 1 0 0 2 0 0 1
  16.    disc 0.9 0 0 -.001 0 0 -1
  17.   end
  18.   list /* inner glass */
  19.    cone 0.7 0 0 0.1   0.9 0 0 2.2
  20.    disc .9 0 0 2.2 0 0 1
  21.    disc .7 0 0 0.1 0 0 -1
  22.   end
  23.  end
  24. end
  25.  
  26. surface glass
  27.  diffuse .08 .08 .08 specular .2 .3 .3
  28.  reflect 1. /*transp 1 body .7 .8 .8 index 1.3*/
  29. surface white ambient 1 1 1
  30. surface red diffuse .8 0 0  ambient .1 0 0 specular .6 .6 .6
  31.  
  32. object glass glass texture wood /*texture bump 0.2 scale .2 .2 .2*/
  33.  
  34. plane ambient .1 .1 .1 diffuse .7 .7 .7 0 0 0  0 0 1
  35.   texture checker red scale .8 .8 .8 translate 0 0 -.2
  36.  
  37. background .1 .3 .8
  38. eyep 0 -10 7
  39. fov 30
  40. light 1. directional 1. -1. 1.
  41. screen 256 256
  42. screen 128 128