#include "colors.inc"
#include "textures.inc"
#include "metals.inc"
#include"woods.inc"
#include "skies.inc"

  camera {
    location <-5,5,-20>
    look_at <0, 0,0>
  }

  light_source { <-10 ,0, -10> color White }
  light_source { <10 ,0, -10> color White }

sky_sphere {S_Cloud2}
plane {y,-10 texture{Sapphire_Agate}}

#declare bloco=
difference{
box {<-1.5,-2,-2>,  < 1.5,2, 2> }
cone {<-2, 0, 0>,.5, <2, 0, 0>, .5}
pigment{P_Silver4}finish {F_MetalB}
}

#declare combustor=
lathe {
    linear_spline
    6,
     <0,0>,<1,0><1,2>,<2,3>,<4,5>,<3,2>
     rotate z*-90
     pigment { P_Brass5}finish {F_MetalA}
     }

#declare rebim=
union{
cylinder{<0,0,0>,<4,0,0>,.5}
}

#declare rebimboca=
#if (clock<.7)
  #if (clock<.6)
   union {
   cylinder{<-2,0,0>,<0,0,0>,.5}
   sphere{<-2,0,0>,.5}
   object {rebim translate <-2,0,0> }
   texture {Peel}
   }
  #else
   union{
   cylinder{<-2,0,0>,<0,0,0>,.5}
   sphere{<-2,0,0>,.5}
   object {rebim scale <-1,1,1>rotate z*90*(clock-.6)/.1 translate <-2,0,0>}
   texture {Peel}
   }
  #end
#else
union{
cylinder{<-2,0,0>,<0,0,0>,.5}
sphere{<-2,0,0>,.5}
object{rebim rotate z*-90 translate <-2,0,0> }
texture {Peel}
}
#end

#declare conjunto=
union{
     object{bloco}
     object{combustor translate<0.3,0,0>}
     object {rebimboca}
     }
#declare suporte=
box {<-4,-10,-2>,  < 0,-7, 2> pigment{Pine_Wood}}


#if (clock<.7)
     #if (clock<.6)
        #if (clock <.3)
        union{
        object{bloco rotate x*360*clock/.3}
        object{combustor translate<5-5*(clock/0.3)+0.3,0,0>}
        object {rebimboca translate<-5,0,0>}
	   object{suporte}
         }
	 #else
          union{
          object{bloco}
          object{combustor translate<0.3,0,0>}
          object {rebimboca translate<-5+3.5*(clock-0.3)/0.6,0,0>}
             object{suporte}
	  }
	  #end
     #else
     union{
     object{bloco}
     object{combustor translate<0.3,0,0>}
     object {rebimboca}
        object{suporte}
     }
     #end
 #else
    union{
     object{conjunto translate <2,0,0> rotate y*720*(clock-0.7)/0.3 translate<-2,-4*(clock-.7)/.3,0>}
     object{suporte}
     }
#end