home *** CD-ROM | disk | FTP | other *** search
/ TopWare 18: Liquid / Image.iso / liquid / top1089 / polyray.pi < prev    next >
Encoding:
Text File  |  1993-11-22  |  1021 b   |  50 lines
  1. // Polyray input File for RDS generation
  2.  
  3. // Set up the camera
  4. viewpoint {
  5.          from <0,0,6>
  6.          at <0,0,0>
  7.          up <0,1,0>
  8.          angle 30
  9.          resolution 640, 480
  10.          aspect 4/3                 
  11.        }
  12.  
  13. // Light the scene
  14. light <-24, 8, -24>
  15.  
  16. // Define color of CSG object
  17. define hot_red
  18. texture {
  19.    surface {
  20.       ambient red, 1
  21.       specular white, 0.3
  22.       microfacet Reitz 10
  23.       }
  24.    }
  25.  
  26. /* object{
  27.     disc <0, 0, -1>, <0, 0, 1>, 20
  28.     texture{ surface{ ambient black, 1 } } 
  29.       }       */
  30.  
  31.  
  32. // Define primitives for CSG shape  
  33. define cyl1 object { cylinder <5, 0, 0>, <-5, 0, 0>, 0.5 }
  34. define cyl2 object { cylinder <0, 5, 0>, <0, -5, 0>, 0.5 }
  35. define cyl3 object { cylinder <0, 0, 5>, <0, 0, -5>, 0.5 }
  36.  
  37. define sphere1 object { sphere <0, 0, 0>, 1 }
  38.  
  39.  
  40. // Define a CSG shape by deleting three cylinders from the sphere
  41.  
  42. object {
  43.     object { sphere1 hot_red } -
  44.     object { cyl1 } -
  45.     object { cyl2 } -
  46.     object { cyl3 }
  47.     rotate <45, 45, 0>
  48.     translate <0, 0, -1>
  49.        }
  50.