#include "colors.inc"    
#include "shapes.inc"    
#include "finish.inc"
#include "glass.inc"
#include "metals.inc"
#include "stones.inc"
#include "woods.inc"    
#include "skies.inc"  

#declare Ix=11.25
#declare Iy=6.5      




// Déclaration du ciel, des lumières et de la position de la caméra.

sky_sphere { S_Cloud1 }  

camera 
{ 
  location <100,100,100>  // Vue globale en coin 1
  look_at <0,0,0>
}                       
 
global_settings { ambient_light color White}
light_source { <200,200,200> color White}
light_source { <200,200,-200> color White}
light_source { <-200,200,-200> color White}
light_source { <-200,200,200> color White}
light_source { <-200,-200,-200> color White}       
//light_source { <200,100,200> color White}       
//light_source { <-200,100,100> color White}
                                         
//light_source { <-6,2,9> color White}                                     
                                         
                       


#declare PlatineDessous = difference
{
 cylinder {<0,0,0>,<0,4,0>,68}      

union   {
        
        box {<53,-5,27>,<80,5,-27>}  // Trous pour les roues
        box {<-53,-5,27>,<-80,5,-27>}                       
        
        cylinder {<0,-5,52>,<0,5,52>,10.5}  // Trous pour les billes porteuses
        cylinder {<0,-5,-52>,<0,5,-52>,10.5}  
        cylinder {<0,-5,38.75>,<0,5,38.75>,1.5}
        cylinder {<0,-5,-38.75>,<0,5,-38.75>,1.5}
        cylinder {<11.48,-5,58.63>,<11.48,5,58.63>,1.5}
        cylinder {<-11.48,-5,58.63>,<-11.48,5,58.63>,1.5}
        cylinder {<11.48,-5,-58.63>,<11.48,5,-58.63>,1.5}
        cylinder {<-11.48,-5,-58.63>,<-11.48,5,-58.63>,1.5}  
        
        cylinder {<50.5,-5,15>,<50.5,5,15>,1}  // Trous pour les fixations moteurs
        cylinder {<50.5,-5,-15>,<50.5,5,-15>,1}
        cylinder {<-50.5,-5,15>,<-50.5,5,15>,1}
        cylinder {<-50.5,-5,-15>,<-50.5,5,-15>,1}
        
        cylinder {<-4*Ix,-5,-6*Iy>,<-4*Ix,5,-6*Iy>,5}  // Trous pour allégage !
        cylinder {<-4*Ix,-5,-4*Iy>,<-4*Ix,5,-4*Iy>,5}
        cylinder {<-4*Ix,-5,4*Iy>,<-4*Ix,5,4*Iy>,5}
        cylinder {<-4*Ix,-5,6*Iy>,<-4*Ix,5,6*Iy>,5}
        
        cylinder {<-3*Ix,-5,7*Iy>,<-3*Ix,5,7*Iy>,5}
        cylinder {<-3*Ix,-5,5*Iy>,<-3*Ix,5,5*Iy>,5}
        cylinder {<-3*Ix,-5,3*Iy>,<-3*Ix,5,3*Iy>,5}
        cylinder {<-3*Ix,-5,1*Iy>,<-3*Ix,5,1*Iy>,5}
        cylinder {<-3*Ix,-5,-1*Iy>,<-3*Ix,5,-1*Iy>,5}
        cylinder {<-3*Ix,-5,-3*Iy>,<-3*Ix,5,-3*Iy>,5}
        cylinder {<-3*Ix,-5,-5*Iy>,<-3*Ix,5,-5*Iy>,5}
        cylinder {<-3*Ix,-5,-7*Iy>,<-3*Ix,5,-7*Iy>,5}

        cylinder {<-2*Ix,-5,8*Iy>,<-2*Ix,5,8*Iy>,5}
        cylinder {<-2*Ix,-5,6*Iy>,<-2*Ix,5,6*Iy>,5}
        cylinder {<-2*Ix,-5,4*Iy>,<-2*Ix,5,4*Iy>,5}
        cylinder {<-2*Ix,-5,2*Iy>,<-2*Ix,5,2*Iy>,5}
        cylinder {<-2*Ix,-5,0*Iy>,<-2*Ix,5,0*Iy>,5}
        cylinder {<-2*Ix,-5,-2*Iy>,<-2*Ix,5,-2*Iy>,5}
        cylinder {<-2*Ix,-5,-4*Iy>,<-2*Ix,5,-4*Iy>,5}
        cylinder {<-2*Ix,-5,-6*Iy>,<-2*Ix,5,-6*Iy>,5}
        cylinder {<-2*Ix,-5,-8*Iy>,<-2*Ix,5,-8*Iy>,5}
        
        cylinder {<-Ix,-5,5*Iy>,<-Ix,5,5*Iy>,5}
        cylinder {<-Ix,-5,3*Iy>,<-Ix,5,3*Iy>,5}
        cylinder {<-Ix,-5,1*Iy>,<-Ix,5,1*Iy>,5}
        cylinder {<-Ix,-5,-1*Iy>,<-Ix,5,-1*Iy>,5}
        cylinder {<-Ix,-5,-3*Iy>,<-Ix,5,-3*Iy>,5}
        cylinder {<-Ix,-5,-5*Iy>,<-Ix,5,-5*Iy>,5}
        
        cylinder {<4*Ix,-5,-6*Iy>,<4*Ix,5,-6*Iy>,5}
        cylinder {<4*Ix,-5,-4*Iy>,<4*Ix,5,-4*Iy>,5}
        cylinder {<4*Ix,-5,4*Iy>,<4*Ix,5,4*Iy>,5}
        cylinder {<4*Ix,-5,6*Iy>,<4*Ix,5,6*Iy>,5}   
        
        cylinder {<3*Ix,-5,7*Iy>,<3*Ix,5,7*Iy>,5}
        cylinder {<3*Ix,-5,5*Iy>,<3*Ix,5,5*Iy>,5}
        cylinder {<3*Ix,-5,3*Iy>,<3*Ix,5,3*Iy>,5}
        cylinder {<3*Ix,-5,1*Iy>,<3*Ix,5,1*Iy>,5}
        cylinder {<3*Ix,-5,-1*Iy>,<3*Ix,5,-1*Iy>,5}
        cylinder {<3*Ix,-5,-3*Iy>,<3*Ix,5,-3*Iy>,5}
        cylinder {<3*Ix,-5,-5*Iy>,<3*Ix,5,-5*Iy>,5}
        cylinder {<3*Ix,-5,-7*Iy>,<3*Ix,5,-7*Iy>,5}

        cylinder {<2*Ix,-5,8*Iy>,<2*Ix,5,8*Iy>,5}
        cylinder {<2*Ix,-5,6*Iy>,<2*Ix,5,6*Iy>,5}
        cylinder {<2*Ix,-5,4*Iy>,<2*Ix,5,4*Iy>,5}
        cylinder {<2*Ix,-5,2*Iy>,<2*Ix,5,2*Iy>,5}
        cylinder {<2*Ix,-5,0*Iy>,<2*Ix,5,0*Iy>,5}
        cylinder {<2*Ix,-5,-2*Iy>,<2*Ix,5,-2*Iy>,5}
        cylinder {<2*Ix,-5,-4*Iy>,<2*Ix,5,-4*Iy>,5}
        cylinder {<2*Ix,-5,-6*Iy>,<2*Ix,5,-6*Iy>,5}
        cylinder {<2*Ix,-5,-8*Iy>,<2*Ix,5,-8*Iy>,5}
        
        cylinder {<Ix,-5,5*Iy>,<Ix,5,5*Iy>,5}
        cylinder {<Ix,-5,3*Iy>,<Ix,5,3*Iy>,5}
        cylinder {<Ix,-5,1*Iy>,<Ix,5,1*Iy>,5}
        cylinder {<Ix,-5,-1*Iy>,<Ix,5,-1*Iy>,5}
        cylinder {<Ix,-5,-3*Iy>,<Ix,5,-3*Iy>,5}
        cylinder {<Ix,-5,-5*Iy>,<Ix,5,-5*Iy>,5}
        
        cylinder {<0,-5,4*Iy>,<0,5,4*Iy>,5}
        cylinder {<0,-5,2*Iy>,<0,5,2*Iy>,5}
        cylinder {<0,-5,0*Iy>,<0,5,0*Iy>,5}
        cylinder {<0,-5,-2*Iy>,<0,5,-2*Iy>,5}
        cylinder {<0,-5,-4*Iy>,<0,5,-4*Iy>,5}
        
        }                                                    
}



#declare PlatineDessus = difference
{
 cylinder {<0,0,0>,<0,4,0>,68}      

union   {
        
        
        
        box {<53,-5,27>,<80,5,-27>}  // Trous pour les roues
        box {<-53,-5,27>,<-80,5,-27>}
        
        box {<30,-5,15>,<-30,5,80>}  // Trous pour les accus
        box {<25,-5,10>,<-25,5,80>} 
        cylinder {<25,-5,15>,<25,5,15>,5}
        cylinder {<-25,-5,15>,<-25,5,15>,5}

        box {<30,-5,-15>,<-30,5,-80>}
        box {<25,-5,-10>,<-25,5,-80>} 
        cylinder {<25,-5,-15>,<25,5,-15>,5}
        cylinder {<-25,-5,-15>,<-25,5,-15>,5}
        
        cylinder {<40,-5,-43>,<40,5,-43>,1.5}  // Trous pour faxation de l'électronique
        cylinder {<-40,-5,-43>,<-40,5,-43>,1.5}
        cylinder {<37.4,-5,42.7>,<37.4,5,42.7>,1.5}
        cylinder {<-36.2,-5,42.7>,<-36.2,5,42.7>,1.5}
        
        
        
        
        cylinder {<50.5,-5,15>,<50.5,5,15>,1}  // Trous pour fixation moteurs
        cylinder {<50.5,-5,-15>,<50.5,5,-15>,1}
        cylinder {<-50.5,-5,15>,<-50.5,5,15>,1}
        cylinder {<-50.5,-5,-15>,<-50.5,5,-15>,1}
        
        cylinder {<-4*Ix,-5,-4*Iy>,<-4*Ix,5,-4*Iy>,5}  // Trous allégage !
        cylinder {<-4*Ix,-5,4*Iy>,<-4*Ix,5,4*Iy>,5}
        cylinder {<-4*Ix,-5,6*Iy>,<-4*Ix,5,6*Iy>,5}
        
        cylinder {<-3*Ix,-5,1*Iy>,<-3*Ix,5,1*Iy>,5}
        cylinder {<-3*Ix,-5,-1*Iy>,<-3*Ix,5,-1*Iy>,5}
        
        cylinder {<-2*Ix,-5,0*Iy>,<-2*Ix,5,0*Iy>,5}

        cylinder {<4*Ix,-5,-4*Iy>,<4*Ix,5,-4*Iy>,5}
        cylinder {<4*Ix,-5,4*Iy>,<4*Ix,5,4*Iy>,5}
        cylinder {<4*Ix,-5,6*Iy>,<4*Ix,5,6*Iy>,5}   
        
        cylinder {<3*Ix,-5,1*Iy>,<3*Ix,5,1*Iy>,5}
        cylinder {<3*Ix,-5,-1*Iy>,<3*Ix,5,-1*Iy>,5}
        
        cylinder {<2*Ix,-5,0*Iy>,<2*Ix,5,0*Iy>,5}
                
        cylinder {<0,-5,0*Iy>,<0,5,0*Iy>,5}

        }                                                    
}
                      
#declare FixationMoteur = difference {

box {<0,0,20>,<5,19,-20>}
union 
{
        cylinder {<-10,9.5,5>,<10,9.5,5>,1}
        cylinder {<-10,9.5,-5>,<10,9.5,-5>,1}
        cylinder {<-10,9.5,0>,<10,9.5,0>,3.5}
        cylinder {<-10,9.5,0>,<3,9.5,0>,8}
        cylinder {<2.5,-30,15>,<2.5,30,15>,2}
        cylinder {<2.5,-30,-15>,<2.5,30,-15>,2}      

}
}                      

#declare BagueBP = difference {
cylinder {<0,0,0>,<0,5,0>,16}
union {             
        cylinder {<0,-10,0>,<0,10,0>,10.5}
        cylinder {<11.47,-10,6.625>,<11.47,10,6.625>,1.5}
        cylinder {<-11.47,-10,6.625>,<-11.47,10,6.625>,1.5}
        cylinder {<0,-10,-13.25>,<0,10,-13.25>,1.5} 
        
        cylinder {<0,2.5,0>,<25.98,2.5,-15>,1.5}       
        cylinder {<0,2.5,0>,<-25.98,2.5,-15>,1.5}  
        cylinder {<0,2.5,0>,<0,2.5,30>,1.5} 
}
}
            
#declare Roue = 
union {
difference {
cylinder {<0,0,0>,<10,0,0>,23}
union {
       cone {<-1,0,0>,19,<2,0,0>,16}
       torus {23,2.65 rotate z*90 translate x*5}
       cylinder {<15,0,0>,<1.99,0,0>,1.5}    
       cylinder {<5,0,0>,<5,0,40>,3}        

        }
}      
cone {<3,0,0>,8,<0,0,0>,5}
}      
                      

object {PlatineDessous translate <0,9.5,0> pigment {color Yellow }}
object {PlatineDessus translate <0,32.5,0> pigment {color Red }}

object {FixationMoteur translate <48,13.5,0> pigment {color Green }}
object {FixationMoteur rotate y*180 translate <-48,13.5,0> pigment {color Green }}

object {BagueBP rotate y*180 translate <0,4.5,-52>  pigment {color Grey }}
object {BagueBP translate <0,4.5,52> pigment {color Grey }}

object {Roue translate <-65,23,0> pigment {color Blue }}
object {Roue rotate y*180 translate <65,23,0> pigment {color Blue }}