;
;
; Procedure to call RTMVIPLAY to play MDI real-time movie
;	SEG - 22-Jan-02:  Changed /md71/gif/mag and /md71/gif/igram to
;			  /md70/gif/mag and /md70/gif/igram
;
;
;
;
pro rt_mdi, type, length=length, skip=skip

; type: 'mdi_maglc_fd'
;       'mdi_igram_fd'
;
; Example:  IDL> rt_mdi, 'mag'
; Example:  IDL> rt_mdi, 'igram'

   if (type eq 'mag') then begin
       dset = 'smdi_maglc_fd'
       gif_dir = '/md70/gif/mag/'
       loadct,0
   end else if (type eq 'igram') then begin
       dset = 'smdi_igram_fd'
       gif_dir = '/md70/gif/igram/'
       loadct,3
   end else begin
       print,'Select either mag or igram'
       return
   end

;if (n_elements(length) eq 0) then length = 12
if (n_elements(length) eq 0) then length = 40 

print, 'type: ', dset, '  directory: ', gif_dir, '  length: ', length

rtmviplay_mdi, dset, gif_dir=gif_dir, length=length, skip=skip

end