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

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

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

light_source { <2,7,-7> color 1 }

plane {
  -z,0
  pigment { checker Orange White}
}


union {
  #local I = 0;
  #local N = 5000;
  #while(I<N)
    
    #local T = I/(N-1);
    
    #local Phi = 8*pi*T;
    #local R = 0.015*exp(Phi*0.2);
    
    #local P = <cos(Phi)*R,sin(Phi)*R,0>;

    sphere {P, R*0.15 }

    #local I = I + 1;
  #end

  texture {
    pigment {White}
    finish {Metal}
  }
}