; 2007 May 8 - write_tiff is not found - use "obsolete" tiff_write

pro tv2tiff, 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_tiff, fn, reverse(tv,3)
        tiff_write, fn, reverse(tv,3)
    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_tiff, fn, reverse(tv,2)
        tiff_write, fn, reverse(tv,2)
    endelse
end