// flame (MegaPov needed, as is)
#declare FlameMedia=
 sphere {0,1.1
   pigment {rgbf 1}
        interior {
                media {
                method 2 intervals 2 samples 3,3  // megapov, or increase intervals
and samples
                absorption <.33,.5,.67>*2 emission <.33,.5,.67>*1.67
                scattering {2,<.75,.67,.5>*2 extinction .133}
                density {spherical turbulence <.1,.2,.15>*1.5
                        density_map {
                        [0 rgb 0][.15 rgb <1.5,1,.5>*3][.5 rgb <1.25,.5,.75>*2][.7 rgb
<0,.05,.5>*6]
                        } scale <.85,.9,.85> translate -.25*y}
                }
                media {
                method 2 intervals 2 samples 3,3  // megapov, or increase intervals
and samples
                absorption <.36,.33,.167>*3 emission <.25,.5,.75>*1.133
                scattering {1,<.25,.33,.75>*3 extinction .67}
                density {spherical turbulence <.1,.2,.15>*.5
                        density_map {
                        [0 rgb 0][.3 rgb <0,.05,1.15>*6]
                        } scale <.7,.3,.7> translate -.9*y}
                }
       }
  scale <.9,3,.9>*.25 rotate 45*y translate .225*y
 hollow
 }

#declare SmallFlame=
 light_source { .5*y, <.75,.5,.25>
       area_light <.5,0,0>,<0,1,0>,3,3 jitter adaptive 1
    orient circular  // megapov only
  looks_like {FlameMedia}
   media_interaction on media_attenuation on
   fade_distance 6 fade_power 2
  translate 1.075*y
 }

SmallFlame

// omniVerse http://users.aol.com/persistenceofv/all.htm

Post a reply to this message