; ------------------------------------------------------------------------------
; The purpose of this program is to start an animation showing the evolution
; of a bright point observed by SUMER 30.Aug.96
;
; It needs the IDL/XDR restore file BP_MOVIE_XDR.RST in the same directory.
;
; To start the animation, simply type .RUN BP30AUG96 within IDL.
;
; After a while, the IDL feature XINTERANIMATE will appear on the screen.
;
; For further comments, please refer to the (hidden) WWW page
; http://sohowww.nascom.nasa.gov/descriptions/experiments/sumer/bp30aug96.html
;
; ------------------------------------------------------------------------------
; I.E.Dammasch, 13.May.97
; ------------------------------------------------------------------------------
;
;
print,'**************************************'
print,' preparing "Movie" takes approx. 1 min
print,'**************************************'
set_plot,'x'
restore,'bp_movie_xdr.rst'
array=congrid(complete4,108,120,214)
tvlct,r,g,b
xinteranimate,set=[120,214,108]
for i=0,107 do xinteranimate,frame=i,image=reform(array(i,*,*),120,214)
xinteranimate
end