; GMOVIE
; GMOVIE makes uses gifmerge to make GIF movies of JOP 001 image sequences.
; Clearly,this could be generalized to other cases.
; D.M. fecit, 1996 August 25.
;
pro gmovie, date_string
;
wave = ['171', '195', '284', '304']
;
date = date_string
;
ich = strpos(date, '/')
while ich ge 1 do begin
   nch = strlen(date)
   date = strmid(date, 0, ich) + strmid(date, ich + 1, nch - ich - 1)
   ich = strpos(date, '/')
end
;
cd, '/service/htdocs/eit/images/gmovie
;
for i_wave = 0, 3 do begin
;
   sh_line = 'gifmerge -l4 ' + wave(i_wave) + '.* > ../eit_jop001_' + $
      date + '_' + wave(i_wave) + '.gif'
   print, sh_line & spawn, sh_line
;
end
;
spawn, 'rm /service/htdocs/eit/images/gmovie/*.*'
;
return & end