#declare Candle =
union{
 lathe{
  linear_spline 27,
    <0.000000,0.000000>,<0.072407,0.030038>,<0.084233,0.039200>,
    <0.094412,0.050470>,<0.102887,0.063629>,<0.109666,0.078300>,
    <0.114786,0.094229>,<0.118402,0.111670>,<0.120700,0.131000>,
    <0.121833,0.152533>,<0.121833,0.176333>,<0.120700,0.202400>,
    <0.118244,0.231237>,<0.113522,0.265363>,<0.105400,0.307800>,
    <0.093248,0.360060>,<0.078451,0.417617>,<0.062900,0.474433>,
    <0.048229,0.525421>,<0.035070,0.569290>,<0.023800,0.605700>,
    <0.014733,0.634413>,<0.007933,0.655608>,<0.003400,0.669566>,
    <0.001007,0.676908>,<0.000125,0.679613>,<0.000000,0.679999>
   texture{
  pigment{rgbt 1
 }
}
 interior{
   media{
     mission 2 
     scattering{1,.01}
     intervals 10 
     samples 1, 15
     confidence 0.9999 
     variance 1/1000 
     density {
      spherical
  //  spiral1 2
       turbulence 1.35
        color_map{
         [ 0 rgb<1.0,1.00,0.00>]
         [.1 rgb<1.0,0.50,0.00>]
         [.5 rgb<1.0,0.75,0.25>]
         [.7 rgb<0.7,0.45,0.00>]
         [ 1 rgb<1.0,0.65,0.00>]
         }
        scale 2.25
       }
      scale 2.25
     }
    }
   hollow 
  scale<1.25,2.0,1.25>*3 
 translate y*1.25
}

 intersection{
  cone{y*-8,0.75,y*1,0.5 
   pigment{rgb<1,1,0.97>}
  finish{ambient 0.5 diffuse 0.23}
 }

 sphere{<0.05,1,0>,0.5 inverse
  pigment{rgb 1}
   finish{ambient 0.5 diffuse 0.23}
  }
 }

 cylinder{y*0.8,y*1.5,0.1 
   pigment{rgb 0}
  }
 }


 camera{location<0,3.8,-20>look_at y*0}

 light_source{<0,0,-500>rgb 1}


 #declare Set = 
  union{
   #declare A = 0;
   #while  (A < 3)
     object{Candle
      translate<-1.5,-0.75,0.0>
     translate<A*1.25,A,0>
    }
   #declare A = A+1;
   #end
  }

 object{Set rotate   0*y translate< 3,1,0>}
 object{Set rotate 180*y translate<-3,1,0>}