home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / animate / texanim / flame.pi next >
Encoding:
Text File  |  1993-01-28  |  1012 b   |  43 lines
  1. // Flickering flame animation
  2. start_frame 0
  3. end_frame 300
  4.  
  5. viewpoint {
  6.    from <0,3,-14>
  7.    at <0,4,0>
  8.    up <0,1,0>
  9.    angle 45
  10.    resolution 80, 160
  11.    aspect 0.5
  12.    }
  13.  
  14. background midnight_blue
  15. light < 5, 10, -20>
  16.  
  17. define flame_fn (sqrt(1.5 * x^2 + y^2) +
  18.                        2 * noise(P + <0, -frame/3, frame/6>, 1))
  19. define flame_tex
  20. texture {
  21.    special surface {
  22.       ambient 1
  23.       diffuse 0
  24.       specular 0
  25.       transmission (flame_fn < 5 ? black
  26.              : (flame_fn > 8 ? white
  27.              : white * (flame_fn - 5) / 3)), 1, 1
  28.       color color_map([-50, 1, blue, blue]
  29.                       [1, 2, blue, yellow]
  30.                       [2, 3, yellow, yellow]
  31.                       [3, 4, yellow, orange]
  32.                       [4, 5, orange, red]
  33.                       [5, 8, red, black]
  34.                       [8, 20, black, black], blue)[flame_fn]
  35.       }
  36.    }
  37.  
  38. object {
  39.    sphere <0, 4.5, 0>, 5
  40.    scale <2/5, 1, 1/100>
  41.    flame_tex { translate <0, 0.5, 0> }
  42.    }
  43.