/*=========================================================
  
  Curva parametrica a forma di fiore
    
  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,-12>
  right x*image_width/image_height
  look_at <0,0,0>
  angle 30
}

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

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


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

    sphere {P, 0.2*R-0.19 }

    #local I = I + 1;
  #end

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