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

global_settings { max_trace_level 12 }

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

#declare raio = 2.000;
#declare roleta = seed(4615);

#declare tinta_A = 
  texture {
    pigment { color rgb < 0.10, 0.10, 0.10 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }

#declare tinta_B = 
  texture {
    pigment { color rgb < 0.9, 0.9, 0.9 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }
#declare tinta_trans = 
  texture {
    pigment { color rgb < 0.9, 0.9, 0.9 > filter 0.5 }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }

#declare tinta_ouro = 
  texture {
    pigment { color rgb < 1.0, 0.8, 0 > }
    finish { diffuse 0.2  roughness 0.2 ambient 0.4 reflection 0.2 }
  }
#declare tinta_D = 
  texture {
    pigment { color rgb < 0, 255, 255 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.5 ambient 0.1 }
  }
  

#declare coroa_ext =
 cylinder {
    <0.00, 0.00, 6.00>,
    <0.00, 0.00, 9.00>,
    5.0
    texture {tinta_ouro}
}

#declare coroa_int =
 cylinder {
    <0.00, 0.00, 5.90>,
    <0.00, 0.00, 9.30>,
    4.80
    texture {tinta_ouro}
}
#declare caveira_top =
 sphere {
 < 0.0, 0.0, 0.0 >, 2.00 
 texture {tinta_B}
}
#declare olho = 
 cylinder {
  <0.50, 0.00, 0.00>,
  <10.00, 0.00,0.00>,
  0.50
  texture {tinta_B}
}
#declare nariz = 
 cylinder {
  <0.50, 0.00, 0.00>,
  <10.00, 0.00,0.00>,
  0.30
  texture {tinta_B}
}
#declare queixo =
 cylinder {
  <0.70, 0.00, -1.00>,
  <0.70, 0.00, -3.00>,
  1.0
  texture {tinta_B}
}
#declare boca =
 box {
 < 5.0, -0.5, -2.7>
 < 1.0, 0.5, -1.4>
 texture {tinta_B} 
} 

#declare diamante =
box {
  <0.6, -0.5, -2.5>
  <0.0, 0.5, -1.5>
  texture {tinta_trans }
  interior {ior 1.5}
} 

#declare tinta_xadrez = 
  texture {
    pigment { checker color rgb < 0.40, 0.40, 0.40 >, color rgb <1.0,1.0,1.0> }
    finish { ambient 0.6 diffuse 0.4 }
  }
 
plane { z, 0
 translate -5*z
 texture { tinta_xadrez }
}
union {
 object {diamante translate<0.0, -2.0, 1.0>}
 object {diamante translate<0.0, 2.0, 1.0>}
 difference {
  union {
   difference {
     object {coroa_ext}
     object {coroa_int}
     translate<-3.9, 0, -8.7>
   }
    object { caveira_top}
    object { queixo}
  }
  union {
   object {olho translate<0.0,0.9,0.0>}
    object {olho translate<0.0,-0.9,0.0>}
    object {nariz translate<0.0,0.0,-0.80>}
   object {boca}
  }  
 }
} 

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = <15.00,0.00,1.00>
// #local cam_sky = z

#include "camlight.inc"
camlight(<-3.9,0,-2.0>,<10,5,5>,15.0,z,1.0)