// Last edited on 2013-11-04 19:17:18 by stolfilocal
// Processed by remove-cam-lights

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

#declare tx_espelho =
  texture{
    pigment{ color rgb < 1.00, 0.85, 0.30 > }
    finish{ diffuse 0.2 reflection 0.7*< 1.00, 0.85, 0.30 > ambient 0.1 }
  }

#declare tx_vidro =
  texture{
    pigment{ color rgb < 0.85, 0.95, 1.00 > filter 0.70 }
    finish{ diffuse 0.03 reflection 0.25 ambient 0.02 specular 0.25 roughness 0.005 }
  }

#declare tx_xadrez =
  texture{
    pigment{ checker color rgb < 0.10, 0.32, 0.60 >, color rgb < 1.00, 0.97, 0.90 > }
    finish{ diffuse 0.9 ambient 0.1 }
    scale 2.0
  }

#declare tx_azulclaro =
  texture {
    pigment{ color rgb < 0.40, 0.85, 0.80 > }
  }

#declare tx_vermelho =
  texture {
    pigment{ color rgb < 1, 0.5, 0.50 > }
  }

#declare raio = 1.00;
#declare raioPequeno = 0.20;

#macro botoes (k, n)

   union {

      #declare j = 0;
      #while (j<k)
        #declare i = 0.0;
        #while (i<n)
          box { <0.65, (j+1)*(0.2), (1.9-(0.1 + i))>, <0.655,(j+1)*(0.2)+0.1,(1.9-(0.16 + i))> texture{ tx_azulclaro } }
          #declare i = i + 0.1;
        #end
        #declare j = j + 1;
      #end
    }

#end

#macro tunners1 (n)

   union {

      #declare i = 0.0;
      #while (i<n)
        cylinder { <0.65, 1.5, (1.7-(0.3*i))>, <0.655, 1.5, (1.7-(0.3*i))>, 0.5*raioPequeno texture {tx_vermelho}}
        #declare i = i + 1;
      #end

    }

#end

#macro tunners2 (n)

   union {

      #declare i = 0.0;
      #while (i<n)
        cylinder { <0.65, 1.73, (1.7-(0.3*i))>, <0.655, 1.73, (1.7-(0.3*i))>, 0.5*raioPequeno texture {tx_vermelho}}
        #declare i = i + 1;
      #end

    }

#end

#declare chao =
  box{ <0, 0, 0>, <+20,+20,0>
  texture{ tx_xadrez }
}

#declare body =
  box{ <0.5, 0, 0>, <0.65,+2,+2>
  texture{ tx_azulclaro }
}

#declare caroco =
  sphere { <+1.5, +1.5, +1.6>, 0.95*raio
    texture { tx_azulclaro }
  }

#declare bracoDir =
  cylinder { <1.5, 0.5, 1.6> , <1.5, -0.2, 1.6>, raioPequeno }

#declare escorredor =
  cylinder { <+1.5, +1.5, +0.0>, <+1.5, +1.5, +0.5>, raioPequeno }

#include "eixos.inc"

union{
  //object{ eixos(3.00) }

  union {
    object { body texture{ tx_xadrez } }
    object { botoes (6, 1.3) }
    object { tunners1 (3) }
    object { tunners2 (3) }
  }

}

#include "camlight.inc"
#declare centro_cena = < 0.10, 1.00, 1.00 >;
#declare raio_cena = 2.2;
#declare dir_camera = < 20.00, 13.00, 8.00 >;
#declare dist_camera = 20.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)