// 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 "c:\pov31g\include\carswrite04k.inc" 

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


#declare racetrack=
        union{
                cylinder{0,<0,-10,0>,200
                       // pigment{White}
                        //pigment{radial                                color_map{[0 White][0.45 White][0.45 Black][0.55 Black][0.55 White][1 White]}                                scale 100}
                          pigment {
    radial color_map{[0 Gray30][0.45 Gray30][0.45 White][0.55 White][0.55 Gray30][1.0 Gray30]}
    frequency 100
  }                                
                        }
                difference{
                        cylinder{<0, 0.0,0>,<0,2.0,0>,140}
                        cylinder{<0,-0.1,0>,<0,2.1,0>,39}
                        }
                difference{     
                        cylinder{<0, 0.0,0>,<0,2.0,0>,281}
                        cylinder{<0,-0.1,0>,<0,2.1,0>,180}
                        }
                pigment{Brown}
                }

#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 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
union{
        box{<-0,.01,-.5>,<3,0.9,.5>
            pigment {color colorp[n]} 
            finish {metallic reflection 0.2 phong 0.9 }
            translate <0,0.25,0>
            }
        cylinder{<0.75,0.5,1.>,<0.75,0.5,-1.>,0.5 pigment{Gray20}}
        cylinder{<2.25,0.5,1.>,<2.25,0.5,-1.>,0.5 pigment{Gray20}}
 
     Reorient(x,<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.
     }

#declare n=n+1   ;
#end          

#declare viewme=10;

camera {               
  location <0,50,-0>
  //look_at <150,10,-0>  
  
  location <Position[tee][viewme][0],Position[tee][viewme][1],Position[tee][viewme][2]>/2.4+<0,40,-0>
  look_at <Position[tee][viewme][0],Position[tee][viewme][1],Position[tee][viewme][2]>                                                           
  angle 20 
}                               
           
light_source{<50,200,-5>rgb 1.2}
light_source{<-10,-200,50>rgb .2}
                                             
#fclose Myfile2                                    

#debug "\a"            
           
           
background { rgb 1 } 
object{racetrack}