; This IDL program shows the solar atmosphere in five stages
; (C I, H I Ly a, S II, N V, Mg X) as recoreded by SUMER on
; 27.Jan.96 at the solar north pole, compare WWW information at
; http://www.mpae.gwdg.de/mpae_projects/SUMER/text/immg10.html
; http://sohowww.nasa.nascom.gov/descriptions/experiments/sumer/immg10.html
;
; It goes up and down through these stages ten times "like an elevator"
; and then stops to ask if the process should be repeated. Call it by
; IDL> .run pp27jan_movie
; The IDL/XDR restore file "pp27jan_movie_xdr.rst" has to be in the same
; directory.
;
; IED 09.Nov.98

restore,'pp27jan_movie_xdr.rst'
set_plot,'x'
loadct,0
window,xsize=227,ysize=300,retain=2
oncemore:
for i=1,10 do begin 
 for j=0,4 do begin 
  tv,marray(*,*,j)
  wait,0.3
  endfor
 for j=1,3 do begin 
  tv,marray(*,*,4-j)
  wait,0.3
  endfor
 endfor
read,'once more (Y=1) ? ',ok
if ok then goto,oncemore
end