Page History

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 =

 2000;

arealim2 = 6000;

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