// Last edited on DATE TIME by USER
// Processed by remove-cam-lights

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

#declare tx_plastico =
  texture{
    pigment{ color rgb < 0.10, 0.80, 1.00 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare tx_fosca =
  texture{
    pigment{ color rgb < 1.00, 0.80, 0.10 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_fosca2 =
  texture{
    pigment{ color rgb < 1.00, 0.70, 0.50 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#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_nova =
  texture{
    pigment{ checker color rgb < 0.20, 0.65,0.88 > , color rgb < 2.0,6.0,9.0> }
    finish { diffuse 0.7 ambient 0.1 }
    scale 1.0
}

#declare raio = 2.000;

#declare muroMenor =
  box{ <0,0,0> ,<7,11,2>
  texture{ tx_fosca2 }
}

#declare botao =
  box{ <0.0,0.0,0> ,<0.5,0.5,0.3>
   translate<1,1,2>
}

#declare display =
  box{ <0.0,0.0,0> ,<7,3,0.2>
  texture {tx_vidro}
}

#macro geraMuro(a,b,final, ajuda)
  #if (final-2 > a)
    union{
      #if (ajuda=0)
        #declare help = 1;
        object{
          difference{
            box{ <0+a,0+b,0> ,<20-a,20-b,2>
            texture{ tx_fosca2 }
            }
            box{ <0.5+a,0.5+b,-1> ,<19.5-a,19.5-b,3>
            texture{ tx_fosca2 }
            }
        }
      }
    #else
      #declare help = 0;
      object{
      difference{
        cylinder {
        <0, 0, 0>,     // Center of one end
        <0, 0, 4>,     // Center of other end
        2            // Radius
        open
        translate <a+5,b+5,0>
        texture{ tx_fosca2 }
        }
      }
      }
    #end
      geraMuro(a+1,b+1,final,help)
    }
  #else
      object{
          difference{
            box{ <0,0,0> ,<20-a,20-b,2>
            texture{ tx_fosca2 }
            }
            box{ <0.5,0.5,-1> ,<19.5-a,19.5-b,3>
            texture{ tx_fosca2 }
            }
        }
      }
  #end
#end

#include "eixos.inc"

union{
  object {eixos(5.00)}
  geraMuro(0,0,8,1)
}

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 30.0;
#declare dir_camera = < 15.00, 9.0, 10.00 >;
#declare dist_camera = 100.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)