// Last edited on 2007-06-28 09:22:21 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 azul = 
  texture {
    pigment { color rgb < 0.10, 0.80, 1.00 > filter 1.0}
    finish { diffuse 0.4 specular 0.5 roughness 0.005 ambient 0.1 reflection 0.2 }
  }

#declare ouro = 
  texture {
    pigment { color rgb < 1.00,0.95, 0 > }
    finish { diffuse 0.2 specular 0.5 roughness 0.005 ambient 0.1 reflection 0.4 }
  }
  
#declare prata = 
  texture {
 pigment { color rgb < 0.80, 0.80, 0.80 > }
 finish { diffuse 0.2 specular 0.5 roughness 0.005 ambient 0.1 reflection 0.4 }
  }
  
#declare esmeralda = 
  texture {
    pigment { color rgb < 0, 1, 0 > filter 1.0}
    finish { diffuse 0.4 specular 0.5 roughness 0.005 ambient 0.1 reflection 0.2 }
  }
  
#declare preto = 
  texture {
 pigment { color rgb < 0.2, 0.2, 0.2 > }
 finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }
  
#declare branco = 
  texture {
 pigment { color rgb < 1, 1, 1 > }
 finish { diffuse 0 specular 0 roughness 0.005 ambient 1 }
  }

#declare rubi = 
  texture {
    pigment { color rgb < 1.0, 0.0, 0.0 > filter 1.0}
    finish { diffuse 0.4 specular 0.5 roughness 0.005 ambient 0.1 reflection 0.2 }
  }

#declare pedra =
 union {
 cone {
  <0,0,0>, 1
    <0,0,-1>, 0
      interior{ ior 1.5}
 }
 cone {
  <0,0,0>, 1
    <0,0,0.3> 0.5
      interior{ ior 1.5}
 }
 }
 
#declare pedra2 =
 box {
 <0,0,0>,
 <0.5,0.1,0.4>
   texture {rubi}
   interior{ior 1.5}
 }
  
#declare mand =
union {
   difference{
 cylinder {
  < 0, 0, 0 >,
    < 0, 0, 1.8 >,
    2
  texture {prata}
 }
 box {
  < 2,0,-0.1>,
    <-2,-2,1.9>
 }
 cylinder {
  < 0, 0, -0.1 >,
    < 0, 0, 1.9 >,
    1.7
    texture {prata}
 }
 box {
  <2,0.3,0.5>,
    <-2,2,1.3>
 }
   }
   object { pedra2 
    translate <0,1.85,0.5>
   }
   object { pedra2 
    translate <0,1.85,0.9>
      rotate z*15
   }
   object { pedra2 
    translate <0,1.85,0.5>
      rotate z*30
   }
   object { pedra2 
    translate <0,1.85,0.9>
      rotate z*45
   }
   object { pedra2 
    translate <0,1.85,0.5>
      rotate z*60
   }
   object { pedra2 
    translate <0,1.85,0.9>
      rotate z*-15
   }
   object { pedra2 
    translate <0,1.85,0.5>
      rotate z*-30
   }
   object { pedra2 
    translate <0,1.85,0.9>
      rotate z*-45
   }
   object { pedra2 
    translate <0,1.85,0.5>
      rotate z*-60
   }
}

#declare cabeca =
union {  
  difference{
 sphere {
     < 0, 0, 0 >, 2.4 
   }
 sphere {
  < 0,0,0>, 2.2
 }
 box {
  < 2.4,-2.4,-2.5>,
    <-2.4,2.4,-1.7>
 }
 object{ pedra
  scale <0.6,0.6,0.6>
  rotate -90*x
  translate <0,2.4,0>
  rotate 20*z
  rotate 20*x  
 }
 object{ pedra
  scale <0.6,0.6,0.6>
  rotate -90*x
  translate <0,2.4,0>
  rotate -20*z
  rotate 20*x  
 }
 object{ pedra
  scale <0.5,0.5,0.5>
  translate <0,2.3,0>
 }
  }
  object{ pedra
   scale <0.6,0.6,0.6>
   rotate -90*x
   translate <0,2.4,0>
   rotate 20*z
   rotate 20*x  
 texture {azul}
  }
  object{ pedra
   scale <0.6,0.6,0.6>
   rotate -90*x
   translate <0,2.4,0>
   rotate -20*z
   rotate 20*x
 texture {azul}  
  }
  object{ pedra
   scale <0.5,0.5,0.5>
   translate <0,2.3,0>
 texture {esmeralda}
  }
}

#declare coroa =
union{
   difference {
 cylinder {
  <0,0,0>,
  <0,0,2>,
  5
  texture {ouro}
 }
 cylinder {
  <0,0,-0.1>,
    <0,0,2.1>,
    4.8
  texture {ouro}
 }
   }
   object { pedra
    rotate 90*x
    translate <0,5,1>
   rotate 90*z
   texture {azul}
   }
   object { pedra
    rotate 90*x
    translate <0,5,1>
    rotate -90*z
   texture {azul}
   }
   object { pedra
    rotate 90*x
    translate <0,5,1>
    rotate 180*z
   texture {azul}
   }
}

#declare tinta_xadrez = 
  texture {
    pigment { checker color rgb < 0.60, 0.30, 0.30 >, color rgb <1.0,1.0,0.8> }
    finish { ambient 0.6 diffuse 0.4 }
  }
 
plane{z,0
 translate -3*z
 texture { tinta_xadrez }
}

  union {
 object {mand
  translate <0,5,1>}
 object {cabeca
  translate <0,5,4>
  texture {ouro}
 }
 object {coroa}
  }

// Original camera parameters:
// #local cam_ctr = <0,0,3>
// #local cam_vec = (<7,15,5>-<0,0,3>)
// #local cam_sky = z

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