//15.06.2011

//includo colori e textures
#include "colors.inc"
#include "textures.inc"

//inserisco il punto di vista...
camera {
location <1,0.1,-10>
look_at <0,0.5,0>
angle 40
}


//...e le luci
light_source {
<2,4,-10> color 1
}
light_source {
<-4,20,-20> color 1
}


//un piano su cui appoggiare la superficie
plane {
y,0
texture {Water}
}

//definisco la macro. Gli argomenti saranno (S,Q)
#macro Candela(S,Q)
#local X = S*2.3 + Q*0.8;
#local Y = 1 + pow(S,2)*(Q*1.6-1);
#local Z = 0;
<X,Y,Z>
#end


union {
#local R = 0.02;

#local N = 1000;
#local I = 0;
#while(I<N)
#local T = I/(N-1);

#local Q = abs(sin(T*8*pi));


#local M = 100;
#local J = 0;
#while(J<M)
#local S = J/(M-1);
#declare P = Candela (S,Q);

sphere {P,R rotate y*T*360}

#local J = J + 1;
#end
#local I = I + 1;

#end

pigment {White}
}