// LEandro Brioschi de Oliveira 
//POV-ray Last edited on 2000-10-19 20:06:05 by stolfi
#include "colors.inc"

background{ color rgb < 1.00, 1.0, 1.0 > }

light_source {
  < -5.00, 8.00, 0.00 >
  color rgb < 1.00, 1.00, 1.00 >
} 

camera {
  location  <  -3.00, 3.00, -3.00 >
  look_at   <  4.00, 0.00, 0.00 >
} 

#declare raio = 1.000;

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

#declare verdelistrado =
  texture {
  pigment  {
      agate 
      turbulence 1 
      lambda 1.5 
      omega .8 
      octaves 8 
    color_map { 
        [0.00 color rgb <.3, 1, .0>] 
        [0.50 color rgb <0, 1, .0>] 
        [1.00 color rgb <.3, 1, 0>]
        }
    } 
}

#declare vermelhorugoso  = 
     texture {
      pigment { color Red }
      normal { bumps 0.6 scale 0.2 }
      finish { phong 1} 
    }

  
#declare semente  =
  sphere {
    < 0.00, 0.00, 0.00 >, 0.02 
    scale <1,1,2>
    pigment { Black }
  }
  

#declare casca =


blob
{
threshold .65
 sphere { < -3.00, -1.7, 0.00 >, 1.5, 1 texture {verdelistrado} }
 sphere { < 3.00, -1.7, 0.00 >, 1.5, 1 texture {verdelistrado}  }
 sphere { < 1.50, -.9, 0.00 >, 1.5, 1 texture {verdelistrado}  } 
 sphere { < -1.50, -.9, 0.00 >, 1.5, 1 texture {verdelistrado}  } 
 sphere { < 0.00, 0.0, 0.00 >, 1.5, 1 texture {verdelistrado}  } 
 finish { phong 1 }
}

#declare polpa =

blob
{
threshold .65
 sphere { <-3.00, -1.7, 0.00>, 1.3, 1 texture { vermelhorugoso } }
 sphere { <3.00, -1.7, 0.00 >, 1.3, 1 texture { vermelhorugoso } }  
 sphere { < 1.50, -.9, 0.00 >, 1.3, 1 texture { vermelhorugoso } }   
 sphere { < -1.50, -.9, 0.00 >, 1.3, 1 texture {vermelhorugoso } } 
 sphere { < 0.00, 0.0, 0.00 >, 1.3, 1 texture { vermelhorugoso } } 
 finish { phong 1 }
}

#declare caixa =
box {
   <0,-2,-2>
   <6,2,3>
   texture {verdelistrado}
} 



  
// Aqui está a cena, finalmente:
intersection {
difference {object {casca}
            object {polpa}
   }

object {caixa} 
}
//parte das sememntes
object {semente}
object {semente translate <0,0,-.4>}
object {semente translate <0,0,.4> }
object {semente translate <0,.4,0> }
object {semente translate <0,-.4,0> }

object {casca translate <8,0,0> }