Seuillage d'une image

Signaler
Messages postés
6
Date d'inscription
mercredi 11 février 2004
Statut
Membre
Dernière intervention
19 mars 2004
-
 Nathalg -
bonjour,

je voudrais seuiller une image a niveau de gris. Y a t il une fonction qui renvoie le niveau de la couleur d'un pixel ?
quelles sont les instructions qui permettent de passer d'un pixel a un autre ,

Merci :)

1 réponse

Bonjour,

var PPixel : Pointer;
X : LongInt;
pHisto : ^THistoGram;
begin
PPixel := nil;
pHisto := nil;
X :=0;
if pHisto^[x] > 130 then
begin
PByte(PPixel)^ := 0;
LabelResultat.caption := 'Supérieur au seuil'
end

else
PBYte(PPixel)^ := 255;
LabelResultat.caption := 'Inférieur au seuil';

Si ça peut t'aider.


Avec seuil=130.

Bon courage ^^