/*équations :
S:=x^2*y-30*x^2-30*y^2+y^2*x+z^2
 */

#include "colors.inc"
#include "stones.inc"
#include "metals.inc"

 camera { orthographic 
          location <-2.5,0.6,-3>*0.75 look_at<0,0.2,0> }
 
light_source { <-4,5,-10> color White}
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}
      rotate <0,5, 0>  
        }
//--------------------------------
union{
        poly {3, <0, 1., 0, -30, 1., 0, 0, 0, 0, 0, 0, 0,-30, 0, 0, 0, 0, 1., 0,0>

  texture{
     /* pigment{ granite color_map{[0.0 rgb<1,1,0.7>][1.0 rgb<0.5,0.3,0>]}
             scale 0.08   } */     
     T_Silver_3C  
                    
  finish { ambient 0.4 diffuse 0.3 reflection 0
           specular 0.5 roughness 0.008 }
  } 
}
#declare r=0.6 ;

#declare b=500; 
union{
        cylinder {< -1/30*sqrt(15)*(2+sqrt(2))*(-b+60*sqrt(15)*sqrt(2)-120*sqrt(15)),-60+60*sqrt(2),-b >,<-1/30*sqrt(15)*(2+sqrt(2))*(b+60*sqrt(15)*sqrt(2)-120*sqrt(15)),-60+60*sqrt(2),b > ,r } 
cylinder {< -1/30*sqrt(15)*(2+sqrt(2))*(b+60*sqrt(15)*sqrt(2)-120*sqrt(15)),-60+60*sqrt(2),-b >,<-1/30*sqrt(15)*(2+sqrt(2))*(-b+60*sqrt(15)*sqrt(2)-120*sqrt(15)),-60+60*sqrt(2),b > ,r } 
cylinder {< -1/30*sqrt(15)*(sqrt(2)-2)*(b+120*sqrt(15)+60*sqrt(15)*sqrt(2)),-60-60*sqrt(2),-b >,<-1/30*sqrt(15)*(sqrt(2)-2)*(-b+120*sqrt(15)+60*sqrt(15)*sqrt(2)),-60-60*sqrt(2),b > ,r } 
cylinder {< -1/30*sqrt(15)*(sqrt(2)-2)*(-b+120*sqrt(15)+60*sqrt(15)*sqrt(2)),-60-60*sqrt(2),-b >,<-1/30*sqrt(15)*(sqrt(2)-2)*(b+120*sqrt(15)+60*sqrt(15)*sqrt(2)),-60-60*sqrt(2),b > ,r } 
cylinder {< 0,-1/30*sqrt(30)*b,-b >,<0,1/30*sqrt(30)*b,b > ,r } 
cylinder {< 0,1/30*sqrt(30)*b,-b >,<0,-1/30*sqrt(30)*b,b > ,r } 
cylinder {< -60+60*sqrt(2),-1/30*sqrt(15)*(2+sqrt(2))*(-b+60*sqrt(15)*sqrt(2)-120*sqrt(15)),-b >,<-60+60*sqrt(2),-1/30*sqrt(15)*(2+sqrt(2))*(b+60*sqrt(15)*sqrt(2)-120*sqrt(15)),b > ,r } 
cylinder {< -60+60*sqrt(2),-1/30*sqrt(15)*(2+sqrt(2))*(b+60*sqrt(15)*sqrt(2)-120*sqrt(15)),-b >,<-60+60*sqrt(2),-1/30*sqrt(15)*(2+sqrt(2))*(-b+60*sqrt(15)*sqrt(2)-120*sqrt(15)),b > ,r } 
cylinder {< -60-60*sqrt(2),-1/30*sqrt(15)*(sqrt(2)-2)*(b+120*sqrt(15)+60*sqrt(15)*sqrt(2)),-b >,<-60-60*sqrt(2),-1/30*sqrt(15)*(sqrt(2)-2)*(-b+120*sqrt(15)+60*sqrt(15)*sqrt(2)),b > ,r } 
cylinder {< -60-60*sqrt(2),-1/30*sqrt(15)*(sqrt(2)-2)*(-b+120*sqrt(15)+60*sqrt(15)*sqrt(2)),-b >,<-60-60*sqrt(2),-1/30*sqrt(15)*(sqrt(2)-2)*(b+120*sqrt(15)+60*sqrt(15)*sqrt(2)),b > ,r } 
cylinder {< -1/30*sqrt(30)*b,0,-b >,<1/30*sqrt(30)*b,0,b > ,r } 
cylinder {< 1/30*sqrt(30)*b,0,-b >,<-1/30*sqrt(30)*b,0,b > ,r } 
cylinder {< 1/30*sqrt(15)*b,-1/30*sqrt(15)*b,-b >,<-1/30*sqrt(15)*b,1/30*sqrt(15)*b,b > ,r } 
cylinder {< -1/30*sqrt(15)*b,1/30*sqrt(15)*b,-b >,<1/30*sqrt(15)*b,-1/30*sqrt(15)*b,b > ,r } 
cylinder {< 1/60*sqrt(30)*(b+60*sqrt(30)),1/60*sqrt(30)*(-b+60*sqrt(30)),-b >,<1/60*sqrt(30)*(-b+60*sqrt(30)),1/60*sqrt(30)*(b+60*sqrt(30)),b > ,r } 
cylinder {< 1/60*sqrt(30)*(-b+60*sqrt(30)),1/60*sqrt(30)*(b+60*sqrt(30)),-b >,<1/60*sqrt(30)*(b+60*sqrt(30)),1/60*sqrt(30)*(-b+60*sqrt(30)),b > ,r } 

           pigment{ Red }}
    clipped_by { box{ <-300,-200,-450>,<300,100,450>}} //sphere{<0,0.,0>,500 } }
  bounded_by { clipped_by }
  scale <1,2,0.7>*0.004 
  rotate <85 ,85,81>
  translate <0,0.6 ,0>
}

  // axes ----------------------
 union{          
   #declare g=120 ;
   #declare r1=2.5;
  
  #declare k=4;// longueur fleche=k*r1
  #declare co=1.8;// rayon base=co*r1
cylinder{ <-g/2,0,0>,<g,0,0>,r1/2 }
  cone{ <g,0,0>,co*r1/2,<g+k*r1/2,0,0>,0  }
  
  cylinder{ <0,-g/2,0>,<0,g,0>,r1  }
  cone{ <0,g,0>,co*r1,<0,g+k*r1,0>,0  }
  
  cylinder{<0,0,-g/2>,<0,0,g>,r1/2  }
  cone{ <0,0,g>,co*r1/2,<0,0,g+k*r1/2>,0 } 
  pigment { Yellow transmit 0.3}
  // ************ BIEN RECOPIER LES MEMES TRANSFORMATIONS
  scale <1,2,0.7>*0.004 
  rotate <105 ,95,50>
  translate <0,0.6 ,0> 
}
          
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> }