You are viewing an old version of this page. View the current version.

Compare with Current View Page History

Version 1 Next »

clear all; close all; clc;

threshold = 50;

%% Ladataan kuva
origimg = imread('regmodel.bmp');
figure; imshow(origimg);

%% Kynnystetään kuva ja binarisoidaan kuva
binimg = (origimg > threshold);
figure; imshow(binimg);

%% Täyteään reiät
binimg = imfill(binimg,'holes');

%% mustat valkoisena
KaanteinenKuva = origimg < threshold;
figure;imshow(KaanteinenKuva);
%% Tunnista rekisterin tummat alueet
binimg2 = binimg.*KaanteinenKuva;%(origimg < threshold);
figure; imshow(binimg2);

%% numeroi alueet
[labimg,n] = bwlabel(binimg2);

%% Laske ominaisuuksia
regprops = regionprops(labimg,'Area','Image');

%% Alueiden rajat
arealim1 = 0;
arealim2 = 6000;

%% tutki, skaalaa ja näytä
for i=1:n    
    if (regprops.Area > arealim1) && (regprops.Area < arealim2)
        scaledimg = imresize(regprops.Image,[100 60],'bilinear'); % scale to size 100x60              
        figure;imshow(scaledimg);
    end
end

  • No labels
You must log in to comment.