rle_1_d.m

RLE=Run Lenght Coding for image.

function [CR] = RLE_1_d(filename)
fid=fopen(filename, 'r');
C=fread(fid);
fclose(fid);
m=C(1)*4;
n=C(2)*4;
C=C(3:length(C));
D=[]; %vectorul decomprimat
C=C';
[p,q]=size(C)
i=0;
 while i<q
     i=i+1
     if C(i)==255,
         for j=1:C(i+1)
             D=[D C(i+2)];
         end
     i=i+2;
     else D=[D C(i)];         
     end
 end
 disp('am vectorul decomprimat');
 E=[]; %imaginea refacuta
for i=1:m,
     for j=1:n,
         %E(i,j)=D(i,n*(j-1)+i);
         E(i,j)=D(n*(i-1)+j);
     end
end
 P=[];
for i=1:m
        P=[P E(i,:)];
end

G=izigzag(P,m,n);
figure(2)
colormap(gray);
imagesc(G);title('Decompress image')