Run this program six times while changing the framNum
         parameter from zero to five. Convert the images to gif
         frames and combine to form animation.
      
   

%! PS bird.ps
/frameNum 0 def % OF SIX FRAMES FOR ANIMATION
90 rotate
0 612 neg translate
13 48 translate
5 5 scale

gsave 
	[5 1] 6 frameNum sub setdash 
	50 50 50 0 360 arc 4 setlinewidth stroke 
	grestore % COUNTERCLOCKWISE CIRCLE

92 75 moveto % BIRDS CURVES
87 60 43 72 36 52 curveto
31 51 25 47 26 39 curveto
40 48 93 40 92 25 curveto
3 setlinewidth stroke

50 52 .8 -130 220 arc 3.0 setlinewidth stroke % EYE

%/startGray .76 .01 frameNum mul add def
/startRadius 55 2 frameNum mul add def
1 1 0 setrgbcolor

0 1 3 { % ARCS TO THE RIGHT
	/arcNum exch def
	%startGray .06 arcNum mul add setgray
	
	50 50 % CENTER
	startRadius 12 arcNum mul add % RADIUS
	frameNum arcNum 6 mul add 6 mul 50 add 100 exch atan
	dup neg exch arc % ANGLES
	4 setlinewidth stroke % ARC
	} for

showpage