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

RESİM ÜZERİNE ŞİFRE SAKLA: resim üzerindeki istenilen x ve y kordinatından baslamak şartıyla merhaba kelimesini resim bitlerinin içine şifreleme

function sresim=sifresaklaa(resim,x,y)
     %ascıı m:109 e:101 r:114 h:104 a:97 b:98 a:97
     harfbitleri=[];
     asci=[109,101,114,104,97,98,97];
     n=1;
     for i=1:length(asci)
         bitsel = dec2base(asci(i), 2);
            for j=1:8-length(bitsel)
               bitsel= strcat('0', bitsel);
            end
         for m=1:length(bitsel)
             harfbitleri(n)=bitsel(m);
             n=n+1;          
         end
     end
   
   
    [~, C] = size(resim);
for k=1:length(harfbitleri)
    if(y==C)
        x=x+1;
        y=1;
    end
     resbit = dec2base(resim(x,y), 2);
     for i=1:8-length(bitsel)
         strcat('0', bitsel);
     end
     resbit(8)=harfbitleri(k);
     resim(x,y) = base2dec(resbit,2);
     y=y+1;
end

sresim=resim;
end
% mantık herbır harf bıtını 8 bite donustur ve toplam 7*8 56 tane 0 ve 1 lerden olusan liste olustur. daha sonra resimde istenilen x ve ye den baslama için harf bıtleri kadar dongu içinde eger satır sonu ıse satırı bır artır ve sutunu sıfırla, her bır bit bır piksele yaerleşcek , her yerleşme işleminden sonra sutun sayısını bir artır. (aynı satırda bırer bırer ilerle)


PARA BULMA: Resimde para ve prinçlerden olusan nesneler var . bu resimde sadece  paraları gösterme(prinçlerin resimden silinmesi)

function para()
resim=imread('para.png');
level=graythresh(resim);
bw = im2bw(resim,level);
temiz = imfill(bw, 'holes');
[L,n]=BWLabel(temiz);
R=Regionprops(L,'Eccentricity');
a=R.Eccentricity;
[x,y]=find(a>=0.5);

for i=1:length(y)
    bul=L==y(i);
    L(bul)=0;
end

figure(1);imshow(resim);
figure(2);imshow(bwlab);

end