// WIND / SUMMER '99.06
// By Tsutomu HIGO  E-mail: nj2t-hg@asahi-net.or.jp

// From a sample of maketree macro 
// by Mr. gilles Tran  E-mail: tran@inapg.inra.fr
#include "colors.inc"
#include "txttree.inc"
#include "maketree.pov"
#declare PdV=<0, 4 , -110>;
#declare PdA=<0,25,0>;
#declare dofile=false;
#declare dotexture=true;
#declare ftname="gttree3.inc"
#declare fvname="gtfoliage3.inc"
#declare ffname="gtleaf3.inc"
#declare txtTree=texture{txtTree_5}
#declare rsd=211;
#declare rd=seed(rsd);
#declare rdl=seed(rsd);
#declare level0=5;
#declare nseg0=7;
#declare nb=4;
#declare dotop=true;
#declare lb0=20;
#declare rb0=0.7;
#declare ab0=25;
#declare qlb=0.7;
#declare qrb=0.5;
#declare qab=1;
#declare stdax=10;
#declare stday=10;
#declare branchproba=0.9;
#declare jb=0.4;
#declare fgnarl=0.3;
#declare stdlseg=0.5;
#declare twigproba=0;
#declare v0=<0,1,0>;
#declare pos0=<0,0,0>;
#declare vpush=<0,-0.2,0>;
#declare fpush=0.7;
#declare aboveground=0;
#declare belowsky=300;
#declare rootproba=0;
#declare nroot=5;
#declare vroot=<1,-0.4,0>;
#declare yroot=<0,0.5,0>;
#declare leafproba=1;
#declare leaflevel=4;
#declare alz0=70;
#declare alx0=-10;
#declare stdalx=20;
#declare stdlsize=0.1;
#declare txtLeaf=texture{txtLeaf_1}
#declare lsize=0.5;
#declare seg=10;
#declare ll=5;
#declare wl=1;
#declare fl=0.3;
#declare lpow=1;
#declare al=80;
#declare apow=1;
#declare ndents=0;
#declare nlobes=1;
#declare alobes=0;
#declare qlobes=1;
#declare ls=2;
#declare ws=0.06;
#declare as=6;
object{
        #if (leafproba>0)
        #declare Leaf=object{MakeLeaf(lsize,seg,ll,wl,fl,lpow,al,apow,
ndents,nlobes,alobes,qlobes,ls,ws,as,dofile,ffname)
                 #if (dotexture=false)
                        texture{txtLeaf}
                 #end
        } 
        #end              
        MakeTree()
        
        #if (dotexture = true)
                texture {txtLeaf}
        #else
                texture {txtTree}
        #end
rotate y*300 scale 0.95 translate <-12,-6,0>}
// The end of tree
 
light_source {<100000, 100000, -100000> color <5,5,5>}

camera {
  location <0,0,-40>
  angle 80
  look_at <0, 30, 0>
  }

//Clouds          
sphere { <0, -100000, 0>  101000
  pigment {wrinkles
    color_map{ 
      [0.12 color rgbt <10,10,10,0>]  
      [0.44 color rgbt <3,3,3,0.4>]  
      }
    turbulence 0.1
    scale <500.0,500.0,1000> rotate y*0 translate <0,0,100>
    }
  }  
  
//blue sky
sphere { <0, -100000, 0>  102000
  pigment {color rgbt <2,2,10,0.8>} 
  finish {ambient 1}
  }