pro loop_sh

;  routine to display loop of averaged sobel-filtered images

;  coordinates for active part of image
avimg = 1.

restore,'/swing/d/lites/eclipse98/peppi/sh_genseq10.save'
nxx = sizeof(avimg,1) & nyy = sizeof(avimg,2) 
numimgs = sizeof(avimg,3)



;  setup xinteranimate
    xinteranimate,set=[nxx-6,nyy,numimgs],/SHOWLOAD 
 
;  loop over frames
ii=0
for k = 0,numimgs-1 do begin ;{

    gncor = avimg(*,*,k)

    ;  block out region above moon's limb to avoid confusion
    for i = 0,nxx-1 do gncor(i,moonlim(i):nyy-1) = 0

    ; reduce size of image
    movv = gncor(3:nxx-4,*)



    xinteranimate,image=movv,frame=ii 
    ii=ii+1

 
endfor ;}
 
wdelete,0

xinteranimate,3.0,/KEEP_PIXMAPS



end