ftbass
|
Publié le 11/07/2004 à 02:48 |
Elargir le spectre d'une image .pgm
code:
function GetIntensiteMax(Matrice : in TypeMatrice) return integer is
Resultat : integer := 0;
i, j : integer := 0;
begin
while (i <= Matrice'Last(1)) and (j <= Matrice'Last(2)) and (Resultat /= 255) loop
if character'pos(Matrice(i, j)) > Resultat then
Resultat := character'pos(Matrice(i, j));
end if;
if j = 255 and i < 255 then
j := 0;
i := i + 1;
else
j := j + 1;
end if;
end loop;
return Resultat;
end GetIntensiteMax;
-- Fonction qui retourne l'intensité min des pixels d'une image
function GetIntensiteMin(Matrice : in TypeMatrice) return integer is
Resultat : integer := 255;
i, j : integer := 0;
begin
while (i <= Matrice'Last(1)) and (j <= Matrice'Last(2)) and (Resultat /= 0) loop
if character'pos(Matrice(i, j)) < Resultat then
Resultat := character'pos(Matrice(i, j));
end if;
if j = 255 and i < 255 then
j := 0;
i := i + 1;
else
j := j + 1;
end if;
end loop;
return Resultat;
end GetIntensiteMin;
-- Fonction qui étend le spectre à 0..255
function ElargirSpectre(MatriceI : in typeMatrice) return TypeMatrice is
Resultat : TypeMatrice(MatriceI'range(1), MatriceI'range(2));
Max, Min : Integer;
Coeff : Float;
begin
-- Détermination du max de l'image originale
Max := GetIntensiteMax(MatriceI);
-- Détermination de son min
Min := GetIntensiteMin(MatriceI);
-- Détemination du Coeff
Coeff := 255.0 / (Float(Max) - Float(Min));
for i in MatriceI'range(1) loop
for j in MatriceI'range(2) loop
Resultat(i, j) := character'val(Integer((Float(character'pos(MatriceI(i, j))) - Float(Min)) * Coeff));
end loop;
end loop;
return Resultat;
end ElargirSpectre;
|
|
|
