// Last edited on 2003-12-14 02:37:23 by stolfi

#include "stars.inc"
#declare ctr = <0, 1, 0 >;
#declare camDir = < 3,3,10 >;

camera {
  location   ctr + 0.75*camDir
  right      1.00*x
  up         1.00*y
  sky        y
  look_at    ctr
}

light_source {
  10 * <20.0, +10.0, 20.0 >              // Posição da lâmpada.
   color rgb 4 * < 1.00, 1.00, 1.00 >   // Intensidade e corda luz.
}

/*------------------------CONFIGURACOES GERAIS DO AMBIENETE-------------------------------*/

//background{ color rgb < 0.75, 0.80, 0.85 > }

   #declare Clouds0 = pigment{
     gradient y
     color_map {
        [0 color <0,0,1>]
        [1 color <0.4,0.5,0.7>]
      }
      scale 2
      translate -1

   }

   #declare Clouds1 = pigment {
      bozo
      turbulence 0.2
      color_map {
        [0.0 color rgb <0,0,1> filter 1]
        [0.5 color rgb <1,1,1>]
        [1.0 color rgb <0,0,1> filter 1]
      }
    }

  #declare Clouds4 = pigment {
    granite
    turbulence 1
    color_map {
      [0.0 color rgb <1,1,1> filter 1]
      [0.5 color rgb <1,1,1>]
      [1.0 color rgb <1,1,1> filter 1]
    }
  }

#declare Starfield1 =
    pigment {
        granite
        color_map {
            [ 0.000  0.270 color rgb < 0, 0, 0> color rgb < 0, 0, 0> ]
            [ 0.270  0.280 color rgb <.5,.5,.4> color rgb <.8,.8,.4> ]
            [ 0.280  0.470 color rgb < 0, 0, 0> color rgb < 0, 0, 0> ]
            [ 0.470  0.480 color rgb <.4,.4,.5> color rgb <.4,.4,.8> ]
            [ 0.480  0.680 color rgb < 0, 0, 0> color rgb < 0, 0, 0> ]
            [ 0.680  0.690 color rgb <.5,.4,.4> color rgb <.8,.4,.4> ]
            [ 0.690  0.880 color rgb < 0, 0, 0> color rgb < 0, 0, 0> ]
            [ 0.880  0.890 color rgb <.5,.5,.5> color rgb < 1, 1, 1> ]
            [ 0.890  1.000 color rgb < 0, 0, 0> color rgb < 0, 0, 0> ]
        }
    turbulence 1
    sine_wave
    scale .5
    }

 sky_sphere{
   pigment {Starfield1}
  }

#declare ceu =
  texture{
    pigment {Clouds1 scale 0.5}
  }


/*---------------CRESCIMENTO--------------------*/
#declare clck1 = clock/0.5;
#declare clck2 = (clock-0.3)/(1-0.3);
#declare clck3 = clock/0.8;
#declare clck4 = (clock-0.8)/(1-0.8);
#declare expl=0;

#if (clock>0.8)
  #declare expl = (1-clck4)*0+clck4*2;
#end

#declare posxcil = -1.2;
#declare posycil = 1;
#declare eco2=0;

#declare eco1 = (1-clck3)*0+clck3*1;

#if(clock>0.3)
  #declare eco2 = (1-clck2)*1+clck2*1.5;

#end

#declare terra =
  sphere {
    <0,0,0>
    2
    texture {Clouds1}
  }

#declare death =
  blob{
  threshold 0.5
   sphere {
     <0,0,0>
     0.6
     1
      texture {
        pigment {color rgb <0.9, 0.1, 0.1> transmit 0.5}
        finish {specular 0.1 ambient 0.9}
      }
   }
   sphere { <0.3,0,0>,0.4,1 pigment {color rgb <0.25,0.25,0>} }
   sphere { <0.3,0.3,0>,0.5,1 pigment {color rgb <0.25,0.25,0>} }
   sphere { <0,0,0.2>,0.6,1 pigment {color rgb <0.25,0.25,0>} }
   sphere { <0.5,0,0>,0.2,-1 pigment {color rgb <0.25,0.25,0>} }
   sphere { <0.5,0.6,0>,0.1,-1 pigment {color rgb <0.25,0.25,0>} }
   sphere { <0,0,0.6>,0.2,-1 pigment {color rgb <0.25,0.25,0>} }
  }

#declare economia=
   blob{
      threshold 0.5
      sphere {<0,0,0>,expl,-5 texture {Clouds1}}
      sphere {<0,0,0>, 2,1 texture{ceu}  }
      sphere {<1.5,0,0> ,eco1*2, -1.5 texture{ceu}}
      sphere {<-1.2,0,0>, -eco1, 1  texture{ceu}}
      sphere {<-eco2,eco2,0>,1, 1  texture{ceu}}
      sphere {<-eco2,-eco2,0>,1, 1  texture{ceu}}
      sphere {<-eco2,0,0>,1, 1  texture{ceu}}

   }

#declare explosion =
  sphere {
    <-1,0,0>
    (1-clck4)*1.5+clck4*0.3
   texture {
        pigment {color rgb <0.9, 0.9, 0.4> transmit 0.5}
        finish {specular 0.1 ambient 0.9}//ambient 1 diffuse .6}
      }
}

#declare fonte=
 light_source {
    <0, 0, 0>
    color rgb 5*<1,0.1,0.1>
    looks_like { explosion }
    media_attenuation on

}

/*-------------------CENA----------------------*/
object {economia}
object {death 
  scale 1 
  translate <(1-clck3)*-8+clck3*-1,(1-clck3)*8+0*clck3,(1-clck3)*-18+clck3*0>
}

#if (clock>0.8)
  object {fonte}
#end