home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1995 January / pcw-0195.iso / polyray / dat / simple / discs.pi < prev    next >
Text File  |  1994-12-31  |  730b  |  32 lines
  1. //
  2. // CSG intersection of several discs (much better than using polynomial
  3. // planes)
  4. //
  5. viewpoint {
  6.    from <0,2,-8>
  7.    at <0,0,0>
  8.    up <0,1,0>
  9.    angle 25
  10.    resolution 160, 160
  11.    }
  12.  
  13. background <0, 0, 0>
  14. light <-50,10, -5>
  15. light < 10,20, -10>
  16.  
  17. include "..\colors.inc"
  18. include "..\texture.inc"
  19.  
  20. object {
  21.      object { disc < 1, 0, 0>, < 1, 0, 0>, 2 }
  22.    * object { disc <-1, 0, 0>, <-1, 0, 0>, 2 }
  23.    * object { disc < 0, 1, 0>, < 0, 1, 0>, 2 }
  24.    * object { disc < 0,-1, 0>, < 0,-1, 0>, 2 }
  25.    * object { disc < 0, 0, 1>, < 0, 0, 1>, 2 }
  26.    * object { disc < 0, 0,-1>, < 0, 0,-1>, 2 }
  27.    bounding_box <-1, -1, -1>, <1, 1, 1>
  28.    blue_ripple { scale <0.3, 0.3, 0.3> }
  29.    rotate <-30, 30, 0>
  30.    }
  31.  
  32.