// 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}
 }