partie 1 : Compression :
Traitement RLE pour bloc en grayscale
function [codeG]=traitement_rle_gris(G,qualite)
%Générer le code RLE pour un bloc 8x8 (gris)
%DCT
G=double(G)-128;
Gdct=dct2dim (G);
%Quantification
Gquantifie=quantification (Gdct,qualite,0);
%Zigzag
Gzig=zigzag (Gquantifie);
%Encodage rle
Grle=encodage_rle (Gzig);
%Ajouter le 'e' qui marque la fin du code du bloc
for i=1:length(Grle)
GGrle{i}= Grle(i);
end
codeG=[GGrle 'e'];