// Last edited on 2013-11-04 20:45:59 by stolfilocal
// Processed by remove-cam-lights

background{ color rgb < 0.2, 0.2, 0.5 > }

#declare tx_plastico =
  texture{
    pigment{ color rgb < 0.80, 0.10, 0 > }

  }

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

#declare tx_green =
  texture{
    pigment{ color rgb < 0, 0.80, 0.10 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }
#declare tx_black =
  texture{
    pigment{ color rgb < 0, 0, 0 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare caixa =
  box{ < -8,-8,0 >, <3,8,1>}

#declare tela =
  box{ < -5,-3,1 >, <0,3,2>
  texture{tx_black}
}

#declare bola =
  cylinder{
   < -7.00 , -7.00, 1 >,
  < -7.00, -7.00, 2 >,
  0.75
  texture{ tx_fosca }
 }

#declare quadrado =
  box{ < -7.75,-5.5,1 >, <-6.15,-4.5,2>
texture{ tx_fosca }
}
#macro painel (N,k)
#if(N<5)
box{< -8,-8,0 >, <3,(8+k*2.3),1>
      texture{ tx_plastico } interior { ior 1.01 } }
#else
  box{ < -8,-8,0 >, <((N-4)*2.5+3),(8+k*2.3),1>
      texture{ tx_plastico } interior { ior 1.01 } }
#end

union{
#declare i=0;

  #while (i<N)

    object{ bola translate<i*2.5 , 0, 0> }

    object {quadrado translate<i*2.5 , 0, 0>
    #if (mod(i,4)=0)
      texture {tx_green}
      scale <1,1, 0.7>
    #else
    texture{ tx_fosca }
    #end}

    object{tela}

    #if (mod(i,2)=0)
      object{ bola translate<i*2.5 , 12, 0>  texture{tx_green}}
    #else
       object {quadrado translate<i*2.5 , 10, 0> }
    #end
 #declare j=0;
#while(j<k)

    object {bola translate<i*2.5 , (14+j*2.5), 0>
    #if (mod(i,3)=0)
      texture {tx_green}
      scale <1,1, 0.7>
    #else
    texture{ tx_fosca }
    #end}
#declare j=j+1;
#end

  #declare i=i+1;
#end
}
#end

painel(6,5)
#include "eixos.inc"
//eixos(10)

#include "camlight.inc"
#declare centro_cena = < 0.00, 5.00, 1.00 >;
#declare raio_cena = 22.0;
#declare dir_camera = < 28.00, 14.00, 8.00 >;

#declare dist_camera = 200.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)