function Y = glevel(I,n)
%--------------------------------------------------------------------------
% Goruntunun grilik seviyesini degistiren M-Fonksiyonu
% Uniform kuantalama
% Degisken tanimlanmasi :
% I   -- Grilik seviyesini degistirmek istedigimiz goruntu. Gorunutuyu
% unsigned 8-bit interger(uint8) sinifi kabul ediyoruz.
% n   -- Goruntunun istenilen grilik seviyesi. 2,4,8,16...128,256 gibi 2'nin
% tam kuvvetleri olmalı.
%
% Yazan: Seyhan Ağaoğlu
%
%--------------------------------------------------------------------------
error(nargchk(2,3,nargin)) % giris parametrelerinin sayisi kontrol ediliyor.
i=int16(log2(n));
chk=double(i);
if ~(n==2^chk)| n==0 | n==1 % n degeri kontrol ediliyor.
      error('Yanlis bir deger girdiniz. Lutfen 2 ile 256 arasında 2 nin tam kuvvetleri olan değerler giriniz');
     else
       
        % Lineer gray-scale renk haritasi oluturuluyor.
        lartis=255/(n-1);
        cmap=zeros(n,1);
        for i=2:n
            cmap(i)=cmap(i-1)+lartis;
        end
        cmap=round(cmap);
       
        of = (n-1)/255;  % grilik seviyesi olceklendirme faktoru  [0,255]
     
        % goruntu uzerinde lineer kombinasyonlu aritmetik islem yapiliyor.
        % olceklendiriliyor
           
                 X=double(I);
                 Y=of.*X;
                 Y=uint8(Y);
           
        % olceklendirilmis goruntu yeniden intensity goruntuye donusturuluyor.
       
        for i=1:size(Y,1)
            for j=1:size(Y,2)
                Y(i,j)=cmap(Y(i,j)+1);
            end
        end
end
 
% End of function glevel