POV-Ray Short Code Contest 5 conclusion

A competition was held for writing visually impressive (for their size) animations, with a requirement of being expressed in 512 bytes of POV-Ray code or less. 

View the submissions, results, and code used to generate them here.

Here is a snapshot of the first place winner.  The code used to create this will follow it.

#local C=clock*pi;#macro B(N,F)sphere{0F/7 1scale 1-pow(I.5)translate-I*F*x rotate y*N*90rotate-N*x*pow(5I)*10*sin(I*2-C*8+i)scale.2+x*.8translate-x}#end#local i=C;#while(i<2*pi+C)#local I=0;blob{#while(I<1)B(1,7)B(-1,7)B(0,3)#local I=I+.01;#end rotate<-90cos(i*3)*-45i*pi*36>translate<sin(i)+2*sin(2*i)5+cos(i)-2*cos(2*i)3*sin(3*i)+7>*2rotate x*37pigment{slope y}}#local i=i+pi/8;#end light_source{<0,60,99>1spotlight}media{intervals 6scattering{2rgb<.1.2,1>/99}}

Or in a more readable form:

// Entry code: mpszaw
// Name      : Jeff Reifel
// Frame rate: 10
#local C=clock*pi;
#macro
 B(N,F)         // blob elements for wings and tail
 sphere{0,F/7,1
 scale 1-pow(I.5)
 translate-I*F*x 
 rotate y*N*90
 rotate-N*x*pow(5,I)*10*sin(I*2-C*8+i) // shapes and flaps wings
 scale.2+x*.8
 translate-x}
 #end
 #local i=C;
 #while(i<2*pi+C) // spaces and moves rays
 #local I=0;
 blob{
 #while(I<1)
 B(1,7)  // wing
 B(-1,7) //wing
 B(0,3)  // tail
 #local I=I+.01;
 #end 
 rotate<-90,cos(i*3)*-45,i*pi*36> //orients ray on knot
 translate<sin(i)+2*sin(2*i),5+cos(i)-2*cos(2*i),3*sin(3*i)+7>*2   //knot
 rotate x*37
 pigment{slope y}}
 #local i=i+pi/8;
 #end 
 light_source{<0,60,99> 1 spotlight}
 media{
 intervals 6
 scattering{
 2
 rgb<.1.2,1>/99}
 }