home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / animate / texanim / phaserb.pi < prev    next >
Encoding:
Text File  |  1980-01-05  |  977 b   |  41 lines
  1. // Attempt to make an object melt using noise and alpha.  Perhaps the
  2. // aftereffect of being hit by a phaser?
  3.  
  4. // Set up the camera
  5. viewpoint {
  6.    from <0,0,-8>
  7.    at <0,0,0>
  8.    up <0,1,0>
  9.    angle 45
  10.    resolution 128, 128
  11.    }
  12.  
  13. start_frame 0
  14. end_frame 40
  15.  
  16. define t0 0
  17. define t1 40
  18. define increment  (frame - t0) / (t1 - t0)
  19.  
  20. include "../../colors.inc"
  21. background coral
  22. light <-10,3, -20>
  23.  
  24. define bright_green texture { surface { color green ambient 1 diffuse 0 } }
  25. define clear texture { surface { ambient 0 diffuse 0 transmission white, 1, 1 }}
  26.  
  27. define pwidth  0.1
  28. define poffset (1.0 - increment) * (1 + pwidth)
  29. define phaser_fn noise(2*P, 1)
  30. define phaser_map
  31.    texture_map([0, poffset-pwidth, shiny_red, shiny_red],
  32.            [poffset-pwidth, poffset, shiny_red, bright_green],
  33.            [poffset, 1, clear, clear])
  34.  
  35. define phaser_blast texture { indexed phaser_fn, phaser_map }
  36.  
  37. object {
  38.    sphere <0, 0, 0>, 2
  39.    phaser_blast
  40.    }
  41.