/*=========================================================
  
  Elica torica
    
  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,4,-3>
  right x*image_width/image_height
  look_at <0,-0.9,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 = Phi*11;
    
    #local Rxz = 1+0.25*sin(Theta);
        
    #local P = <cos(Phi)*Rxz,0.25*cos(Theta)-0.70,sin(Phi)*Rxz>;

    sphere {P, 0.05}

    #local I = I + 1;
  #end
    
  texture {
    pigment {White}
    finish {Metal}
  }
}