pro flicker,rate,im1,im2,im3,im4,im5,im6,im7,im8,im9,im10

  nim=n_params()-1
  dim=size(im1)
  xanimate,set=[dim(1),dim(2),nim]
  for i=0,nim-1 do dim=execute('xanimate,image=im'+strtrim(string(i+1),2) $
			   + ',frame='+strtrim(string(i),2))
  xanimate,rate
;  xanimate,/close

end