/*=========================================================
  
  Elica sferica
    
  Metodi e Modelli Matematici          
  Gian Marco Todesco, ottobre 2007
  http://archinet.uniroma3.it/mate/metodi/2007
  
=========================================================*/

#include "colors.inc"
#include "textures.inc"

camera {  
  location <2,5,-4>
  right x*image_width/image_height
  look_at <0,0,0>
  angle 30
}

light_source { <2,6,0> color 1 }

plane {
  y,-1
  pigment { checker Orange White}
}


union {
  #local I = 0;
  #local N = 10000;
  #while(I<N)
    
    #local T = I/(N-1);
    
    #local Phi = 9*2*pi*T; 
    #local Theta = pi*T;
    
    #local Rxz = sin(Theta);
        
    #local P = <cos(Phi)*Rxz,cos(Theta),sin(Phi)*Rxz>;

    sphere {P, 0.05*Rxz }

    #local I = I + 1;
  #end
  
  rotate 20*z
  rotate -30*y
  
  texture {
    pigment {White}
    finish {Metal}
  }
}