// Radiosity test file #2
// Gilles Tran - august 2000
#version unofficial Megapov 0.5;
#include "colors.inc"
global_settings{
        ini_option "+QR +f +aa0.3"
        radiosity{
        pretrace_start 0.16
        pretrace_end   0.01
//        count 30          //plus rapide, moins joli    
        count 300             
        nearest_count 4      
        error_bound 0.1      
        recursion_limit 1    
        low_error_factor 1  
        gray_threshold 0.5  
        minimum_reuse 0.015 
        brightness 1.2      
        adc_bailout 0.01/2  
        }
           post_process{focal_blur{0,1,100,1}}

}
camera
{
  location  <0.0, 1, -5.0>
  direction 4*z
  right     4/3*x
  look_at   <0, 1.0,  0>
}

#declare Bleu=rgb <236,248,243>/255;
#declare Bleu=rgb <255,248,183>/255;

sky_sphere{pigment{gradient x poly_wave 1 color_map{[0 White*1.3][1 Bleu*0.5]} translate -x*0.5 scale 2}}
 

#declare PdV=<-0.5,0.5,-0.2>*1000 ;
//light_source{PdV color Bleu*0.8 fade_power 2 fade_distance 2000 area_light 500*x 500*y  5,5 jitter orient}                    
//plane{x,0 translate x*-500 texture{pigment{Jaune}finish{ambient 2 diffuse 0}} no_shadow}
//plane{x,0 translate x*500 texture{pigment{Bleu}finish{ambient 2 diffuse 0}} no_shadow}
#declare txt1=texture{
        pigment{White}
        finish{ambient 0 diffuse 0.5 specular 0.1 roughness 0.1} // metallic brilliance 1}
}

#declare txtTable=texture{pigment{
        image_map{png "crepimap"}
        scale <4,3,1>
        }
        finish{ambient 0 diffuse 1 specular 0.1 roughness 0.1} // metallic brilliance 1}
        rotate x*-90
        
}
#debug "Parsing Crane started ...\n"

#declare V_WorldBoundMin = <-3.095880, -3.372030, 16.034401>;
#declare V_WorldBoundMax = <3.095880, 4.118870, 24.850700>;
#declare default_texture =texture{
        pigment{rgb 1.3*<221,213,196>/255}
        finish{ambient 0 diffuse 1 specular 0.1 roughness 0.001}
}

#include "DtldSkul_o.inc"
#declare Crane=union{
        object{ LcanineR }        object{ jaw }        object{ UcenIncisR }        object{ UlatIncisR }        object{ UcanineR }
        object{ Upremol1R }        object{ Upremol2R }        object{ UcenIncisL }        object{ UlatIncisL }        object{ UcanineL }
        object{ Upremol1L }        object{ Upremol2L }        object{ Umolar1R }        object{ Umoalr2R }        object{ UwisdomR }        object{ Umolar1L }
        object{ Umolar2L }        object{ UwisdomL }        object{ skull }        object{ Lpremolar1 }
        object{ Lpremolar2 }        object{ Lmolar1R }        object{ Lmolar2R }        object{ LwisdomR }        object{ LcenIncisR }
        object{ LlatIncisR }        object{ Lpremolar1 }        object{ Lpremoalr2 }        object{ Lmolar1L }        object{ Lmolar2L }
        object{ LwisdomL }        object{ LcenIncisL }        object{ LlatIncisL }        object{ LcanineL }
        translate -z*16.034401
        rotate -x*90
}
#debug "Parsing Pov finished\n"


box{<-10,-10,-10>,<10,0,15> texture{txtTable scale 1.3 translate x*2.5}}
object{Crane rotate x*30 scale 0.2 translate -y*0.3 rotate y*30 translate z*7}
object{Crane rotate x*30 scale 0.2 translate -y*0.3 rotate -y*30 translate z*10-x*1}
object{Crane rotate x*30 scale 0.2 translate -y*0.3 rotate -y*70 translate z*10+x*1.5}

plane{z, 50 
        texture{
                pigment{
                        image_map{png "backmap"}
                }
                finish{ambient 1 diffuse 0}
                scale <250,180,1>/250
                translate <-0.5,-0.15,0>
                scale 25
        }
}