// Last edited on 2009-07-22 19:54:34 by stolfilocal
// Processed by remove-cam-lights

background{ color rgb < 0.75, 0.80, 0.85 > }

global_settings { max_trace_level 10 }

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

#declare tinta_verde = 
  texture {
    pigment { color rgb < 0.00, 0.65, 0.0 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_azul = 
  texture {
    pigment { color rgb < 0.00, 0.0, 0.65 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

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

#declare tinta_branco = 
  texture {
    pigment { color rgb < 1.0, 1.0, 1.0 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare raio = 2.000;

  
#declare cilindro = 
  cylinder {
    < -1.00, -2.00, -2.00 >,
    < +1.00, +2.00, +2.00 >,
    1.50
    texture {  
         
     pigment { color rgb < 1.0, 1.0, 1.0 > filter 0.8 }
         finish { diffuse 0.5 ambient 0.1 }
       
     }
    interior{ ior 1.5 }
  }
  
#declare chao=

plane{
 z, 0
 texture{
  pigment{checker rgb < 0.95, 0.97, 1.00 >, rgb < 0.90, 0.88, 0.80 > rotate 17*z}
  finish { diffuse 0.5 ambient 0.1 }
  }
 scale 10
 translate -10*z
}
  

#declare figura_torta =
  blob{
   threshold 01.0
   sphere { <-10,0,0> , 15 ,1}
   sphere { <0,-10,0> , 15 ,1}
   sphere { <10,0,0> , 15 ,1}
   sphere { <0,10,0> , 15 ,1}
   cylinder{
    <0.0,0.0,-15.0>,
    <0.0,0.0,20.0>,
    5,1 }
   sphere{ <0,0,20>, 15,1}
   sphere{<0,0,-20> ,15,2}

    texture {  

       pigment { color rgb < 1.0, 1.0, 1.0 > filter 0.8 }
           finish { diffuse 0.5 ambient 0.1 }

       }
   interior{ ior 1.5 }
  }

#declare caixao=
  box{
    <-10,-10,-10>, <10, 10, -30>
    texture{tinta_preto}
  }

#declare bola_curva=
  difference{
    object{figura_torta } 
    object{caixao}
  }

#declare pedestal =
  cylinder{
   <0,0,-10>
   <0,0,-30>
   10
    texture {  

       pigment { color rgb < 1.0, 1.0, 1.0 > filter 0.8 }
           finish { diffuse 0.1 ambient 0.1 specular 0.1 reflection 0.8}

       }
  }

union{
object{chao}
object{bola_curva translate<0,0,13>}
object{pedestal translate <0,0,20>}
}

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = <-100.00,110.00,30.00>
// #local cam_sky = z

#include "camlight.inc"
camlight(<0,0,0>,<10,7,5>,100.0,z,1.0)