// Esto, esencialmente por el uso de "radiosity" en los "global settings" requiere ser "rendereado" con pov-ray 3.5... 
// si comenta los global settings puede "renderearlo" en 3.1 sin problema... creo... ah! bueno y necesita esa fuente... lithogrb.ttf...
// no se bien de donde saqu'e esa fuente....jejeje...

// Autor: Javier (jamoreno@math.uiuc.edu)

// Licencia: "Haga con esta cosa lo que se le de la gana" Licence.  

#include "colors.inc"
#include "metals.inc"
#include "textures.inc"
#include "finish.inc" 
#include "glass_old.inc"   

global_settings {
    radiosity {
      pretrace_start 0.08
      pretrace_end   0.01
      count 500

      nearest_count 10
      error_bound 0.02
      recursion_limit 1

      low_error_factor 0.2
      gray_threshold 0.0
      minimum_reuse 0.015
      brightness 1

      adc_bailout 0.01/2
    }
  }
  
 camera{

    location <0, 16 , 0>

    look_at 0

    angle 90

  } 
  
light_source{ <20,40,-3> White }      
#declare marco=
sphere_sweep {
    linear_spline
    5,
    <-8, 0, 8>, 0.5
    <-8, 0, -10>, 0.5
    < 8, 0, -10>, 0.5
    < 8, 0, 8>, 0.5  
      <-8, 0, 8>, 0.5
  }

object{marco translate<0,-3,0>
 texture{
                
                pigment{ color rgbf<0.73,0.85,0.94,1>}
                finish {F_Glass1} 
                
                }
        interior{I_Glass}
}
plane{<0,1,0>, -15 
             texture{pigment{White} 
                     finish {ambient 0.99 
                             diffuse 0.55 
                             brilliance 6.0 
                            }
 		      }
             }

#declare tallo=difference{
  torus {
    18, 0.2              
     translate <8,0,0>
  }

 
box {
    <-7, -5,   19>,  
    < 27, 0.4, -19>    

  }  
  }      
     
object{tallo scale<1,1,0.6> translate <9.5,1.5,-3.7>
        texture{
                
                pigment{ color rgbf<0.08,0.67,0.22,1>}
                finish {F_Glass1} 
                
                }
        interior{I_Glass}
        }
        
#declare centro=difference{
 
 sphere {
    <0, 0, 0>, 2  
    
        }
   
box {
    <-7, -5,   19>,  
    < 27, 0, -19>    

  } } 
  
#declare petalo=object{centro scale<1.3,0.2,0.6> translate<4.8,1,0>
texture{
                
                pigment{ color rgbf<1.0, 0.74, 0.42,1>}
                finish {F_Glass1} 
                
                }
        interior{I_Glass}  }  
        
#declare petalos=union{
object{petalo rotate y*45}
object{petalo rotate y*(45+90)}
object{petalo rotate y*(45+180)}
object{petalo rotate y*(45+270)}    
object{petalo rotate y}
object{petalo rotate y*(90)}
object{petalo rotate y*(180)}
object{petalo rotate y*(270)}  
}

#declare flor=union{
object{petalos}
object{centro 
 texture{
                
                pigment{ color rgbf<0.6, 0.37, 0.13,1>}
                finish {F_Glass1} 
                
                }
        interior{I_Glass}  
        translate <0,1,0>
        } }
                                                  
 object{flor scale<0.6,1,0.6>translate<4,-3,5.5> } 
 
 #declare cabeza=union{object{centro scale<1,0.8,0.7>   
 texture{
                
                pigment{ color rgbf<0.90,0.93,0.17,1>}
                finish {F_Glass1} 
                
                }
        interior{I_Glass}  } 
        sphere{<.6,1,0>, 0.3 }   
        cone {
    <2, 1, 0>, 0.3    // Center and radius of one end
    <7, 1, 0>, 0    // Center and radius of other end 
    texture{
                
                pigment{ color rgbf<0.75,0.48,0.09,1>}
                finish {F_Glass1} 
                
                }
        interior{I_Glass} 
    }
        }
        

                                                
#declare lunita=intersection{difference{
sphere {
    <0, 0, 0>, 4  
 
        }      
        
sphere {
    <2, 0, 0>, 4  
   
        } } 

sphere {<0, 0, 0>, 4  
     scale<1,0.4,1> }}
        
#declare alas=union{       
object{lunita scale<0.7,1,0.9> rotate y*20 translate <1.5,1.5,0>}          
object{lunita rotate y*-35 translate <0,1.5,0>}}
#declare pajaro=union{
object{cabeza rotate y*-35 translate<-0.7,1,4>}    
object{alas 
 texture{
                
                pigment{ color rgbf<0.4,0.7,0.93,1>}
                finish {F_Glass1} 
                
                }
        interior{I_Glass} 
 
        translate <-6.5,0,4.7>} 
        
        
#declare cuerpito=union{        
object{lunita rotate y*-90 translate <0,1.5,0>}
object{lunita rotate y*-100 scale<1.3,1,1> translate <-1.4,1.5,0>} }

object{cuerpito 
texture{
                
                pigment{ color rgbf<0.89,0.05,0.14,1>}
                finish {F_Glass1} 
                
                }
        interior{I_Glass} 
 
        translate <-6,0,1.5>}}   
        

        
object{pajaro scale<0.6,1,.6>}

#declare hojita=prism {
    cubic_spline
    0,
    1,
    6, 
    < 3, -5>, 
    < 3,  5>, 
    <-5,  0>, 
    < 3, -5>, 
    < 3,  5>, 
    <-5,  0>  
    scale <0.3,0.5,0.1>
  }

object{hojita scale<1.5,1,1> translate<2.23,0,-3>
texture{
                
                pigment{ color rgbf<.34,.79,.05,1>}
                finish {F_Glass1} 
                
                }
        interior{I_Glass} 
} 

object{hojita rotate y*180 scale<1.5,1,1> translate<-3.2,0,-4>
texture{
                
                pigment{ color rgbf<.34,.79,.05,1>}
                finish {F_Glass1} 
                
                }
        interior{I_Glass} 
} 

text {
    ttf "lithogrb.ttf" "COLIBRI" 0.2, 0
    rotate x*90     
    scale <2.1,1,2.1>
    translate<-4.6,4,-5.3> 
    texture{
                
                pigment{ color rgbf<.27, .48, .64,0>}
                finish{phong 1}
                
                }
     }