// by Greg M. Johnson   http://members.xoom.com/gregjohn/animation.html.

#version unofficial MegaPov 0.5;
#include "colors.inc"
#include "textures.inc"
#include "metals.inc" 
#include "boid17awrite04.inc"  //change this to be the include file created by boidwrite01, with appropriate subdirectory information.
                       

#macro Reorient(Axis1,Axis2)
                #local vX1=vnormalize(Axis1);                   // this macro created by john vansickle
                #local vX2=vnormalize(Axis2);
                #local vY=vnormalize(vcross(vX1,vX2));
                #local vZ1=vnormalize(vcross(vX1,vY));
                #local vZ2=vnormalize(vcross(vX2,vY));
                matrix < vX1.x, vY.x,vZ1.x, vX1.y,vY.y,vZ1.y, vX1.z,vY.z, vZ1.z, 0,0,0 >
                matrix < vX2.x,vX2.y,vX2.z,  vY.x,vY.y, vY.z, vZ2.x,vZ2.y,vZ2.z, 0,0,0 >
              #end



#declare num=100 ;                // make sure you use same num as from boidwrite01
#declare framenum=374;            // make sure this framenum is one less than framenum of boidwrite01.

               
#declare RRR=seed(20822) ;        
                       
#declare colorp= array[num+1]
#declare actorp= array[framenum+1][num+1]
#declare actorv= array[framenum+1][num+1]
                                                 
                                                 
//assign random colors to each actor, if desired.
#declare n=0    ;
        #while (n<num)
        #declare colorp[n]=<rand(RRR),rand(RRR),rand(RRR)>;
        #declare n=n+1   ;
#end                                    
        

#declare tt=int(framenum*clock)+1;

#declare n=1    ;
#while (n<num)
#declare tee=tt;
                
// you make your actor be any pre-defined object.  I used a cone in this case.
//object{X     
cone {<0,0,0>,.4<0,1.2,0>,0.//5
 
     Reorient(y,<Position[tee][n][3],Position[tee][n][4],Position[tee][n][5]>)
     translate <Position[tee][n][0],Position[tee][n][1],Position[tee][n][2]>
     
     // texture as you like, use your random colors if you like.
     pigment {color colorp[n]} 
     finish { phong 0.9 }
     }

#declare n=n+1   ;
#end          


camera {               
  location <0,15,-55>
  look_at 0                                                             
  angle 50 
}                               
           
light_source{<50,200,-5>rgb 1.2}
light_source{<-10,-200,50>rgb .2}
                                             
#fclose Myfile2                                    

#debug "\a"            
           
           
background { rgb 1 }