Page History

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 = 2000;
arealim2 = 6000;

%% tutki, skaalaa ja näytä
for i=1:n&nbsp;&nbsp; &nbsp;
&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