home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / animate / ufo / ufo2.pi < prev    next >
Encoding:
Text File  |  1993-02-11  |  1.2 KB  |  52 lines
  1. start_frame 0
  2. end_frame 20
  3. total_frames 20
  4.  
  5. define t0 0
  6. define t1 20
  7. define increment  (frame - t0) / (t1 - t0)
  8.  
  9. define Cone_Offset <100 - increment * 650, 0, 0>
  10.  
  11. // A single UFO
  12. include "../../colors.inc"
  13. include "ufo.inc"
  14.  
  15. // Define the location and orientation of the UFO
  16. // Only change x and z for now to get the locations
  17. define UFO_Location1 <0, 20, 0>
  18. define UFO_Orientation1 <-30, 60, 0>
  19.  
  20. // Change the orientations of the barrels for the ufo.
  21. define Gun_Orientation1_1 <90, 80, 0>
  22. define Gun_Orientation1_2 <90, 80, 0>
  23.  
  24. // Now make a UFO with a gun assembly hanging off the top and bottom
  25. object {
  26.    (UFO_Body
  27.     + Gun_Barrels { rotate Gun_Orientation1_1 translate Gun_Assembly_Location1 }
  28.     + Gun_Barrels { rotate Gun_Orientation1_2 translate Gun_Assembly_Location2 }
  29.     ) & ~object { cone Cone_Offset, 0, Cone_Offset + <1000, 0, 0>, 100
  30.          // rotate <0, 10, 70>
  31.          }
  32.    rotate UFO_Orientation1
  33.    translate UFO_Location1
  34.    }
  35.  
  36. // Put in some ground for reference
  37. object {
  38.    disc <0, -30, 0>, <0, 1, 0>, 500
  39.    Ground_Texture
  40.    }
  41.  
  42. viewpoint {
  43.    from  <0, 20, -150.0>
  44.    at <0, 20, 0>
  45.    up <0, 1, 0>
  46.    angle 30
  47.    resolution 160, 120
  48.    aspect 4/3
  49.    }
  50.  
  51. light 0.8*white, <-100, 200, -100>
  52.