// Last edited on 2003-04-12 05:01:12 by stolfi
#include "colors.inc"
#include "metals.inc"
#include "woods.inc"
#include "glass.inc"
#include "skies.inc"

background{ SkyBlue }

light_source {
  10*< 10.00, 0.00, 7.00 >
  color rgb 0.5*< 2.00, 2.00, 2.00 >
} 

light_source {
  10*< 0.00, 10.00, 0.00 >
  color rgb 0.5*< 2.00, 2.00, 2.00 >
} 

light_source {
  10*< -5.00, -25.00, 15.00 >
  color rgb 0.5*< 3.00, 3.00, 3.00 >
} 


camera {
  location  1.5* <12 , 1.5, 12.00 >
  right     -0.60*x up 0.80*y
  sky       <  0.00, 0.00, 1.00 >
  look_at   <  0.00, 0.00, 8.00 >
} 

#declare copo = difference{
  cylinder{
	<0,0,0>,
	<0,0,5>,
	1.2
  scale <0.4,1,1>
  texture{ T_Glass3}
  }
  cylinder{
	<0,0,1>,
	<0,0,6>,
	1
  scale <0.4,1,1>
  interior{I_Glass}
  texture{ 
  finish{F_Glass2}
  pigment{ Blue filter 1}
  }
}}

#declare plano=object{
 plane{
 <0,0,1>,0
	texture{T_Wood1 }
}
}

#declare tam_bomba=10;
#declare tam_anel=.4;

#declare anel=object{
  torus{
   2.5,.5
   pigment{Red}
   rotate <-90,0,0>
   }
}

#declare entre_anel= (tam_bomba)/4;

#declare bomba=union{
   cylinder{
   <0,0,0>,
   <0,0,tam_bomba>,
   2
   texture{ pigment{Black} finish{F_MetalB}}
   }
 
   object{anel translate <0,0,0*entre_anel+tam_anel>}
   object{anel translate <0,0,1*entre_anel+tam_anel>}
   object{anel translate <0,0,2*entre_anel+tam_anel>}
   object{anel translate <0,0,3*entre_anel+tam_anel>}
   object{anel translate <0,0,4*entre_anel+tam_anel>}

}

#declare bomba_com_copo=union{
  object{bomba}
  object{copo translate <0,0,tam_bomba> scale 0.9}
}

bomba_com_copo
plano