// Last edited on 2005-01-05 22:16:34 by stolfi
// Processed by remove-cam-lights

background{ color rgb <0, 1.0, 0.0 > }

#declare raio = 2.000;

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

#declare tinta_B =
  texture {
    pigment { color rgb < 1.00, 0.0, 0.8 > }
    finish { diffuse 0.8 specular 0.4 roughness 0.005 ambient 0.1 }
  }

#declare cor_coroa= color rgb <1, 1, 0.0>;
#declare tx_coroa=
 texture{
  pigment {rgb cor_coroa}
 finish{ ambient 0.65 diffuse 0.05
  specular 0.20 roughness 0.05}
}

#declare coroa=
lathe {
    linear_spline
    8,
    0.3*<2,0>, 0.3*<5,2>, 0.3*<8,4>,0.3*<5,6>,0.3*<8,8>,0.3*<5,10>,0.3*<3,10>,0.3*<0,15>
 rotate 90*x
    texture { tx_coroa }

   }
#declare thorus =
torus{
0.3*7,0.3*2
rotate 90*x
texture { tx_coroa}
}

#declare pedra1=
 box{
 0.3* <0,-0.5,11.5>,
 0.3* <0,0.5,12.5>
  texture{tinta_B}
rotate 60*x

}

#declare cilindro =
  cylinder {
   0.3* < 0, 0, -3 >,
   0.3* < 0, 0,-9 >,
    0.6
    texture { tx_coroa }
  }

#declare cone1 =
 cone{
 0.3* <0.0,-6,0>,
  0.9
 0.3* <0,-10,0>,
  0.00
  texture{tinta_B}
}

#declare cone2 =
 cone{
 0.3* <0,6,0>,
  0.9
 0.3* <0.00,10,0>,
  0.00
  texture{tinta_B}
}

#declare caixa =
 box{
 0.3* <3.0,-6.00,-3.00>,
 0.3* <-3.0,6.00,3.00>
  texture{tinta_A}
}

#declare cone3 =
 cone{
 0.3* <0,6,15>,
  0.9
 0.3* <0.00,2,15>,
  0.0
  texture{tinta_B}
}

#declare cone4 =
 cone{
 0.3* <0,-6,15>,
  0.9
 0.3* <0.00,-2,15>,
  0.0
  texture{tinta_B}
}

#declare caixa2 =
 box{
 0.3* <3.0,-6.00,12.00>,
 0.3* <-3.0,6.00,18.00>
  texture{tinta_A}
}

#declare cilindro3 =
  cylinder {
   0.3* < 0, 0, 12 >,
   0.3* < 0, 0,18>,
    0.9
    texture { tinta_B }
  }

// Acrescentado por stolfi:
#declare chao =
  plane { z,0
    texture {
      pigment { checker color rgb <1,1,1>, color rgb <0.5,0.5,0.5> }
      finish { ambient 0.6 diffuse 0.4 }
    }
    scale 0.5
  }

  union {

 object{coroa}
 object{thorus}
 object{chao}

    }

#include "camlight.inc"
camlight(<0.00,0.00,1.50>,<8.00,4.00,3.50>,1.00,z,1.0)