pro tv2gif, fn, corner=corner, true=true

    tv = tvrd(true=true)
    if keyword_set(true) then begin
        nxnyn,tv,nc,nx,ny
        if keyword_set(corner) then begin
            v = tv[*,0:14,0:14]
            tv[*,nx-15:nx-1,0:14] = v
        end
        write_gif, fn, tv
    endif else begin
        nxnyn,tv,nx,ny
        if keyword_set(corner) then begin
            v = tv[0,0]
            tv[nx-15:nx-1,0:14] = v
        end
        write_gif, fn, tv
    endelse
end