/*
   v1: x^4+y^4+z^4-x^2-y^2-z^2-x^2*y^2-x^2*z^2-y^2*z^2+1 = 0
 n:=4
suite:=[1,0,0,0,-1,0,0,-1,0,-1,0,0,0,0,0,0,0,0,0,0,1,0,0,-1,0,-1,0,0,0,0,1,0,-1,0,1.]

   
   
   
   
 v2  x^4+y^4+z^4+a*(x^2+y^2+z^2)+b*(x^2*y^2+x^2*z^2+y^2*z^2)+c*x*y*z-d=0 
 n:=4
suite:=[1,0,0,0,a,0,0,a,0,b,0,0,0,0,c,0,0,0,0,0,1,0,0,a,0,b,0,0,0,0,1,0,b,0,-d]

*/

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



camera {orthographic  location <0,8,-10>*2 look_at<0,0,0> angle 20}
light_source { <-10,18,-20> color White } 
light_source { <10, -1,-10> color rgb <1,0.6,0>*0.7  }
light_source { <0,18,-2> color Yellow*0.8}
background{   White} //  SkyBlue*1.2} //
  
#declare a=-0.8; 
#declare b=0.2;
#declare c=2;
#declare d=0;

union{  
        poly {4, <1,0,0,0,a,0,0,a,0,b,0,0,0,0,c,0,0,0,0,0,1,0,0,a,0,b,0,0,0,0,1,0,b,0,-d>

//clipped_by{sphere{0,4}}//box{<-10,-2,-10>,<10,2,10>}}
            texture{     
              T_Gold_5A
              normal {
                      granite 1
                      turbulence 0.5
                      scale 0.4
                      accuracy 0.7
             } 
          }   
      
        finish {ambient 0.2 diffuse 0.4 reflection 0.1 roughness 0.001 specular 0.8} 
        scale 0.8
      }
            #declare f1=2.46;
            #declare g1=2.43;
            #declare f2=0.28;
            #declare r=0.02;
  // ------------- pour l'image kummer : 13 début --------     
  intersection{
         box{-f1,f1}
         box{-g1,g1 inverse}
         texture { T_Glass3 }
         interior { ior Crown_Glass_Ior}//ior Air_Ior }
         finish { ambient 0.1 reflection 0.0 specular 0.6}  
        
       pigment {Green*1.1 transmit 0.97}
        } /* */
   union{ 
              cylinder{ -f2,<-f2,-f2,f2>,r}  
              cylinder{ -f2,<-f2,f2,-f2>,r}
              cylinder{ -f2,<f2,-f2,-f2>,r}   
              cylinder{ <-f2,f2,f2>,f2,r}
              cylinder{ <f2,-f2,f2>,f2,r}  
              cylinder{ <f2,f2,-f2>,f2,r}
              cylinder{ <f2,-f2,-f2>,<f2,-f2,f2>,r}
              cylinder{ <f2,-f2,-f2>,<f2,f2,-f2>,r}
              cylinder{ <-f2,f2,-f2>,<f2,f2,-f2>,r}
              cylinder{ <-f2,f2,-f2>,<-f2,f2,f2>,r}   
              cylinder{ <-f2,-f2,f2>,<-f2,f2,f2>,r}
              cylinder{ <-f2,-f2,f2>,<f2,-f2,f2>,r}
              
              cylinder{ -f1,<-f1,-f1,f1>,r}  
              cylinder{ -f1,<-f1,f1,-f1>,r}
              cylinder{ -f1,<f1,-f1,-f1>,r}   
              cylinder{ <-f1,f1,f1>,f1,r}
              cylinder{ <f1,-f1,f1>,f1,r}  
              cylinder{ <f1,f1,-f1>,f1,r}
              cylinder{ <f1,-f1,-f1>,<f1,-f1,f1>,r}
              cylinder{ <f1,-f1,-f1>,<f1,f1,-f1>,r}
              cylinder{ <-f1,f1,-f1>,<f1,f1,-f1>,r}
              cylinder{ <-f1,f1,-f1>,<-f1,f1,f1>,r}   
              cylinder{ <-f1,-f1,f1>,<-f1,f1,f1>,r}
              cylinder{ <-f1,-f1,f1>,<f1,-f1,f1>,r}
              pigment {Green transmit 0.7}
   }
    // ------------- pour l'image kummer 13 : fin --------
       rotate<-60,-10,-8>
       translate <0,0.2,0>
       scale 1.1
}
//------------------------------
text {	ttf "times.ttf" "[-0.8, 0.2, 2, 0]"
        0.3,0                                                
        pigment { Blue}
        scale 0.2
        rotate <40,0,-2>
        translate <+0.1,-4,0> 
        finish{ ambient 0.2 diffuse 0.3} }