; ------------------------------------------------------------------------------
; The purpose of this program is to extract .gif files from the SUMER
; Nitrogen V movie data cube.
;
; It needs the IDL/XDR restore file N5_MOVIE_XDR.RST in the same directory.
;
; To start the extraction, simply type .RUN N5_MOVIE_GIF 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 ##=86.
; You will then find the .gif files in your directory, named SUM_N5_1##.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, 27.Feb.97
; ------------------------------------------------------------------------------
;
;
print,'******************************************'
print,' restoring data cube takes a little while
print,'******************************************'
set_plot,'x'
restore,'n5_movie_xdr.rst'
complete=congrid(complete,87,3*138,3*106)
tvlct,r,g,b
read,'extract pictures from ## to ## ? ',frpic,topic
for k=frpic,topic do begin
 picnum=strtrim(string(fix(100+k)),2)
 write_gif,'sum_n5_'+picnum+'.gif',reform(complete(k,*,*),414,318),r,g,b
 endfor
end