partie 1 :Compression :

 

Traitement RLE pour une image en grayscale

function coderle=testrle_gris(file,qualite)

%Générer le code RLE à partir d'une image en couleurs (RVB)

%Découpage en blocs 8X8

decoupage (file);

load fichiers_mat/matrices;

%Codage RLE pour chaque bloc de pixels

x=1;

while x<=t/64

     [codeG]=traitement_rle_gris(eval(['G',num2str(x)]),qualite);

     eval(['P' num2str(x) '=codeG;']);

     x=x+1; 

end % end while

save fichiers_mat/mat_y;

%Concaténer les codes pour former un seul code

code_comp=obt_chaine (t/64,'P',1,0);

load fichiers_mat/mat_y;

G=eval(['[' code_comp ']']);

coderle=[G 'g' qualite];

save fichiers_mat/coderle;