home *** CD-ROM | disk | FTP | other *** search
/ Ray Tracing Box / RAY_CD.mdf / RAYTRACE / _POV_DAT / REX5 / GUN.INC < prev    next >
Encoding:
Text File  |  1993-01-17  |  1.6 KB  |  64 lines
  1. //--- Buck Roger's Ray Gun
  2.  
  3.  
  4.  
  5.  
  6. #declare Gun =
  7. composite {
  8.  composite { 
  9.   object {
  10.    union {
  11.     intersection { Disk_Y scale <8 27 6> translate <0 -2 0> }
  12.     intersection { Disk_X scale <42.5 6.5 12.1> translate <-7.7 27.9 0> }
  13.     intersection { Disk_X scale <1 12 12> translate <-75 33.4 0> }
  14.     intersection { Disk_X scale <1 12 12> translate <-71 33.4 0> }
  15.     intersection { Disk_X scale <1 12 12> translate <-67 33.4 0> }
  16.    }
  17.       texture { RayGunGreen }
  18.         bounded_by {
  19.         box { UnitBox scale <57 40 13> translate <-20.5 11.9 0> }
  20.         }
  21.   }
  22.  
  23.   object {
  24.    union {
  25.     intersection { Disk_X scale <41 8 8> translate <-39 33.4 0> }
  26.     quadric { Sphere scale <8 8 8> translate <-80 33.4 0> }
  27.     quadric { Sphere scale <8 8 8> translate <2 33.4 0> }
  28.     quadric { Sphere scale <8 8 8> translate <10 33.4 0> }
  29.     quadric { Sphere scale <8 8 8> translate <18 33.4 0> }
  30.     quadric { Sphere scale <8 8 8> translate <26 33.4 0> }
  31.     intersection { Disk_X scale <20 7.5 4> translate <6 41.9 0> }
  32.    }
  33.       texture { Gold3 }
  34.         bounded_by {
  35.         box { UnitBox scale <62 16 10> translate <-28.1 34.9 0> }
  36.         }
  37.   }
  38.         bounded_by {
  39.         box { UnitBox scale <68 42 13> translate <-26.9 14.4 0> }
  40.         }
  41.   }
  42. } 
  43.  
  44.  
  45. //--- Gun with Ray
  46. #declare RayGun =
  47. composite {
  48.   composite { Gun }
  49.   //-- Laser photon
  50.   object {
  51.    quadric { Sphere scale <16 10 10> translate < -100 33.4 0 > }
  52.      texture { LaserDust translate <-88 0 0>}
  53.   }
  54.  
  55.   object {
  56.    intersection { Disk_X scale <7022 7 7> translate <-7100 33.4 0> }
  57.      texture { Laser }
  58.   }
  59. }
  60.  
  61.  
  62.  
  63.  
  64.