// Représentation de S4 par action sur un tétraèdre

#include "colors.inc"
#include "textures.inc"
#include "shapes.inc"
#include "metals.inc"
//#include "stones.inc"
//#include "woods.inc"                                                
#include "glass.inc"

// ***************************
// Installation de la caméra *
// ***************************
// On installe la caméra et on définit son orientation.
// L'axe des x est vers la droite, l'axe des y vers le haut, l'axe des z vers le fond.


camera {//orthographic
#declare DistanceObservateur = 3.2;
#declare HauteurObservateur = 1;
#declare Angle = 2;  // pour une vision stéréoscopique :
                     // < 0 pour l'oeil gauche (G.POV) . L'image devra être placée à DROITE en vision croisée
                     // > 0 pour l'oeil droit (D.POV) (en degré), l'image devra être placée à GAUCHE. 
                     // En général 3 à 5 degré d'écart entre les deux yeux. Angle est en degré. 
//Définir l'angle pour choisir l'oeil

location  <DistanceObservateur*cos(Angle/180*pi), HauteurObservateur, DistanceObservateur*sin(Angle/180*3.142)> 
look_at  <0,0,0>
rotate y*225
}

#declare cc=0;
/* Création d'une animation en 200 images.
créer une image *001.png avec cc=0
copier cette image dans *002.png jusqu'à *025.png
créer les images *026.png jusqu'à *175.png en posant cc=(clock-25)/150 et en faisant varier clock de 26 à 175.
copier l'image *175.png dans *176.png jusqu'à *200.png
*/


background { color Black}  

// ********
// Objets *
// ********

#declare Rayon = 0.2;
#declare RayonCyl = 0.05;
#declare Cote = 2;
#declare Epsilon = 0.005;

#declare A = <-Cote*sqrt(3)/6,-Cote*sqrt(6)/12,-Cote/2>;    
#declare B = <-Cote*sqrt(3)/6,-Cote*sqrt(6)/12,Cote/2>;
#declare C = <Cote*sqrt(3)/3,-Cote*sqrt(6)/12,0>;
#declare D = <0,Cote*sqrt(6)/4,0>;

union {
sphere {A Rayon     
        texture {Silver_Metal}
        pigment { color Red }
    }
sphere {B Rayon     
        texture {Silver_Metal}
        pigment { color Blue }
    }
 
sphere {C Rayon     
        texture {Silver_Metal}
        pigment { color Green }
    }
sphere {D Rayon     
        texture {Silver_Metal}
        pigment { color Yellow }
    }

cylinder { A B RayonCyl
        texture {Silver_Metal}
        pigment { color White }
    }

cylinder { A C RayonCyl
        texture {Silver_Metal}
        pigment { color White }
    }
cylinder { A D RayonCyl
        texture {Silver_Metal}
        pigment { color White }
    }
cylinder { B C RayonCyl
        texture {Silver_Metal}
        pigment { color White }
    }
cylinder { B D RayonCyl
        texture {Silver_Metal}
        pigment { color White }
    }    
cylinder { C D RayonCyl
        texture {Silver_Metal}
        pigment { color White }
    }

cylinder { <0,-Cote*sqrt(6)/12-Epsilon,0> <0,-Cote*sqrt(6)/12+Epsilon,0> Cote*4/5
        pigment {color Col_Aquamarine_01 transmit 0.6}
        }
        
cylinder { <0,-Cote*sqrt(6)/12-2*Cote,0> <0,Cote*sqrt(6)/4+Cote,0> RayonCyl/2
        pigment { color Coral }
        }

rotate -y*cc*120
        
}        
                        

// *********
// Lumière *
// *********

light_source { <0, 10, 0> color White shadowless}
light_source { <10, 0, 0> color White shadowless}
light_source { <0, 0, 10> color White shadowless}