; ------------------------------------------------------------------------------
; The purpose of this program is to start an animation showing a prominence
; in Nitrogen V in full time resolution
;
; It needs the IDL/XDR restore file N5_MOVIE_XDR_F.RST in the same directory.
;
; To start the animation, simply type .RUN N5_MOVIE_F within IDL.
;
; After a while, the IDL feature XINTERANIMATE will appear on the screen.
;
; For further comments, please refer to the SUMER WWW pages at MPAe or GSFC,
; Picture Section, "N V Movie of 09.Mar.96".
;
; ------------------------------------------------------------------------------
; I.E.Dammasch, 05.Mar.97
; ------------------------------------------------------------------------------
;
;
print,'******************************************'
print,' preparing "Movie" takes approx. 1 - 2 min
print,'******************************************'
set_plot,'x'
restore,'n5_movie_xdr_f.rst'
array=congrid(array,175,276,108)
complete=bytarr(175,280,108)
for k=0,174 do for j=0,275 do complete(k,4-limbcorr(k)+j,*)=array(k,j,*)
complete=complete(*,4:275,*)
complete=congrid(complete,175,272,216)
tvlct,r,g,b
xinteranimate,set=[272,216,175]
for i=0,174 do xinteranimate,frame=i,image=reform(complete(i,*,*),272,216)
xinteranimate
end