/*équations :
S:=64*x^3+48*x^2*z-192*x*y^2+48*y^2*z-243/8*z^3-54*z^2-24*z
suite := [64,0,48,0,-192,0,0,0,0,0,0,48,0,0,0,0,-30.38,-54,-24,0.]
*/

#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{
        #declare h=100;//192
poly {3, <64,0,48,0,-192,0,0,0,0,0,0,48,0,0,0,0,-30.38,-54,-24,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.006 ;
#declare b=4; 
union{ 
cylinder {< 1/32*sqrt(6)*(-9*b+8),1/32*sqrt(2)*(-9*b+8),-b >,<1/32*sqrt(6)*(9*b+8),1/32*sqrt(2)*(9*b+8),b > ,r } 
cylinder {< 1/32*sqrt(6)*(-9*b+8),-1/32*sqrt(2)*(-9*b+8),-b >,<1/32*sqrt(6)*(9*b+8),-1/32*sqrt(2)*(9*b+8),b > ,r } 
cylinder {< -1/32*sqrt(6)*(-9*b+8),1/32*sqrt(2)*(-9*b+8),-b >,<-1/32*sqrt(6)*(9*b+8),1/32*sqrt(2)*(9*b+8),b > ,r } 
cylinder {< -1/32*sqrt(6)*(-9*b+8),-1/32*sqrt(2)*(-9*b+8),-b >,<-1/32*sqrt(6)*(9*b+8),-1/32*sqrt(2)*(9*b+8),b > ,r } 
cylinder {< 1/320*(8+3*sqrt(6))*(-15*b+32*sqrt(6)-72),1/5568*(-3*sqrt(2)+8*sqrt(3))*(261*b+24+32*sqrt(3)*sqrt(2)),-b >,<1/320*(8+3*sqrt(6))*(15*b+32*sqrt(6)-72),1/5568*(-3*sqrt(2)+8*sqrt(3))*(-261*b+24+32*sqrt(3)*sqrt(2)),b > ,r } 
cylinder {< 1/320*(8+3*sqrt(6))*(-15*b+32*sqrt(6)-72),-1/5568*(-3*sqrt(2)+8*sqrt(3))*(261*b+24+32*sqrt(3)*sqrt(2)),-b >,<1/320*(8+3*sqrt(6))*(15*b+32*sqrt(6)-72),-1/5568*(-3*sqrt(2)+8*sqrt(3))*(-261*b+24+32*sqrt(3)*sqrt(2)),b > ,r } 
cylinder {< -1/320*(-8+3*sqrt(6))*(-15*b-32*sqrt(6)-72),1/5568*(3*sqrt(2)+8*sqrt(3))*(-261*b-24+32*sqrt(3)*sqrt(2)),-b >,<-1/320*(-8+3*sqrt(6))*(15*b-32*sqrt(6)-72),1/5568*(3*sqrt(2)+8*sqrt(3))*(261*b-24+32*sqrt(3)*sqrt(2)),b > ,r } 
cylinder {< -1/320*(-8+3*sqrt(6))*(-15*b-32*sqrt(6)-72),-1/5568*(3*sqrt(2)+8*sqrt(3))*(-261*b-24+32*sqrt(3)*sqrt(2)),-b >,<-1/320*(-8+3*sqrt(6))*(15*b-32*sqrt(6)-72),-1/5568*(3*sqrt(2)+8*sqrt(3))*(261*b-24+32*sqrt(3)*sqrt(2)),b > ,r } 
cylinder {< 3/4*b,1/32*sqrt(2)*(-9*b+8),-b >,<-3/4*b,1/32*sqrt(2)*(9*b+8),b > ,r } 
cylinder {< 3/4*b,-1/32*sqrt(2)*(-9*b+8),-b >,<-3/4*b,-1/32*sqrt(2)*(9*b+8),b > ,r } 
cylinder {< 0,-1/16*sqrt(2)*(-9*b+8),-b >,<0,-1/16*sqrt(2)*(9*b+8),b > ,r } 
cylinder {< 0,1/16*sqrt(2)*(-9*b+8),-b >,<0,1/16*sqrt(2)*(9*b+8),b > ,r } 
cylinder {< -54/211-8/211*sqrt(6),-b,-216/211-32/211*sqrt(6) >,<-54/211-8/211*sqrt(6),b,-216/211-32/211*sqrt(6) > ,r } 
cylinder {< -54/211+8/211*sqrt(6),-b,-216/211+32/211*sqrt(6) >,<-54/211+8/211*sqrt(6),b,-216/211+32/211*sqrt(6) > ,r } 
cylinder {< 0,-b,0 >,<0,b,0 > ,r } 
cylinder {< -b,-(-162/211*sqrt(3)+72/211*sqrt(2)-211/12*(-27/211+4/211*sqrt(6))*(36/211*sqrt(3)-16/211*sqrt(2)))*b+36/211*sqrt(3)-16/211*sqrt(2),-216/211+32/211*sqrt(6) >,<b,(-162/211*sqrt(3)+72/211*sqrt(2)-211/12*(-27/211+4/211*sqrt(6))*(36/211*sqrt(3)-16/211*sqrt(2)))*b+36/211*sqrt(3)-16/211*sqrt(2),-216/211+32/211*sqrt(6) > ,r } 
cylinder {< -b,-(162/211*sqrt(3)-72/211*sqrt(2)-211/12*(-27/211+4/211*sqrt(6))*(-36/211*sqrt(3)+16/211*sqrt(2)))*b-36/211*sqrt(3)+16/211*sqrt(2),-216/211+32/211*sqrt(6) >,<b,(162/211*sqrt(3)-72/211*sqrt(2)-211/12*(-27/211+4/211*sqrt(6))*(-36/211*sqrt(3)+16/211*sqrt(2)))*b-36/211*sqrt(3)+16/211*sqrt(2),-216/211+32/211*sqrt(6) > ,r } 
cylinder {< -b,-(-162/211*sqrt(3)-72/211*sqrt(2)-211/12*(-27/211-4/211*sqrt(6))*(36/211*sqrt(3)+16/211*sqrt(2)))*b+36/211*sqrt(3)+16/211*sqrt(2),-216/211-32/211*sqrt(6) >,<b,(-162/211*sqrt(3)-72/211*sqrt(2)-211/12*(-27/211-4/211*sqrt(6))*(36/211*sqrt(3)+16/211*sqrt(2)))*b+36/211*sqrt(3)+16/211*sqrt(2),-216/211-32/211*sqrt(6) > ,r } 
cylinder {< -b,-(162/211*sqrt(3)+72/211*sqrt(2)-211/12*(-27/211-4/211*sqrt(6))*(-36/211*sqrt(3)-16/211*sqrt(2)))*b-36/211*sqrt(3)-16/211*sqrt(2),-216/211-32/211*sqrt(6) >,<b,(162/211*sqrt(3)+72/211*sqrt(2)-211/12*(-27/211-4/211*sqrt(6))*(-36/211*sqrt(3)-16/211*sqrt(2)))*b-36/211*sqrt(3)-16/211*sqrt(2),-216/211-32/211*sqrt(6) > ,r } 
cylinder {< -b,-1/3*sqrt(3)*b,0 >,<b,1/3*sqrt(3)*b,0 > ,r } 
cylinder {< -b,1/3*sqrt(3)*b,0 >,<b,-1/3*sqrt(3)*b,0 > ,r }  
        pigment{ Red }
}
  // axes ----------------------
 union{          
   #declare g=0.9 ;
   #declare r1=0.02;
  
  #declare k=4;// longueur fleche=k*r1
  #declare co=1.8;// rayon base=co*r1
cylinder{ <-g/2,0,0>,<g,0,0>,r1 }
  cone{ <g,0,0>,co*r1,<g+k*r1,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  }
  cone{ <0,0,g>,co*r1,<0,0,g+k*r1>,0 } 
  pigment { Yellow transmit 0.3}
   
}
  //-
    clipped_by { sphere{<0,0.,-0.5>,1.5 } }
  bounded_by { clipped_by }
  scale 0.9
  rotate <-85,-170,3>
  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> }