SIHR.m

function SIHR
%SIHR Session path setup
%  SIHR is a repository for the development and implementation of single
%  image highlight removal methods.
%
%  These methods are not the official implementations!!! This project has
%  the objective of reproducing these methods for facilitating research in
%  this specific subject. If you authored a method and would like to officially
%  make it available here instead of my implementation, please contact me,
%  I am happy to do so.
%
%  Project page:
%    https://github.com/vitorsr/SIHR
%
%  Usage:
%    SIHR % run it for a one-time session path setup
%
%  API:
%    J = im2double(imread('toys.ppm')); % input image
%    J_d = Yang2010(J); % call AuthorYEAR method
%                       % e.g. Yang2010
%    imshow([J, J_d, J - J_d]) % display result
%
%  See below for available methods.
%
%  See also Tan2005 [1], Yoon2006 [2], Shen2008 [3], Shen2009 [4],
%  Yang2010 [5], Shen2013 [6], Akashi2016 [7], Yamamoto2019 [8].
%
%[1] R. T. Tan and K. Ikeuchi, "Separating reflection components of textured surfaces using a single image," IEEE Transactions on Pattern Analysis and Machine Intelligence, vol. 27, no. 2, pp. 178-193, Feb. 2005.
%[2] K. Yoon, Y. Choi, and I. S. Kweon, "Fast Separation of Reflection Components using a Specularity-Invariant Image Representation," in 2006 International Conference on Image Processing, 2006.
%[3] H.-L. Shen, H.-G. Zhang, S.-J. Shao, and J. H. Xin, "Chromaticity-based separation of reflection components in a single image," Pattern Recognition, vol. 41, no. 8, pp. 2461-2469, Aug. 2008.
%[4] H.-L. Shen and Q.-Y. Cai, "Simple and efficient method for specularity removal in an image," Applied Optics, vol. 48, no. 14, p. 2711, May 2009.
%[5] Q. Yang, S. Wang, and N. Ahuja, "Real-Time Specular Highlight Removal Using Bilateral Filtering," in Computer Vision - ECCV 2010, Springer Berlin Heidelberg, 2010, pp. 87-100.
%[6] H.-L. Shen and Z.-H. Zheng, "Real-time highlight removal using intensity ratio," Applied Optics, vol. 52, no. 19, p. 4483, Jun. 2013.
%[7] Y. Akashi and T. Okatani, "Separation of reflection components by sparse non-negative matrix factorization," Computer Vision and Image Understanding, vol. 146, pp. 77-85, May 2016.
%[8] T. Yamamoto and A. Nakazawa, "General Improvement Method of Specular Component Separation Using High-Emphasis Filter and Similarity Function," ITE Transactions on Media Technology and Applications, vol. 7, no. 2, pp. 92-102, 2019.

my_foldername = fileparts(which('SIHR.m')); % this file
my_path = strsplit(genpath(my_foldername), pathsep);
N = numel(my_foldername) + numel([filesep, '.git']); % delete .\.git\*

for i = 1:length(my_path)
    if strncmp(my_path{i}, [my_foldername, filesep, '.git'], N)
        my_path{i} = [];
    end
end

my_path = my_path(~cellfun('isempty', my_path));
my_path = strjoin(my_path, pathsep);

addpath(my_path, '-end')

if (is_octave) % adds octave image path
    my_val = IMAGE_PATH;
    IMAGE_PATH([my_val, pathsep, my_foldername, filesep, 'images'])
end

if (is_octave)
    assert(isempty(pkg('list', 'image')) == 0) % && ...
    % isempty(pkg('list', 'statistics')) == 0)
    pkg unload image % statistics
    pkg load image % statistics
else
    assert(isequal(license('test', 'image_toolbox'), 1)) % && ...
    % isequal(license('test', 'statistics_toolbox'), 1))
end

end

function r = is_octave() % https://wiki.octave.org/Compatibility
persistent x;
if (isempty(x))
    x = exist('OCTAVE_VERSION', 'builtin');
end
r = x;
end