; ------------------------------------------------------------------------------
; The purpose of this program is to start an animation showing a prominence
; in Nitrogen V.
;
; It needs the IDL/XDR restore file N5_MOVIE_XDR.RST in the same directory.
;
; To start the animation, simply type .RUN N5_MOVIE 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, 29.Jan.97
; ------------------------------------------------------------------------------
;
;
print,'******************************************'
print,' preparing "Movie" takes approx. 1 - 2 min
print,'******************************************'
restore,'n5_movie_xdr.rst'
complete=congrid(complete,87,3*138,3*106)
tvlct,r,g,b
xinteranimate,set=[3*138,3*106,87]
for i=0,86 do xinteranimate,frame=i,image=reform(complete(i,*,*),3*138,3*106)
xinteranimate
end