//S:=4*x^2*(x^2+y^2+z^2+z)+y^2*(y^2+z^2-1) ; quartique
//suite:=<4.,0,0,0,4.,0,0,4.,4.,0,0,0,0,0,0,0,0,0,0,0,1.,0,0,1.,0,-1.,0,0,0,0,0,0,0,0,0>


#include "colors.inc"
#include "metals.inc" 
    
camera  { orthographic location <-0.5,0.9,-2> look_at<0,0,0>} //  
light_source { <-10,20,-20> color rgb<0.8,0.8,1>  shadowless } 
light_source { <10,20,-20> color White  shadowless} 
light_source { <4,-20,-15> color Red*0.7  shadowless}

background{White}
//plane {z, 6  pigment{ SkyBlue*1.2}}
// ----------------------------------------  
#macro crosscap(textu)
union {                                        //0.01                                   //0.05> marrant
    poly{4, <4.,0,0,0,4.,0,0,4.,4.,0,0,0,0,0,0,0,0,0,0,0,1.,0,0,1.,0,-1.,0,0,0,0,0,0,0,0,0>
      texture{     
              textu
              normal {
              granite 1
              turbulence 0.5
              scale 0.1
              accuracy 0.5
                     } 
             }   
      finish {ambient 0.55 diffuse 0.35 reflection 0.1 roughness 0.001} 
         }
    cylinder {0,<0,0,1.4>,0.008 pigment { Red transmit 0.5}}       
    }           
#end    
// ----------------------------------------
object{ crosscap(T_Silver_3C)
        scale 1.3
        rotate <-30,145,90> 
        translate <0,-0.,0>
        } 
object{ crosscap(T_Gold_5E)
        scale 0.35
        rotate <0,90,90> 
        translate <-1,0.8,0>
}
    
text {	ttf "times.ttf" "AE"
        0.3,0                                                 
        pigment { Blue}
        scale 0.1
        rotate <40,0,-6>
        translate <+1.2,-1,0> 
        finish{ ambient 0.2 diffuse 0.3} }