// Last edited on 2005-01-06 01:47:19 by stolfi
// Processed by remove-cam-lights
#include "colors.inc"
#include "stones.inc"
#include "textures.inc"

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

#declare ciano_espelhado =
  texture {
    pigment { color rgb <0.7,1.0,1.0> filter 0.5}
    finish {
      ambient 0.1
      diffuse 0.35
      reflection 0.25
      specular 1
      roughness 0.001
    }
  }

#declare m=1;
#while (m<=2)

#if (m = 2)
  #declare c=-7.2;
#else
  #declare c=0;
#end

union {
  box {
    <2-c, 2, 0>,
    <-2-c, -2,  10>
    texture {
      T_Stone7
    }
  }

#declare G=seed(666);

#declare i=1;
#declare j=1;
#declare k=1;
#declare l=1;
#while (l <= 2)
#while (k <= 2)
#while (j <= 5)
#while (i <= 5)
  sphere {
    #declare a=rand(G)/2;
    #if (a < 0.1)
      #declare a = 0.2;
    #end

    #if (a > 0.3)
      #declare a = 0.2;
    #end

    #if (k = 1)
      #declare b = -2;
    #end

    #if (k = 2)
      #declare b = 2;
    #end

    #if (l = 1)
      < b -c, (i-3)/1.2, 1.8*j >, a
    #else
      < (i-3)/1.2 -c, b, 1.8*j >, a
    #end

    texture { ciano_espelhado }
  }
    #declare i=i+1;
#end

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

#declare i=1;
#declare j=1;
#declare k=k+1;
#end

#declare i=1;
#declare j=1;
#declare k=1;
#declare l=l+1;
#end

}

difference {
  box {
    < 2 -c, 0.5, 0>,
    < 5.2 -c, -0.5, 1>
    texture {ciano_espelhado}

  }
  box {
    < 2 -c, 0.4, 0>,
    < 5.2 -c, -0.4, 0.9>
  }
}

difference {
  torus {
    2.0, 0.2
    translate (-5 +c)*y
    rotate 90*z
    texture { pigment { color Blue } }
  }
  box {
    <4-c, 4,-1>
    <0-c, 0, 0>
  }
}

difference {
  torus {
    2.0, 0.2
    translate (-4 +c)*y
    rotate 90*z
    texture { pigment { color Red } }
  }
  box {
    <4-c, 4,-1>
    <0-c, 0, 0>
  }
}

difference {
  torus {
    2.0, 0.2
    translate (-3 +c)*y
    rotate 90*z
    texture { pigment { color Green } }
  }
  box {
    <4-c, 4,-1>
    <0-c, 0, 0>
  }
}

#declare m=m+1;
#end

plane { <0, 0, 1>, 0
  texture {
    Jade
  }
}

#include "camlight.inc"
camlight(<0,0,0>,<30,12,15>,0.75,z,1.0)