// Last edited on 2009-07-24 18:39:28 by stolfilocal
// Processed by remove-cam-lights

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

#declare raio = 2.000;

#declare tinta_A =
  texture {
    pigment { color rgb < 1.00, 0.00, 0.00 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_AA =
  texture {
    pigment { color rgb < 0.50, 0.50, 0.50 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_B =
  texture {
    pigment { color rgb < 0.30, 0.80, 0.30 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_C =
      texture {
      pigment{color rgb<0.3,0.3,0.3>}
 finish { brilliance 5 specular 2 roughness 0.01 diffuse 0.2 ambient 0.3 reflection {0,0.75 metallic} metallic }
  }

#declare tinta_D =
      texture {
      pigment{color rgb<0.9,0.7,0.1>}
 finish { brilliance 5 specular 2 roughness 0.01 diffuse 0.2 ambient 0.3 reflection {0,0.75 metallic} metallic }
  } 
   

#macro DedoVertical()
union{  
box {
    < -0.10, -0.10, -2.00 >,
    < 0.10, 0.10, 0.00 >
    texture { tinta_D }
  }

  sphere {
    < 0.0, 0.0, 0.00 >, 0.21
    texture { tinta_C }
  }
}
#end

#macro SuporteVertical(eixoSuporteVerticalz, eixoPrincipalx, eixoyPegador, eixoBracox, eixoBracoy, transparenciaBola)

union {
  box {
    < -1.00, -1.00, +0.00 >,
    < 1.00, 1.00, 6.00 >
    texture { tinta_D }
  }

    object {
       SuporteHorizontal(eixoyPegador, eixoBracox, eixoBracoy, transparenciaBola) 
       rotate <eixoPrincipalx,0,0>
       translate <0.5,0.5,5> 
   }
    rotate <0, 0,eixoSuporteVerticalz>
}
#end

#macro BracoVertical1(eixoyPegador, eixoBracox, eixoBracoy, transparenciaBola)
union{  
box {
    < -0.10, -0.10, -3.00 >,
    < 0.10, 0.10, 0.00 >
    texture { tinta_D }
  }

  sphere {
    < 0.0, 0.0, -4.80 >, 0.321
   texture{    
       pigment { color rgbft < 0.00, 1.00, 0.00 , 0, transparenciaBola>}
     }
  }

    object {
       SuporteMaoHorizontalEsq(eixoyPegador)
       translate <1,0,-3> 
       
   }
    object {
       SuporteMaoHorizontalDir(eixoyPegador)
       translate <-1,0,-3> 
       
   }

}
#end

#macro SuporteMaoHorizontalEsq(eixoyPegador)

#declare eixoy = eixoyPegador;
#if (eixoyPegador < -30)
  #declare eixoy = -30;
#end

#if (eixoyPegador > 90)
  #declare eixoy = 90;
#end

union{   
box {
    < -1.00, -0.10, -0.10 >,
    < 0.00, 0.10, 0.10 >
    texture { tinta_D }
  }
    object {
       DedoVertical() 
       translate <0,0,.1> 
       rotate <0,-eixoy,0> 
   }
}
#end

#macro SuporteMaoHorizontalDir(eixoyPegador)

#declare eixoy = eixoyPegador;
#if (eixoyPegador < -30)
  #declare eixoy = -30;
#end

#if (eixoyPegador > 90)
  #declare eixoy = 90;
#end

union{  
  box {
      < 0.00, -0.10, -0.10 >,
      < 1.00, 0.10, 0.10 >
      texture { tinta_D }
    }
    object {
       DedoVertical() 
       translate <0,0,.1> 
       rotate <0,eixoy,0> 
   }
}
#end

#macro SuporteHorizontal(eixoyPegador, eixoBracox, eixoBracoy, transparenciaBola)
union {  
union{
box {
    < +0.00, -0.20, -0.20 >,
    < 4.00, 0.20, 0.20 >
    texture { tinta_D }
  }
sphere {
    < 0.5, 0.0, 0.00 >, 0.51
    texture { tinta_C }
  }

sphere {
    < 4.00, 0.0, 0.00 >, 0.2
    texture { tinta_C }
  }
  
}

    object {
       BracoVertical1(eixoyPegador, eixoBracox, eixoBracoy, transparenciaBola) 
       rotate <eixoBracox,0,0>
       rotate <0,eixoBracoy,0>
       translate <4,0,-0.1> 
   }
}
#end

#macro chaoz(filt) 
plane { 
z,0 
  texture { 
    pigment { 
      checker rgb<0.9,0.9,0.9> filter filt, rgb <0.7,0.7,0.7> filter filt
    } finish {
 diffuse 0.5 ambient 0.5
      }
  } 
}
#end

#macro chaoy(filt)
plane { 
y,0 
  texture { 
    pigment { 
      checker rgb<1,1,1> filter filt, rgb <0.5,0.5,0.5> filter filt
    } finish {
 diffuse 0.5 ambient 0.5
      }
  } 
}
#end

#macro chaox(filt)
plane { 
x,0 
  texture { 
    pigment { 
      checker rgb<1,1,1> filter filt, rgb <0.5,0.5,0.5> filter filt
    } finish {
 diffuse 0.5 ambient 0.5
      }
  } 
}
#end

#declare distanciaY = 10;

#macro DentroAnimatione(ck)

 #if ((ck>=0)&(ck<1.0/11.0))
 #declare rr = (ck-0)/(1.0/11.0-0);
 #declare ss = (1.0/11.0-ck)/(1.0/11.0-0);

 #declare eixoSuporteVerticalz = 90;
 #declare eixoPrincipalx = 0;
 #declare eixoyPegador = ss*45+rr*10;
 #declare eixoBracox = 0;
 #declare eixoBracoy = 0;
 #declare transparenciabola = 0;
      #end
      #if ((ck>=1.0/11.0)&(ck<2.0/11.0))
 #declare rr = (ck-1.0/11.0)/(2.0/11.0-1.0/11.0);
 #declare ss = (2.0/11.0-ck)/(2.0/11.0-1.0/11.0);

 #declare eixoSuporteVerticalz = 90;
 #declare eixoPrincipalx = 0;
 #declare eixoyPegador = ss*10+rr*-20;
 #declare eixoBracox = 0;
 #declare eixoBracoy = 0;
 #declare transparenciabola = 0;

      #end
      #if ((ck>=2.0/11.0)&(ck<3.0/11.0))
 #declare rr = (ck-2.0/11.0)/(3.0/11.0-2.0/11.0);
 #declare ss = (3.0/11.0-ck)/(3.0/11.0-2.0/11.0);

 #declare eixoSuporteVerticalz = ss*90+rr*70;
 #declare eixoPrincipalx = ss*0+rr*-15;
 #declare eixoyPegador = -20;
 #declare eixoBracox = 0;
 #declare eixoBracoy = 0;
 #declare transparenciabola = 0;

      #end
      #if ((ck>=3.0/11.0)&(ck<4.0/11.0))
 #declare rr = (ck-3.0/11.0)/(4.0/11.0-3.0/11.0);
 #declare ss = (4.0/11.0-ck)/(4.0/11.0-3.0/11.0);

 #declare eixoSuporteVerticalz = ss*70+rr*50;
 #declare eixoPrincipalx = ss*-15+rr*-30;
 #declare eixoyPegador = -20;
 #declare eixoBracox = 0;
 #declare eixoBracoy = 0;
 #declare transparenciabola = 0;

      #end
      #if ((ck>=4.0/11.0)&(ck<5.0/11.0))
 #declare rr = (ck-4.0/11.0)/(5.0/11.0-4.0/11.0);
 #declare ss = (5.0/11.0-ck)/(5.0/11.0-4.0/11.0);

 #declare eixoSuporteVerticalz = ss*50+rr*30;
 #declare eixoPrincipalx = ss*-30+rr*-45;
 #declare eixoyPegador = -20;
 #declare eixoBracox = 0;
 #declare eixoBracoy = 0;
 #declare transparenciabola = 0;
      #end
      #if ((ck>=5.0/11.0)&(ck<6.0/11.0))
 #declare rr = (ck-5.0/11.0)/(6.0/11.0-5.0/11.0);
 #declare ss = (6.0/11.0-ck)/(6.0/11.0-5.0/11.0);

 #declare eixoSuporteVerticalz = ss*30+rr*10;
 #declare eixoPrincipalx = ss*-45+rr*-75;
 #declare eixoyPegador = ss*-20+rr*-15;
 #declare eixoBracox = 0;
 #declare eixoBracoy = 0;
 #declare transparenciabola = 0;

      #end
      #if ((ck>=6.0/11.0)&(ck<7.0/11.0))
 #declare rr = (ck-6.0/11.0)/(7.0/11.0-6.0/11.0);
 #declare ss = (7.0/11.0-ck)/(7.0/11.0-6.0/11.0);

 #declare eixoSuporteVerticalz = ss*10+rr*0;
 #declare eixoPrincipalx = ss*-75+rr*-90;
 #declare eixoyPegador = ss*-15+rr*0;
 #declare eixoBracox = 0;
 #declare eixoBracoy = 0;
 #declare transparenciabola = 1;

      #end
      #if ((ck>=7.0/11.0)&(ck<8.0/11.0))
 #declare rr = (ck-7.0/11.0)/(8.0/11.0-7.0/11.0);
 #declare ss = (8.0/11.0-ck)/(8.0/11.0-7.0/11.0);

 #declare eixoSuporteVerticalz = ss*0+rr*30;
 #declare eixoPrincipalx = ss*-90+rr*-60;
 #declare eixoyPegador = ss*0+rr*10;
 #declare eixoBracox = 0;
 #declare eixoBracoy = 0;
 #declare transparenciabola = 1;

      #end
      #if ((ck>=8.0/11.0)&(ck<9.0/11.0))
 #declare rr = (ck-8.0/11.0)/(9.0/11.0-8.0/11.0);
 #declare ss = (9.0/11.0-ck)/(9.0/11.0-8.0/11.0);

 #declare eixoSuporteVerticalz = ss*30+rr*60;
 #declare eixoPrincipalx = ss*-60+rr*-30;
 #declare eixoyPegador = ss*10+rr*30;
 #declare eixoBracox = 0;
 #declare eixoBracoy = 0;
 #declare transparenciabola = 1;

      #end
      #if ((ck>=9.0/11.0)&(ck<10.0/11.0))
 #declare rr = (ck-9.0/11.0)/(10.0/11.0-9.0/11.0);
 #declare ss = (10.0/11.0-ck)/(10.0/11.0-9.0/11.0);

 #declare eixoSuporteVerticalz = ss*60+rr*90;
 #declare eixoPrincipalx = ss*-30+rr*0;
 #declare eixoyPegador = ss*30+rr*45;
 #declare eixoBracox = 0;
 #declare eixoBracoy = 0;
 #declare transparenciabola = 1;

      #end
      #if ((ck>=10.0/11.0)&(ck<11.0/11.0))
 #declare rr = (ck-10.0/11.0)/(11.0/11.0-10.0/11.0);
 #declare ss = (11.0/11.0-ck)/(11.0/11.0-10.0/11.0);

 #declare eixoSuporteVerticalz = 90;
 #declare eixoPrincipalx = 0;
 #declare eixoyPegador = 45;
 #declare eixoBracox = 0;
 #declare eixoBracoy = 0;
 #declare transparenciabola = 0;

      #end
      object { SuporteVertical(eixoSuporteVerticalz, eixoPrincipalx, eixoyPegador, eixoBracox, eixoBracoy, transparenciabola)} 

#end

  
    
    
      
      

    
    

union {
object { chaoz(0.0) }

DentroAnimatione(clock)
object { DentroAnimatione(mod(clock + 0.30,  1.0)) translate <-15,0,0> }
}

 

// Original camera parameters:
// #local cam_ctr = <-5.00,0.00,3.00>
// #local cam_vec = (<10.00,25.00,5.00>-<-5.00,0.00,3.00>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<-5.00,0.00,3.00>,<10,10,10>,20.0,z,1.0)