// Last edited on 2005-01-05 23:14:32 by stolfi
// Processed by remove-cam-lights
#include "textures.inc"
#include "colors.inc"
#include "woods.inc"

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

#declare coro = <0.7, 0.6, 0>;
#declare ouro = texture {
 pigment { rgb coro }
 finish {
  ambient 0.05
  diffuse 0.05
  reflection coro
  specular 0.20
  roughness 0.05
 }
}

#declare cor_cristal = <1, 1, 1>;
#declare diamante = texture {
 finish {
   ambient 0.1
   diffuse 0.1
   reflection .25
   specular 1
   roughness 0.001
  }
  pigment { color cor_cristal filter 1 }
}

#declare cor_cristal = <0, 1, 0>;
#declare esmeralda = texture {
 finish {
   ambient 0.1
   diffuse 0.1
   reflection .25
   specular 1
   roughness 0.001
  }
  pigment { color cor_cristal filter 1 }
}

#declare base = torus {
 1.5, 0.5
 texture { ouro}
}

#declare desl = <1,0>;
#declare lateral = lathe {
 linear_spline
 4, <0, 0> + desl, <1, 1.2> + desl, <1.3, 1.2> + desl, <0.5, 0> + desl
 texture {ouro}
}

#declare joia = union{
 lathe {
  linear_spline
  3, <0,0>, <.5, .5>, <0, 1>
  translate <0, 0.5, 0>
  texture { esmeralda }
  interior { ior 1.5 }
 }
 sphere {
  <0, 0, 0>, 0.5
  texture { diamante }
  interior { ior 1.5 }
 }
}

#declare joia_t = object {
 joia
 scale 0.5
 translate <0, 1.9, -2.2>

}

#declare coroa = union {
 object {
  base
 }

 object {
  lateral

  scale <1, 1.4, 1>
 }
 #declare rota = 0;
 #while (rota < 360)
  object {
   joia_t
   rotate y*rota
  }
  #declare rota = rota + 90;
 #end
}

plane {
 y, -2
 texture { pigment { DMFWood4 scale 4 }
  finish { ambient 0.1 diffuse 0.9 }
  scale 0.5
 }
}

object{
 coroa
 translate <0, 0.5, 0 >
}

#include "camlight.inc"
camlight(<0.0,1.0,0.5>,<3,5,-7>,0.90,y,1.0)