Page History

{code}
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
 if (regprops(i) .Area > arealim1) && (regprops(i) .Area < arealim2)
  scaledimg = imresize(regprops(i) .Image,[100 60],'bilinear'); % skaalaa kokoon  100x60
  figure;imshow(scaledimg);
 end
end
{code}