// POV-Ray 3.7 Scene File "tendril.pov"   
// from "povloopa.pov" by the master:
// author: Friedrich A. Lohmueller, Jan-2014
// homepage: http://www.f-lohmueller.de     
//
// thanks or helping dookie x busta nice curly to contain the flame (also from my man Freddy L!)
// what was that "candle_flame_4.pov" yep, I'm up to cf8.pov already (with 4 signiicant changes to things)

//--------------------------------------------------------------------------
//#default{ finish{ ambient 0.1 diffuse 0.9 }} 
//--------------------------------------------------------------------------

//---------------------------------------------------------------------------------

//--------------------------------------------------------------------------
//------------------------------ the Axes ----------------------------------  start coordinate axes
//--------------------------------------------------------------------------

//---------------------------------------------------------------------------- end of coordinate axes
//----------------------------------------------------------------------------
//---------------------------- objects in scene ------------------------------
//----------------------------------------------------------------------------
 
// PoVRay 3.7 Scene File " ... .pov"
// author:  ...
// date:    ...
//--------------------------------------------------------------------------
#version 3.7;

//--------------------------------------------------------------------------
#include "colors.inc"
#include "textures.inc"
#include "glass.inc"
#include "metals.inc"
#include "golds.inc"
#include "stones.inc"
#include "woods.inc"
#include "shapes.inc"
#include "shapes2.inc"
#include "functions.inc"
#include "math.inc"
#include "transforms.inc"
//--------------------------------------------------------------------------
//----------------------------------------------------------------------
//----------------------------------------------------------------------
//----------------------------------------------------------------------
#declare Ball =  sphere  {<0,0,0>,.69 scale <1,1.75,1> texture{ pigment{ color rgbt<1,1,0,.98>  } }      }
//---------------------------------------------------

#declare Radius0 = 1.5; //basic radius
#declare NR =  3;       //number of revolutions
#declare NpR=13;       //number of elements p.rev. 
#declare Scale=.4;    //per revolution
#declare HpR=05.0; //difference in y direction p.rev
//---------------------------------------------------
#local Hd       = HpR/NpR;
#local Scale_p  = pow(Scale,1/360);
#local Scale_pE = pow(Scale_p,360/NpR);

#local Old_S = Scale_pE;
#local Old_H = Hd;
#declare Tendril = merge{
#declare Nr = 0;         // start
#declare EndNr = NR*NpR; // end
#while (Nr< EndNr)    

 object{Ball translate<Radius0,0,0> 
             scale Old_S 
             translate<0,Old_H,0> 
             rotate<0,Nr * 360/NpR ,0>
             } 
                                                               
 #declare Nr = Nr + 1;  // next Nr

 #declare Old_S = Scale_pE*Old_S;
 #declare Old_H = Old_H+Hd*Old_S;

#end // ----------------// end of loop-o-balls! 
//cylinder{0,y*6,.03} // better on a stick!
rotate<0,0,0>
} // end union    , and object Tendril is created!


            

#declare TendrilC=difference{object{Tendril} 
                             box { <-5,7,-5>,< 5.00, 3.00, 5.00> } // end of box --------------------------------------  
                             translate y*1.5}// endo TendrilC