/*=========================================================
  
  Curva parametrica disegnata con sferette. Effetto "lombrico"
  
    
  Metodi e Modelli Matematici          
  Gian Marco Todesco, ottobre 2007
  http://archinet.uniroma3.it/mate/metodi/2007

=========================================================*/

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

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

default {
  finish {
    ambient 0.4
  }
}

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


background {White}

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


union {
  #local I = 0;
  #local N = 100;
  #while(I<N)
    
    #local T = I/(N-1);
    
    #local Phi = 2*pi*T;
    #local R = 1 + 0.1*sin(5*Phi);
    
    #local P = <cos(Phi)*R,sin(Phi)*R,0>;

    sphere { P, 0.1 +0.05*cos(5*Phi) }
    
    #local I = I + 1;
  #end

  texture {
    pigment {Orchid}
    finish {Metal}
  }
}