; ------------------------------------------------------------------------------
; The purpose of this program is to extract .gif files from the SUMER
; Nitrogen V movie (full time resolution) data cube.
;
; It needs the IDL/XDR restore file N5_MOVIE_XDR_F.RST in the same directory.
;
; To start the extraction, simply type .RUN N5_MOVIE_GIF_F within IDL.
;
; After a while, you are asked for the lower and upper picture number that
; you want to extract. Your choice is between ###=0 and ###=174.
; You will then find the .gif files in your directory, named between 
; SUM_N5_200.GIF and SUM_N5_374.GIF
;
; 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, 06.Mar.97
; ------------------------------------------------------------------------------
;
;
print,'******************************************'
print,' restoring data cube takes a little while
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
read,'extract pictures from ### to ### ? ',frpic,topic
for k=frpic,topic do begin
 picnum=strtrim(string(fix(200+k)),2)
 write_gif,'sum_n5_'+picnum+'.gif',reform(complete(k,*,*),272,216),r,g,b
 endfor
end