/*


S:=x^2*y^2+x^2*z^2+y^2*z^2+a*x*y*z;#Roman
suite:=0,0,0,0,1.,0,0,1.,0,0,0,0,0,0,-1.,0,0,0,0,0,0,0,0,1.,0,0,0,0,0,0,0,0,0,0,0
 para x=1/2*sin(2*u)*cos(w)^2 ; y:= 1/2*sin(u)*sin(2*w) ;z=1/2*cos(u)*sin(2*w)
*/

#include "colors.inc"
#include "metals.inc" 
    
#declare a=0.7 ;
camera  { orthographic location <-0,2.5,-3.5> look_at<0.25,-0.10,0> angle 22} //  
light_source { <-10,20,-20> White  shadowless } 
light_source { <10,20,-20> color White  shadowless} 
light_source { <4,-20,-15> color Red*0.7  shadowless}




// ----------------------------------------

plane {z, 6  pigment{ SkyBlue*1.2}}
//background{White}
#macro surf(textu)
 union {    
    poly{4, <0,0,0,0,1.,0,0,1.,0,0,0,0,0,0,-1.,0,0,0,0,0,0,0,0,1.,0,0,0,0,0,0,0,0,0,0,0>
       texture{     
              textu
              normal {
              granite 1
              turbulence 0.5
              scale 0.08
              accuracy 0.5
                     } 
             }      //0.55 si fond bleu 0.4 fond blanc
      finish {ambient 0.55 diffuse 0.35 reflection 0.1 roughness 0.001} 
          
         }
    union {
        cylinder { <0,-a,0>, <0,a,0>,0.004}
        cylinder { <-a,0,0>, <a,0,0>,0.004 }
        cylinder { <0,0,-a>, <0,0,a>,0.004 }
        pigment{ Red*1.2 transmit 0.4 }
        }
  
 }
           
            
#end    
// ----------------------------------------
object{ surf(T_Silver_3C)
        scale 1 
        rotate <-90,0,0> 
        translate <0.5,0,0>
        } 
object{ surf(T_Gold_5E)
        scale 0.35
        rotate <0,90,90> 
        translate <-0.3,0.3,0>
}
object{ surf(T_Gold_5E)
        scale 0.35
        rotate <40,30,-0> 
        translate <-0.3,-0.3,0>
}

    
text {	ttf "times.ttf" "AE"
        0.3,0                                                 
        pigment { Blue}
        scale 0.05
        rotate <40,0,-2>
        translate <+0.98,-0.8,0> 
        finish{ ambient 0.2 diffuse 0.3} }