#include "oxy"
#include "colors"
#include "AutoClck.mcr"
#include "spline.mcr"


background {Blue}

     


#declare rbc = 
blob{
        threshold .95
        
sphere {<0,0,0> 1 1 pigment {Red}}
sphere {<2,0,0> 2 1 }
sphere {<2,0,0> 2 1  rotate <0,60,0>}
sphere {<2,0,0> 2 1  rotate <0,120,0>}
sphere {<2,0,0> 2 1  rotate <0,180,0>}
sphere {<2,0,0> 2 1  rotate <0,240,0>}
sphere {<2,0,0> 2 1  rotate <0,300,0>}
sphere {<2,0,0> 2 1  rotate <0,30,0>}
sphere {<2,0,0> 2 1  rotate <0,90,0>}
sphere {<2,0,0> 2 1  rotate <0,150,0>}
sphere {<2,0,0> 2 1  rotate <0,210,0>}
sphere {<2,0,0> 2 1 rotate <0,270,0>}
sphere {<2,0,0> 2 1  rotate <0,330,0>}


     pigment {color Red filter .5}
     //finish { phong 1 }
     rotate <45,45,0>
     }   
     
#declare rbc_finish = finish {
        phong .5
        phong_size 140
        ambient .4
}

#declare cells = object {rbc}// translate <10,20,20>}

#declare path = create_spline (
        array [5] {<0,0,-100>,<0, 0, 100>, <020, 0, 120>, <50,0,50>, <20,0,-120>}, 
                spline_tension (.2) + spline_sampling (on)+ spline_loop (no)) 
                //preview_spline (path, default_options)

#declare rbc_count = 30;
#declare ang = seed(1);
#declare time = seed(2);
#declare travel = seed (3);
 #while (rbc_count > 0)
#declare xx = rand (ang)*360;
#declare yy = rand (ang)*720;
#declare zz = rand (ang)*540;
#declare tt = rand (time)*1;
#declare gh = rand (travel)*4-2;

 object {rbc rotate From (0,<xx,yy,zz>) To (1,<yy,zz,xx>) 
             translate From (0,<0,0,0>) To (1,<gh,gh,gh>)
              animate_by_spline (path, spline_clock (clock*tt)) }

#declare rbc_count = rbc_count - 1;
#end
 

//cylinder {<0,0,-100>,<0,0,100>, 14 open pigment {Red }normal {bumps .4}} 


camera {location <75,40,-150> look_at <20,0,-60>}light_source {<50,20,50> White}
//camera {location <20,0,-50>  look_at  <0,0,-50>}//<10,20,20>}
        
light_source {<20,10,-150> White*1.5 shadowless}        
        
         
//cylinder {<0,0,-100>,<0,0,400>, 30 open pigment{MediumWood} normal {bumps .5}}