/*équations :
S := 64*x^3+48*x^2*z-192*x*y^2+48*y^2*z-31*z^3-54*z^2-12*z
suite:=[64.,0,48.,0,-192.,0,0,0,0,0,0,48.,0,0,0,0,-31.,-54.,-12.,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}   // Yellow
      rotate <0,5, 0>  
        }
//--------------------------------

union{
        poly {3, <64.,0,48.,0,-192.,0,0,0,0,0,0,48.,0,0,0,0,-31.,-54.,-12.,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.01 ;
#declare b=5; 
union{
cylinder {< 1.121*b,.4805*b-.2136,-b >,<-1.121*b,-.4805*b-.2136,b > ,r } 
cylinder {< .1848-.9769*b,.1070+.7301*b,-b >,<.1848+.9769*b,.1070-.7301*b,b > ,r } 
cylinder {< .1848-.9769*b,-.1070-.7301*b,-b >,<.1848+.9769*b,-.1070+.7301*b,b > ,r } 
cylinder {< -.1851-.1441*b,.1070-1.211*b,-b >,<-.1851+.1441*b,.1070+1.211*b,b > ,r } 
cylinder {< -.1851-.1441*b,-.1070+1.211*b,-b >,<-.1851+.1441*b,-.1070-1.211*b,b > ,r } 
cylinder {< 1.121*b,-.4805*b+.2136,-b >,<-1.121*b,.4805*b+.2136,b > ,r } 
cylinder {< 0.,-b,0. >,<0.,b,0. > ,r } 
cylinder {< -.637e-1,-b,-.2547 >,<-.637e-1,b,-.2547 > ,r } 
cylinder {< -.4363,-b,-1.745 >,<-.4363,b,-1.745 > ,r } 
cylinder {< -b,.5778*b+.735e-1,-.2547 >,<b,-.5778*b+.735e-1,-.2547 > ,r } 
cylinder {< -b,-.5778*b-.735e-1,-.2547 >,<b,.5778*b-.735e-1,-.2547 > ,r } 
cylinder {< -b,.576*b+.5039,-1.745 >,<b,-.576*b+.5039,-1.745 > ,r } 
cylinder {< -b,-.576*b-.5039,-1.745 >,<b,.576*b-.5039,-1.745 > ,r } 
cylinder {< -b,-.5773*b,0. >,<b,.5773*b,0. > ,r } 
cylinder {< -b,.5773*b,0. >,<b,-.5773*b,0. > ,r }
           pigment{ Red }}
  // axes ----------------------
 union{          
   #declare g=1.2 ;
   #declare r1=0.025;
  
  #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.3>, 3 } }
  bounded_by { clipped_by }
  scale 0.47
  rotate <-85,-170,3>
  translate <0,0.35,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> }