// Last edited on 2007-06-28 09:27:49 by stolfi
// Processed by remove-cam-lights

global_settings { max_trace_level 12 }

background { color rgb < 0.90, 0.95, 1.00 > }

#declare Tinta_Foo = 
  texture {
    pigment { color rgb < 1.00, 0.70, 0.80 > }
    finish { diffuse 0.0 specular 0.5 roughness 0.005 ambient 0.8 }
}

#declare Tinta_Gold = 
  texture {
    pigment { color rgb < 1.00, 0.80, 0.10 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.05 reflection 0.3 }
}

#declare Tinta_Green = 
  texture {
    pigment { color rgbf < 0.30, 1.00, 0.10 , 0.8> }
    finish { diffuse 0.1 specular 0.9 roughness 0.005  reflection 0.4 }
}

#declare Tinta_White = 
  texture {
    pigment { color rgb < 1.00, 1.00, 1.00 > }
    finish { diffuse 0.5 specular 0.3 roughness 0.5 reflection 0.2 }
}

#declare Tinta_Rub = 
  texture {
    pigment { color rgbf < 1.00, 0.10, 0.10, 0.7 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
}

#declare esfera_in = 
 sphere {
  <0, 0, 0>, 9
  texture{
    Tinta_Gold
      }
 }
#declare esfera_ex = 
 sphere {
  <0, 0, 0>, 10
  texture{
   Tinta_Gold
      }
 }

#declare olho1 = 
 sphere {
  <2, 4, 10>, 2
  texture{
   Tinta_Gold
  }
 }
#declare olho2 = 
 sphere {
  <-2, 4, 10>, 2
  texture{
   Tinta_Gold
  }
 }

#declare pescoco =
 box {
  <-12, -12, -12>, 
  <12, -4, 12>
 }

#declare nariz =
 cone { <0, 0, 3> , 0.01
       < 0, 0, 11> , 2
       texture {
        Tinta_Gold
       }
 }

#declare dente = 
 box {
     <-3, -3, 11>
     <-2, -4, 3>
     texture {
      Tinta_Gold
     }
 }


#declare face =
difference { 
 difference {
  object {esfera_ex}
  object {esfera_in}
 }
 pescoco
}

#declare com_olho =
difference {
 difference {
  object {face}
  object {olho2}
 }
 object {olho1}
}

#declare dentes = 
 union {
  #declare i  = -8; 
  #while(i < 14)
  object {dente
   translate <i, 0, 0>
  }
  #declare i=i+2;
  #end
 }


#declare sem_dente =
 difference {
  object {com_olho}
  object {dentes}
  }

#declare final =
 difference {
  object {sem_dente}
  object {nariz}
 }


#declare rubi =
 box {
  <-4, 8, 10>, 
  <-3, 7, -10>
  texture{
   Tinta_Rub
  }
 }


#declare bola = 
 sphere {
  <0, 10, 0>, 2
  texture {
   Tinta_White
  }
 }
 
#declare conex =
 cone {
  <6, 3, 6>, 1
  <6, 5, 8>, 0.1
  texture { 
   Tinta_Green
  }
 }

#declare rubis =
 union {
  #declare j = 0;
  #while (j < 6)
  object {
   rubi
   translate <j+2, 0, 0>
 
  }

  #declare j = j + 2;
  #end
 }
  
#declare tinta_xadrez = 
  texture {
    pigment { checker color rgb <1.0, 1.0, 1.0>, color rgb < 0.30, 0.50, 1.00 > }
    finish { ambient 0.6 diffuse 0.4 }
    scale 1.5
  }

#declare chao =
  plane { <0, -1, 0>, 12
   texture { tinta_xadrez }
  }

chao
final
rubis
bola
conex
object {conex
 translate <-12, 0, 0>
}

union {
 #declare i = 0;
 #while (i<5)
 object {conex
  translate <0, -i, 0>
 }
 #declare i = i + 1;
 #end
}

union {
 #declare i = 0;
 #while (i<5)
 object {conex
  translate <-12, -i, 0>
 }
 #declare i = i + 1;
 #end
}

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = <10,12,25>
// #local cam_sky = y

#include "camlight.inc"
camlight(<0,0,0>,<5,5,10>,35.0,y,1.0)