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

#include "eixos.inc"
#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 0.00 >;
#declare raio_cena = 10.0;
#declare dir_camera = < 14.00, 7.00, 4.00 >;
#declare dist_camera = 16.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)

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

#declare member =
  cylinder{
    <0, 0, 0>, <0, 0, 0.5>, 0.1
    pigment { color rgb <1, 0, 0> }
  }

#declare body1 =
  cone{
     <0, 0, 0>, 0.5,
     <0, 0, 1>, 0.2
     pigment { color rgb <0, 0, 1> }
  }

#declare body2 =
  cone{
     <0, 0, 0>, 0.5,
     <0, 0, 1>, 0.2
     pigment { color rgb <0, 1, 1> }
  }

#declare person =
  union{

    sphere{
      <0, 0, 1.5 >, 0.5
      pigment { color rgb <0, 1, 0> }
    }
    object { member translate <0, -0.25, -0.5> }
    object { member translate <0, +0.25, -0.5> }
    object { member rotate 90*x translate <0, 0.7, 0.5> }
    object { member rotate 90*x translate <0, -0.2, 0.5> }
  }

#declare coral =
  #declare x1 = 8;
  #declare x2 = 5;
  #declare z1 = -4;
  #declare z2 = -3;
  #declare xp = 6.5;
  #declare zp = -2.5;
  #declare i = 0;

  #while(i < 4)
    #declare j = 0;
    #declare x1 = x1 - 3;
    #declare x2 = x2 - 3;
    #declare z1 = z1 + 1;
    #declare z2 = z2 + 1;
    box{
      <x1, -5, z1>, <x2, 5, z2>
      pigment { color rgb <0.75, 0.75, 0.75> }
    }
    #declare i = i + 1;

    #declare yp = -6;
    #declare xp = xp - 3;
    #declare zp = zp + 1;
    #while(j < 5)
      #declare yp = yp + 2;
      union{
        object{ person translate <xp, yp, zp> }
        #if(j + i = 3)
          object{ body1 translate <xp, yp, zp> }
        #else
          object{ body2 translate <xp, yp, zp> }
        #end
      }
      #declare j = j + 1;
    #end
  #end

union{

  object { coral }
  object { eixos(5.0) }
}