ALGORITHMES DE COMPRESSION D'IMAGES ET CODES DE ...

77
1* [intervalle] désigne [taillemarche-1 , taillemarche+1l */
Pour chaque contour
1* initialisations */
lire(lien)
marche:=lien;
comptmarche:=1;
ESCALIER:= FAUX;
tel-00839591, version 1 - 28 Jun 2013
tant qu'il existe un lien faire
lire(lien)
si (ESCALIER) alors
si (lien=marche) alors
comptmarche := comptmarche+1;
si (comptmarche > taillemarche+1) alors
terminer_escalier;
ESCALIER := FAUX;
comptmarche :=1;
fin si
sinon
si (lien=contremarche) alors
si (comptmarche >O) alors
si (comptmarche € [intervalle]) alors
coder_marche(comptmarche);
comptmarche:= 0;
sinon /* la dernière marche vue est trop courte *1
terminer_escalier;
coder_contremarche;
taillemarche:=comptmarche;
démarrer_escalier (marche,lien); /*meme type*/
comptmarche:=O;
fin si
sinon /* on a deux liens contremarche consécutifs *1
terminer_escalier;
marche:=lien;
comptmarche:=2;
ESCALIER:=FAUX;
fin si
sinon 1* le lien n'est pas une marche, ni une contremarche *1
si (comptmarche >0) alors
si (comptmarche€[intervalle]) alors
coder_marche(comptmarche);
terminer_escalier;
marche:=lien;
comptmarche:=1;
ESCALIER:=FAUX;
sinon
terminer_escalier;
coder_contremarche;
taillemarche:=comptmarche;
démarrer_escalier(marche,lien);
comptmarche:=O;
fin si
sinon