// Last edited on 2003-12-07 17:17:36 by stolfi

#declare ctr = <-2, -3, 0 >;
#declare camDir = < -13,11,4 >;

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

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

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

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

sky_sphere { pigment {color rgb < 0.17, 0.14, 0.25 >} }

#declare piso = 
   plane{
     <0,1,0>,-1
     pigment {color rgb <0.8,0.9,0.1>}
        
   }

#declare sup_transp=
  texture{
     finish {
       ambient 0.1
       diffuse 0.1
       roughness 0.001
       reflection 0.25
       specular 1
     
     }
      
      pigment {color rgb <0.9,0.9,0.9> filter 1  } 
  }  
  //interior {ior 1.5}
  
#declare sup_metalica =
   texture {
      finish{
        ambient 0.05
  diffuse 0.05
  reflection color rgb <1,1,0.0>
  specular 0.20
  roughness 0.05
    }   
    
   }  
 
#declare sup_metalica2 =
   texture {
      finish{
        ambient 0.05
  diffuse 0.05
  reflection color rgb <1.0,0.8,0.7>
  specular 0.20
  roughness 0.05
    }   
    
   }      

#declare R1 = seed (34567);
#declare dy=1.5;
   #declare posy=0.6;
#declare conta=0;
#while(conta<4)
  #declare a=90*rand(R1)-45;
  #declare b=20*rand(R1)-45;
  #declare c=10*rand(R1)-45;
  #declare d=40*rand(R1)-45;   
 
#declare perna0=
    union{
      sphere {
        <0,0,0>
  0.3
       }
    
      cylinder {
        <0,0,0>
  <-2,0,0>
  0.2
       }
       cylinder {
         <0,0,0>
   <-.2,0,0>
   0.6
         scale y*1.2
   translate <-2,0.5,0>
       
       }   
       pigment {
      gradient x
     color_map {
        [0 color <0.8,0.9,0.1>]
        [1 color <0.4,0.5,0.7>]
      }
   }   
    }

 
#declare perna1=
 union{  
   union{
      sphere {
        <0,0,0>
  0.35
       }
    
      cylinder {
        <0,0,0>
  <-1.5,0,0>
  0.2
       }
     pigment {
      gradient x
     color_map {
        [0 color <0.8,0.9,0.1>]
        [1 color <0.4,0.5,0.7>]
      }
   }   
   }
   
   object {perna0 rotate z*a translate x*-1.5}
   
   }

#declare perna2=
  union{  
   union{
      sphere {
        <0,0,0>
  0.4
       }
    
      cylinder {
        <0,0,0>
  <-2.5,0,0>
  0.3
       }
     pigment {
      gradient x
     color_map {
        [0 color <0.8,0.9,0.1>]
        [1 color <0.4,0.5,0.7>]
      }
   }   
   }
   
   object {perna1 rotate z*b translate x*-2.5}
   
   }
 
#declare perna3=
  union{  
   union{
      sphere {
        <0,0,0>
  0.45
       }
    
      cylinder {
        <0,0,0>
  <-2,0,0>
  0.3
       }
     pigment {
      gradient x
     color_map {
        [0 color <0.8,0.9,0.1>]
        [1 color <0.4,0.5,0.7>]
      }
   }   
   }
   
   object {perna2 rotate z*90 rotate z*c translate x*-2}
   
   }
   
   object {perna3 rotate <90,90,90> translate <-posy,0,0.3>}
   #declare a=40*rand(R1)-45;
   #declare b=50*rand(R1)-45;
  #declare c=80*rand(R1)-45;
  #declare d=10*rand(R1)-45;
   object {perna3 rotate <-90,-90,90> translate <-posy,0,-0.3>}
   #declare posy=posy+dy;
  #declare conta=conta+1;
   
#end   


#declare antena=
  union{
     cylinder{
       <0,0,0>
       <0,5,0>
       0.1
     
     }
     sphere{
        <0,0,0>
  0.2
        scale y*2
  translate y*5
     }
   //  pigment {color rgb <0,0.8,0.9>} 
   
  
  } 

#declare cabeca=
  union{ 
   sphere{
     <0,0,0>
     1
     scale x*1.5
   }
   object {antena rotate <-10,0,20> translate z*-0.2 }
   object {antena rotate <10,0,20> translate z*0.2 }
   pigment {color rgb <0.9,0.3,0.3>}
   rotate z*-90
  
 }     
#declare corpo =
  union{
   lathe{
     cubic_spline
     13
     <0,0>,<0.5,0.25>,<0.75,0.5>,<1,0.9>,<0.5,1.75>
     <0.52,3.5>,<0.4,4>,<0.25,4.3>,<0.4,4.6>,<0.6,5>
     <0.8,6>,<0.5,6.75>,<0.25,6.8>
     
   
   }
   object {cabeca translate y*7.8}
   //pigment {color rgb <0,0.8,0.9>}
   pigment {
      gradient y
     color_map {
        [0 color <0.8,0.9,0.1>]
        [1 color <0.4,0.5,0.7>]
      }
   }   
 }  
object {corpo rotate z*90}