//glow
//my pathetic attempt to make a light 'glow'
//became my not-so-bad attempt at a torch
//12/06/1999

global_settings {ambient_light 0 max_trace_level 10}

camera {location <1,.5,-1>*7 look_at 0}

#declare M=10;

#declare Fire =
interior
{
 media
 {
  scattering {2, rgb 1/275}
  intervals 4*M
    samples 1*M,2*M
  confidence .9999999
    variance .0000001
       ratio .9999999
  density
  {
   bozo
   color_map {[0 rgb <2,.5,0>/4][1 rgb 1]}
   scale <1,9,1>/9
   translate x*3 rotate y*360*clock
   warp {turbulence <1,2,1>/3.5}
   rotate -y*360*clock translate -x*3
  }
 }
}

/*light_source {-y*.50 rgb <1,.9,.1>*20 groups "Fire"}
light_source {-y*.75 rgb <1,.9,.1>*35 groups "Fire"}
#declare Egg = sphere {0,1 scale <2,3,2>*2/3 translate y*.75}
object {Egg hollow pigment {rgbt 1} interior {Fire} light_group "Fire"}*/

light_source {<1,1,-1>*5 rgb 1 groups "Holder"}

blob
{
 threshold .6
 sphere {-y*0.5,.5,-4 scale <1,1.75,1>}
 sphere {-y*1.2,.7, 3}
 cylinder {< 1,-12, 1>/9,-y*10,.15,2}
 cylinder {<-1,-12, 1>/9,-y*10,.15,2}
 cylinder {< 1,-12,-1>/9,-y*10,.15,2}
 cylinder {<-1,-12,-1>/9,-y*10,.15,2}
 pigment
 {
  bozo scale .25
  color_map
  {
   [0.5 rgb <.6,.7,.5>]
   [0.9 rgb <.8,.6,.4>]
   [1.0 rgb <.7,.5,.3>]
  }
  turbulence 1
 }
 finish {specular .25 roughness 1/64 reflection .25 metallic}
 normal {bozo scale .25 slope_map {[0 <1,2>][1 <1,-2>]} turbulence 1}
 scale <2,1,2>
 light_group "Holder"
}

sphere
{
 0,1 scale <2.85,.5,2.85>*.25
 translate -y*1
 pigment {rgb <1,.75,.4>*1.1 transmit .75}
 finish {reflection .25 specular .5 roughness 1/128}
 normal {ripples 3 scale 1/8 phase 1-clock}
 interior {ior 4/3}
 light_group "Holder"
}