beta

scanOptimatlab.m

tic
clear List
curPATH = pwd;
bSlshPoint = strfind(curPATH, '\');
wienSize = [3 3];
List = dir('*.jpg');
resPATH = ['..\' curPATH(bSlshPoint(end)+1:end) '_re2'];
mkdir(resPATH)

cont = [0.15 0.9];
scale = 4/5;
parfor i = 1:length(List)
    disp([num2str(length(dir(resPATH))) '\' num2str(length(List))])
    hoge = double(imread(List(i).name));
    
    if(size(hoge, 3)==1)==1
        hoge = squeeze(hoge);
        hoge = hoge./max(hoge(:));        
        %hoge = adapthisteq(hoge);
        %hoge = wiener2(hoge, wienSize);
        hoge = (imadjust(hoge, cont, []));        
        hoge = imsharpen(hoge);                    
    else
        
            
        hogeR = hoge(:,:,1);
        hogeG = hoge(:,:,2);
        hogeB = hoge(:,:,3);
        
        [RGdif] = vartest2(hogeR(:), hogeG(:), 'Alpha', 0.01);
        [GBdif] = vartest2(hogeG(:), hogeB(:), 'Alpha', 0.01);
        [RBdif] = vartest2(hogeB(:), hogeR(:), 'Alpha', 0.01);
        
        if RGdif+GBdif+RBdif >= 2
					disp('color')
					for c = 1:3
						hoge(:,:,c) = hoge(:,:,c)./max(max(hoge(:,:,c)));
						hoge(:,:,c) = (wiener2(hoge(:,:,c), wienSize));
					end
				else
					disp('Convert to GrayScale')
					hoge = mean(hoge,3);
					hoge = squeeze(hoge);
					hoge = hoge./max(hoge(:));
            
            %hoge = adapthisteq(hoge);
            hoge = wiener2(hoge, wienSize);
            hoge = (imadjust(hoge,cont, []));  
            
        end
        %hoge = imsharpen(hoge);
    end

    % hoge = logical(hoge);
		% imwrite(hoge, [resPATH '/re_' List(i).name(1:end-3) 'png']);   
    hoge = imresize(hoge, scale);
    imwrite(hoge, [resPATH '/re_' num2str(i, '%03d') '.jpg']); 
end
toc