/*équations :
S :=-2*z*x^2-x*z^2+z+x*y-x^3+z*y
 */

#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>  
}



#macro xx(uu) uu 
#end  
#macro yy(uu) uu*uu 
#end 
#macro zz(uu) 0
#end 
   

#macro courbe(n,deb,fin,r)
                
  #local pas=(fin-deb)/n;
  #local uu = deb;   
  #while (uu<=fin)
        #local vv=uu+pas; 
        cylinder{ <xx(uu),yy(uu),zz(uu)>,<xx(vv),yy(vv),zz(vv)>,r}
        sphere{ <xx(vv),yy(vv),zz(vv)>,r }
        #local uu=vv;   
  #end                   //fin boucle
#end //macro

//--------------------------------
union{    
poly {3, <-1., 0, -2., 0, 0, 0, 1., -1., 0, 0, 0, 0, 0, 0, 1., 0, 0, 0, 1., 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.5 diffuse 0.4 reflection 0.1
           specular 0.5 roughness 0.008 }
  } 
}
#declare r=0.015 ;
#declare b=15; 
union{
      cylinder{<-.277*b-3.,.923*b+9.,.277*b>,<.277*b-3.,-.923*b+9.,-.277*b>,r}
cylinder{<-.308*b-2.54,.905*b+6.44,.308*b>,<.308*b-2.54,-.905*b+6.44,-.308*b>,r}
cylinder{<-.339*b-2.08,.869*b+4.31,.339*b>,<.339*b-2.08,-.869*b+4.31,-.339*b>,r}
cylinder{<-.378*b-1.62,.845*b+2.61,.378*b>,<.378*b-1.62,-.845*b+2.61,-.378*b>,r}
cylinder{<-.406*b-1.15,.821*b+1.33,.406*b>,<.406*b-1.15,-.821*b+1.33,-.406*b>,r}
cylinder{<-.390*b-.692,.837*b+.479,.390*b>,<.390*b-.692,-.837*b+.479,-.390*b>,r}
cylinder{<-.209*b-.231,.951*b+.533e-1,.209*b>,<.209*b-.231,-.951*b+.533e-1,-.209*b>,r}
cylinder{<.209*b+.231,.951*b+.533e-1,-.209*b>,<-.209*b+.231,-.951*b+.533e-1,.209*b>,r}
cylinder{<.390*b+.692,.837*b+.479,-.390*b>,<-.390*b+.692,-.837*b+.479,.390*b>,r}
cylinder{<.406*b+1.15,.821*b+1.33,-.406*b>,<-.406*b+1.15,-.821*b+1.33,.406*b>,r}
cylinder{<.378*b+1.62,.845*b+2.61,-.378*b>,<-.378*b+1.62,-.845*b+2.61,.378*b>,r}
cylinder{<.339*b+2.08,.869*b+4.31,-.339*b>,<-.339*b+2.08,-.869*b+4.31,.339*b>,r}
cylinder{<.308*b+2.54,.905*b+6.44,-.308*b>,<-.308*b+2.54,-.905*b+6.44,.308*b>,r}
cylinder{<.277*b+3.,.923*b+9.,-.277*b>,<-.277*b+3.,-.923*b+9.,.277*b>,r}



        pigment{ Red }
}
union{
   cylinder{<0,-1,-b>,<0,-1,b>,2*r  }// droite
   courbe(50,-4,4,2*r)  
   pigment { rgb <0,0.6,0>}
   }
 // axes ----------------------
/* union{          
   #declare g=1.5 ;
   #declare r1=0.03;
  
  #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 { cylinder{<0,-1,-4>,<0,-1,2>,5 } }
  bounded_by { clipped_by }
  scale 0.4
  rotate <70,80,-16>
  translate <0.2,-0.2,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> }