// WIND / WINTER '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=false;
#declare ftname="gttree5.inc"
#declare fvname="gtfoliage5.inc"
#declare ffname="gtleaf5.inc"
#declare txtTree=texture{txtTree_5}
#declare rsd=150;//213;
#declare rd=seed(rsd);
#declare rdl=seed(rsd);
#declare level0=7;
#declare nseg0=6;
#declare nb=3;
#declare dotop=false;
#declare lb0=35;
#declare rb0=5;
#declare ab0=45;
#declare qlb=0.8;
#declare qrb=0.4;
#declare qab=0.91;
#declare stdax=100;
#declare stday=100;
#declare branchproba=1;
#declare jb=0;
#declare fgnarl=0.3;
#declare stdlseg=0.1;
#declare twigproba=0;
#declare v0=<0,1,0>;
#declare pos0=<0,0,0>;
#declare vpush=<0.3,1,0.3>;
#declare fpush=0.001;
#declare aboveground=-2;
#declare belowsky=1000;
#declare rootproba=1;
#declare nroot=12;
#declare vroot=<0.05,-0.02,0>;
#declare yroot=<0,1.2,0>;
#declare leafproba=0;
#declare leaflevel=4;
#declare alz0=40;
#declare alx0=-20;
#declare stdalx=40;
#declare stdlsize=0.8;
#declare txtLeaf=texture{txtLeaf_1}
#declare lsize=0.5;
#declare seg=4;
#declare ll=10;
#declare wl=4;
#declare fl=0.2;
#declare lpow=3;
#declare al=100;
#declare apow=1;
#declare ndents=8;
#declare nlobes=5;
#declare alobes=10;
#declare qlobes=0.9;
#declare ls=0;
#declare ws=0.12;
#declare as=2;
#declare it=0; #while (it<3)
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 x*0 rotate z*0 scale 0.0024
        translate <-0.4+it*0.3,0.0,-4.3+it*0.1>
        finish {ambient 0.4}
}
#declare it=it+1; #end
//The end of tree

#version 3.1;
global_settings {
  max_trace_level 30
  assumed_gamma 2.2
  }

light_source {<-80, 60, 150> color <0.2,0.2,0.25>}

camera {
  location <0,0.32,-6>
  angle 45
  look_at <0, -1.68, 0>
  }

sphere { <0, -1000, 0>  1000
  pigment {wrinkles
    color_map{ 
      [0.10 color rgbt <2,2,2,0.5>]
      [0.50 color rgbt <2.5,2.5,2.5,0.1>]
      [0.502 color rgbt <0,0,0,0.9>]
      [0.58 color rgbt <2,2,2,0.2>]
      }
    turbulence 0.5
    scale 6
    rotate y*180
    }
  finish {ambient 0.3}  
  }

background { color rgb <0.4,0.4,1> }