// MC930 - Computacao Grafica
// Sexto Exercicio de laboratorio - 09/11/2000
// Luis Arthur Micai Nunes   RA: 971106
     
background { color rgb < 0.00, 0.00, 0.00 > }

light_source { <8.00, 25.00, -10.00 >
    color rgb <1.50, 1.50, 1.50> 
    }
     
camera {
    location < 8.00, 19.00, -25.00 >
    look_at  < 0.00, 2.00, 2.00 >  
    }

#declare caixaalta = 
     difference {
	 box {
	        <-4,0,-4>,
		<4,13,4>
		texture { pigment {color rgb <.6, .6, 1.00> }
                          finish { diffuse 0.5 specular 0.5 roughness
0.005 ambient 0.1}
                        }
             }
         box {
                <-3,1,-3>,
                <3,15,3>
                texture { pigment { color rgb <1,0,0> }
                        
                       }
             }
     } 

#declare caixabaixa = 
     difference {
           box {
               <-4,0,-12>,
               <4,6,-4>
               texture {pigment { color rgb < 0.6,0.6,1> }
                      finish {  diffuse 0.5 specular 0.5 roughness 0.005 
                        ambient 0.1 }

                       }
               }
           box {
               <-3,1,-11 >,
               < 3,8,-5 >
               texture { pigment {color rgb <1,0,0 > }
                       }
               }
     }


#declare cilindro =
  difference { 
     difference {
        cylinder {
                 <4,0,-4>,
                 <4,4,-4>,
                 4
                 texture { pigment { color rgb <0.6,0.6,1>}
                       finish { diffuse 0.5 specular 0.5 roughness
                                0.005 ambient 0.1 }
                         }
                 }
        cylinder {
                 <4,1,-4>,
                 <4,8,-4>,
                 3.5
                 texture { pigment { color rgb <1,0,0> }
                         }
                }
       }
     box {
         <-4,0,-12>,
         <4,5,-4>
         texture {pigment { color rgb <1,1,1> }
                 }
         }
  }
#declare suporte =
        cylinder {
                 <0,-3,0>,
                 <0,0,0>,
                 13
                 texture { pigment { color rgb <1,1,0>}
                        finish { diffuse 0.5 specular 0.5 roughness 0.005
                                 ambient 0.1 }                   
              }
                 }
union {
      object {caixaalta}
      object {caixabaixa}
      object {caixabaixa
              translate <8,0,8>
             }
      object {caixabaixa
              translate <-8,0,8>
             }
      object {caixabaixa
              translate <0,0,16>
             }
    
      object {cilindro}
         
      object {suporte}
}