/*Surface de Clebsch ;

S:=-3-6*x*y*z+3*x^2-42*x*y-42*x*z+3*y^2-42*y*z+3*z^2+21*x^2*y+21*x^2*z+21*x*y^2-9*x^3-9*y^3-9*z^3+21*x*z^2+21*y^2*z+21*y*z^2+9*x+9*y+9*z;
suite <-3,7,7,1,7,-2,-14,7,-14,3,-3,7,1,7,-14,3,-3,1,3,-1.>
Sylvester:=[[3*x-y-z-1=0],[x-3*y+z+1=0],[x+y-3*z+1=0],[x+y+z-1=0],[x+y+z+1=0]];
coef plans Sylvester{[3,-1,-1,-1],[1,-3,1,1],[1,1,-3,1],[1,1,1,-1],[1,1,1,1]}
Eck:={[1.,1.,1.],[0.,-1.,0.],[0.,0.,-1.],[-1.,0.,0.],[0.5,0.5,0.],[0.,0.5,0.5],[0.5,0.,0.5]}

*/
#declare a=1 ; 
#include "colors.inc" 

#declare a=4 ; 
 camera { orthographic 
        location <-2.5,0.6,-3>*0.75 look_at<0,0.2,0> }
 
light_source { <-4,5,-10> color White shadowless}
light_source { <-5,10,-20> color White shadowless}
light_source { <3,10,-10> color rgb <0.8,0.8,1>*0.5 shadowless}

box {<-20,-1.3,-20>,<5,20,5> 
      pigment {SkyBlue}   // Yellow
      rotate <0,5, 0>  
}
 /**/

background{ White }

union{ 
 // axes ----------------------
/*   #declare g=1 ;
   #declare r1=0.025; 
   #declare k=4;// longueur fleche=k*r1
   #declare co=1.8;// rayon base=co*r1
union{  cylinder{ 0,<g,0,0>,r1 }
         cone{ <g,0,0>,co*r1,<g+k*r1,0,0>,0  }
         pigment { Red }  }                 //transmit 0.3
union{  cylinder{ 0,<0,g,0>,r1  }
  cone{ <0,g,0>,co*r1,<0,g+k*r1,0>,0  }
         pigment { Green }  }
union{ cylinder{<0,0,0>,<0,0,g>,r1  }
       cone{ <0,0,g>,co*r1,<0,0,g+k*r1>,0 }
       pigment {Blue  }}

    */
 // plans de Sylvester
      //  plane{<3,-1,-1>,1/sqrt(11)
triangle{< 1,1,1. >,< 0,-1,0. > ,< 0,0,-1. >     pigment{ Pink transmit 0.2}}
      // plane{<1,-3,1>,-1/sqrt(11) 
triangle{< 1,1,1. > ,< 0,0,-1. > ,< -1,0,0. >      pigment{ Green transmit 0.6}}
      //  plane{<1,1,-3>,-1/sqrt(11) 
triangle{< 1,1,1. > ,< 0,-1,0. > ,< -1,0,0. >      pigment{ Yellow transmit 0.6}}
      // plane{<1,1,1>,1/sqrt(3) 
triangle{< .5,.5,0. > ,< 0,.5,.5 > ,< .5,0,.5 >      pigment{ Black }}
       // plane{<1,1,1>,-1/sqrt(3) 
triangle{< 0,-1,0. > ,< 0,0,-1. > ,< -1,0,0. >        pigment{ Orange*1.5 }}
     
union{  // points de Eckardt
        #declare r=0.06;
 sphere{< 1,1,1. > ,r } //1
  sphere{< 0,-1,0. > ,r } //2 
   sphere{< .5,.5,0. > ,r } //3 
   sphere{< 0,.5,.5 > ,r } //4 
   sphere{< 0,0,-1. > ,r } //5 
   sphere{< .5,0,.5 > ,r } //6 
   sphere{< -1,0,0. > ,r } //7 
pigment{Cyan*1.3}
 finish {ambient 0.4 diffuse 0.6 roughness 0.001 reflection 0 specular .8} 
}
       
	        #declare r=0.02 ; 
                #declare b=4;
      
union{ // droites diagonales
cylinder{< 0,b+1,-1.*b >,<0,-1.*b+1,b > ,r } //1
cylinder{< b,-1,-1.*b >,<-1.*b,-1,b > ,r } //2
cylinder{< -1.*b,-3.*b-1,0. >,<b,3.*b-1,0. > ,r }   //3
cylinder{< -3.*b-1,0,-1.*b >,<3.*b-1,0,b > ,r }   //4
cylinder{< -1.*b,0,-3.*b-1. >,<b,0,3.*b-1. > ,r }   //5
cylinder{< b+1,-1.*b,0. >,<-1.*b+1,b,0. > ,r }   //6
cylinder{< 2.+b,1,-1.*b >,<2.-1.*b,1,b > ,r }   //7
cylinder{< -1,b,-1.*b >,<-1,-1.*b,b > ,r }   //8
cylinder{< 0,-3.*b-1,-1.*b >,<0,3.*b-1,b > ,r }   //9
cylinder{< b+1,0,-1.*b >,<-1.*b+1,0,b > ,r }   //10
cylinder{< 0,-1.*b,-3.*b-1. >,<0,b,3.*b-1. > ,r } //11
cylinder{< b,-1.*b,-1. >,<-1.*b,b,-1. > ,r }   //12
cylinder{< -3.*b-1,-1.*b,0. >,<3.*b-1,b,0. > ,r }   //13
cylinder{< 2.+b,-1.*b,1. >,<2.-1.*b,b,1. > ,r }  //14
cylinder{< 1,2.+b,-1.*b >,<1,2.-1.*b,b > ,r }   //15
 	pigment{Yellow} 
 		
} 

union{ // droites Sclafli 1
	       
cylinder{< -2.34*b+.724,.448*b+1.17,-1.*b >,<2.34*b+.724,-.448*b+1.17,b > ,r }  //1 
cylinder{< .810+2.93*b,.190+1.31*b,-1.*b >,<.810-2.93*b,.190-1.31*b,b > ,r }  //2 
cylinder{< -1.*b,-2.34*b+.724,.448*b+1.17 >,<b,2.34*b+.724,-.448*b+1.17 > ,r }  //3 
cylinder{< -.172-.448*b,.276+.34*b,-1.*b >,<-.172+.448*b,.276-.34*b,b > ,r }  //4 
cylinder{< .276+.34*b,-1.*b,-.172-.448*b >,<.276-.34*b,b,-.172+.448*b > ,r }  //5 
cylinder{< 1.31+.190*b,-.310-.43*b,-1.*b >,<1.31-.190*b,-.310+.43*b,b > ,r }  //6 
       
	pigment{Red} 
 		
}
union{ // droites Sclafli 2
cylinder{< .276+.34*b,-.172-.448*b,-1.*b >,<.276-.34*b,-.172+.448*b,b > ,r }  //1 
cylinder{< -.310-.43*b,1.31+.190*b,-1.*b >,<-.310+.43*b,1.31-.190*b,b > ,r }  //2 
cylinder{< -1.*b,.276+.34*b,-.172-.448*b >,<b,.276-.34*b,-.172+.448*b > ,r }  //3 
cylinder{< .448*b+1.17,-2.34*b+.724,-1.*b >,<-.448*b+1.17,2.34*b+.724,b > ,r }  //4 
cylinder{< -2.34*b+.724,-1.*b,.448*b+1.17 >,<2.34*b+.724,b,-.448*b+1.17 > ,r }  //5 
cylinder{< .190+1.31*b,.810+2.93*b,-1.*b >,<.190-1.31*b,.810-2.93*b,b > ,r }  //6 
   
	pigment{Blue} 
 		
} 

/*	poly{3, <-3,7,7,1,7,-2,-14,7,-14,3,-3,7,1,7,-14,3,-3,1,3,-1.>  
	      pigment{White*0.5 } //  transmit 0.2
	      finish {ambient 0.4 diffuse 0.5 roughness 0.001 reflection 0.1 specular .8} 
	       	}//fin poly
*/
	clipped_by { sphere{ < 0,0.,0. > ,2.5  } } // < 0.2,0.2,0.2 > , 1.8
	bounded_by { clipped_by }
        rotate <-80,-35,+51> 
 	scale  0.65        // 0.9 macro  
        translate <1,0,1>   // <1,-0.28,1> macro 
}

  
text {	ttf "times.ttf" "AE"
        0.5,0 
        pigment { Cyan*1.2 }
        scale 0.08
        rotate <0,40,0> 
        translate <1.9,-1.3,-0.4> }