// Last edited on 2005-01-06 02:13:58 by stolfi
// Processed by remove-cam-lights
#include "textures.inc"
#include "colors.inc"
#include "woods.inc"

background { color rgb <1, 1, 1> }

declare andar = box {
 #declare fim=<4, 4, 2>;
 #declare inicio=<0, 0, 0>;
 inicio, fim
 texture {
  pigment { color rgb 0.8*<1, 1, 1> }
 }
 translate  -0.5*(fim - inicio)
}

#declare semente =  seed( 34324 );

#declare g = 0;

#while (g < 360)

 #declare jan_um_lado = union {

  #declare a = -1;
  #declare b = 0;

  #while (a < 7)
   #if ( mod(int(10*rand(semente)), 2) = 0 )
    #declare luz=0;
   #else
    #declare luz=<1, 1, 0>;
   #end

   box {
    #declare inicio=<a+.5, 0, 0> ;
    #declare fim=<b+.5, 1, 1>;
    inicio, fim
    texture {
     pigment { color rgb luz }
    }
    translate  -0.5*(fim - inicio)
   }

   #declare a = a + 1.5;
   #declare b = b + 1.5;

  #end

 }

 object {
  jan_um_lado
  rotate y*g
 }

 #declare g = g + 90;

#end

sphere {
 0, .5
 texture {
  pigment { color rgb <1, 0, 0> }
 }
}

// "dist" estava indefinida -- stolfi

#include "camlight.inc"
camlight(<0,0,0>,<3,5,10>,1.00,z,1.0)