PRO MVI2GIF, mvi_filename, TIMEANDCAM=timeandcam, PNG=png
;      TVLCT, r, g, b, /GET
        rgb=1
    BREAK_FILE, mvi_filename, a, dir, name, ext
    ftitle = name+ext
    filename = mvi_filename
    filepath = dir
    OPENR,lu,filename,/GET_LUN
    READ_MVI, lu, file_hdr, ihdrs, imgs, swapflag, RGBVEC=rgb
    r=reform(rgb[*,0])
    g=reform(rgb[*,1])
    b=reform(rgb[*,2])
    TVLCT,r,g,b
    WINDOW, 0, XSIZE = file_hdr.nx, YSIZE = file_hdr.ny
    FOR i=0,file_hdr.nf-1 DO BEGIN
        image = imgs(i)
        TV, image
        ;** SAVE TO GIF FILE
        IF KEYWORD_SET(TIMEANDCAM) THEN BEGIN
                    ahdr = sccMVIHDR2STRUCT(ihdrs(i),file_hdr.ver)

            ;   IF (i EQ start) THEN hdrs=ahdr ELSE hdrs=[hdrs,ahdr]
            ;   IF KEYWORD_SET(TIMES) THEN $
            ;       XYOUTS, 10, 10, hdrs(i).date_obs + ' ' + $
            ;       STRMID(hdrs(i).time_obs,0,5), CHARSIZE=1.5,/DEVICE
            ;
            ;   FILENAME        STRING    '31080542.fts'
            ;   DETECTOR        STRING    'C3'
            ;   TIME_OBS        STRING    '00:18:05.684'
            ;   DATE_OBS        STRING    '2002/02/04'
            ;   FILTER          STRING    'Clear'
            ;   POLAR           STRING    'Clear'
            ;   SECTOR          STRING    ''
            ;   EXPTIME         FLOAT           0.00000

            dateyear = STRMID ( ahdr.date_obs, 0, 4 )
            datemonth = STRMID ( ahdr.date_obs, 5, 2 )
            dateday = STRMID ( ahdr.date_obs, 8, 2 )
            timehour = STRMID ( ahdr.time_obs, 0, 2 )
            timeminute = STRMID ( ahdr.time_obs, 3, 2 )
            camera = ahdr.detector

            gif_name = dateyear + datemonth + dateday + "_" + timehour + timeminute + "_" + camera      ; + ".gif"
        ENDIF ELSE $
            gif_name = name + STRTRIM(100+i,2)      ;+'.gif'

        PRINT, '%%MVI2GIF reading frame ', STRING(i+1,FORMAT='(I4)'), ' of ',STRING(file_hdr.nf,FORMAT='(I4)'), $
            ' from movie file ', filename, ' saving to file: ', gif_name
        IF KEYWORD_SET (PNG) THEN $
            WRITE_PNG, gif_name + '.png', image, r, g, b $
        ELSE $
            WRITE_GIF, gif_name + '.gif', image, r, g, b
    ENDFOR

    CLOSE,lu
    FREE_LUN,lu
END