;------------------------------------------------------------------------------
; name of IDL program: O4MOVIE1.PRO
;
; The purpose of this program is to start an endless animation showing rasters
; of the solar center in Oxygen IV taken by SUMER 19./20.Feb.96.
; It needs the IDL/XDR restore file O4MOVIE1_XDR.RST in the same directory.
; To start the animation enter   .run o4movie1   within IDL.
; The IDL feature XINTERANIMATE will appear on the screen.
; For further information, please refer to the SUMER WWW pages
; http://www.mpae.gwdg.de/mpae_projects/SUMER/text/longrast.html (at MPAe) or
; http://sohowww.nascom.nasa.gov/descriptions/experiments/sumer/longrast.html
; (at GSFC).
;
; IED 13.Nov.98
;
;------------------------------------------------------------------------------
set_plot,'x'
restore,'o4movie1_xdr.rst'
oncemore:
print,'continuum intensity (1)'
print,'line intensity      (2)'
print,'line shift          (3)'
print,'line width          (4)'
print,'exit                (0)'
read,'choice ? ',choice
if (choice eq 1) then begin
 marray=ba_array
 r=rba
 g=gba
 b=bba
 endif
if (choice eq 2) then begin
 marray=li_array
 r=rli
 g=gli
 b=bli
 endif
if (choice eq 3) then begin
 marray=my_array
 r=rmy
 g=gmy
 b=bmy
 endif
if (choice eq 4) then begin
 marray=si_array
 r=rsi
 g=gsi
 b=bsi
 endif
if ((choice gt 4) or (choice lt 1)) then goto,exit
tvlct,r,g,b
xinteranimate,set=[360,139,11]
for k=0,10 do xinteranimate,frame=k,image=reform(marray(k,*,*),360,139)
xinteranimate
goto,oncemore
exit:
end