Görüntü işleme çalışmaları-2

SATIR BULMA: Yazının içerisindeki  Satırları bulma

satirlar=imread('yazi.png');
yaz=rgb2gray(satirlar);
level=graythresh(yaz);
im=im2bw(yaz,level);
im=1-im;
[x,y]=size(im);
%x=satir uzunluğu,y=sutun uzunluğu

 A=sum(im');
% resmin transpozası
 s=1;
satirbitis=0;satrbaslangis=0;
for i=1:length(A)
    if((i+1)<=length(A))
        n=i+1;
        if(A(i)==0&&A(n)~=0)
         satrbaslangis=i; %satiruzunlugu=y;  
        elseif(A(i)~=0&&A(n)==0)
         satirbitis=i-1;
        end
        if(satirbitis>satrbaslangis)
             M=imcrop(satirlar,[0,satrbaslangis,y,satirbitis-satrbaslangis]);
             imwrite(M,num2str(s,'frame_%02d.png')); % resimleri kaydet
             s=s+1; satrbaslangis=0;satirbitis=0;
        end
    end

end

kaydedilen bazı  resimler;

SATIRLARIN KELİMELERİNİ BULMA: Yukarıdaki satır resmini parametre alarak içerisindeki kelimeleri bulma

level=graythresh(yaz);
im=im2bw(yaz,level);
figure(1);imshow(im);

se1 = strel('disk',4);
img = imerode(im,se1);
   
figure(2);imshow(img);
img=1-img;

[x,y]=size(img);
A=sum(img);
s=1;
kbitis=0;kbas=0;
for i=1:length(A)
    if((i+1)<=length(A))
        n=i+1;
        if(A(i)==0&&A(n)~=0)
         kbas=i;  
        elseif(A(i)~=0&&A(n)==0)
         kbitis=i-1;
        end
        if(kbitis>kbas)
             M=imcrop(satir,[kbas,0,kbitis-kbas,x]);
             imwrite(M,num2str(s,'frame_%02d.png'));
             s=s+1; kbitis=0;kbas=0;
        end
    end

end

Çıktı üretilen kelimeler: