%funktio hakee kuvasta sen kappaleen, jossa on eniten sisäänpäin kaartuvia kohtia
function f = HaeTahti()
I = imread('NelioTahtiYmpyra.bmp');
L = bwlabel(I);%numeroi alueet
Maara=max(L()%hae kpl maara kuvasta
Ominaisuus = regionprops(L,'all')
SolidityMin=1%konvekseilla kaarilla ympäröity kappaleen pinta-ala/ todellinen pinta-ala
for i=1:Maara
Sol=Ominaisuus.Solidity
if Sol < SolidityMin SolidityMin = Sol%hae pienin solidity
end
end
idx = find([Ominaisuus.Solidity] == SolidityMin)
I2 = ismember(L,idx);
figure,imshow(I2), title('Pienimman Solidityn perusteella suodatettu kuva');