Image en niveau de gris

Version imprimable

Bonjour,
j'ai lu que pour passer une image couleur (24 bits dans mon cas) à un niveau de rgsi, il suffisait de faire la moyenne des 3 composantes;
C'est ce que j'ai fait mais je n'obtiens pas le résultat souhaite, pourquoi ?
Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int NbBytes=1;
        int i,j,k,l;
        TColor coul,pix;
        for (i=0; i<imageData->Height; i++)
        {
 
                for (j=0; j<imageData->Width; j++)
                {
                        pix=imageData->Canvas->Pixels[i][j];
                        coul=((pix&0x000000FF)+(pix&0x0000FF00)+(pix&0x00FF0000))/3;
                        Image1->Canvas->Pixels[i][j]=coul;
                }
        }
}

Au passage, si quelqu'un sait comment binariser l'image...
Merci

Bonjour,

Ta moyenne n'est pas bonne.
Il faut ramener chaque composante couleur à sa valeur entiére, faire la moyenne et affecter cette moyenne à chaque composante.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
        int NbBytes=1;
        int i,j,k,l;
        TColor coul,pix;
 
        int iiRed;
        int iiGreen;
        int iiBlue;
 
        LockWindowUpdate(Handle);
 
        for (i=0; i < imageData->Height; i++)
        {
 
                for (j=0; j < imageData->Width; j++)
                {
                        pix=imageData->Canvas->Pixels[j][i];
 
                        iiRed = (pix&0x000000FF);
                        iiGreen = (pix&0x0000FF00) >> 8;
                        iiBlue = (pix&0x00FF0000) >> 16;
 
                        coul=(iiRed+iiGreen+iiBlue)/3;
 
                        iiRed = coul;
                        iiGreen = coul << 8;
                        iiBlue = coul << 16;
 
                        coul = iiRed+iiGreen+iiBlue;
                        Image1->Canvas->Pixels[j][i]=coul;
                }
        }
        LockWindowUpdate(NULL);

Voila, ici c'est tres "demonstratif" pour que tu comprennes bien, tu peux donc optimiser tout ça.
Pour info, tu as inversé i et J dans la lecture du Pixel (l'image n'est pas complétement traitée à moins d'avoir un carré!).
Ensuite il faudrait utiliser ScanLine pour faire le traitement, c'est infiniment plus rapide.

13/10/2003, 11h18
ubu

Salut,

Je rajouterais que faire une moyenne des trois composante RVB ne donne pas des résultats fantastiques.
D'habitude, on pondére les composantes comme suit:

R => 30%
V => 59%
B => 11%

Le bleu à beaucoup moins d'importance que les autres composantes.

Au final, la composante Gris sera la suivante:

Code:

G= (30*R+59*V+11*B)/100;

Merci pour les infos, j'ai essayé et ca donne un meilleur résultat qu'avant.
Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int NbBytes=1;
        int i,j,k,l;
        TColor coul,pix;
        int iiRed;
        int iiGreen;
        int iiBlue;
 
        LockWindowUpdate(Handle);
        for (i=0; i<imageData->Width; i++)
        {
                for (j=0; j<imageData->Height; j++)
                {
                        pix=imageData->Canvas->Pixels[i][j];
                        //coul=((pix&0x000000FF)+(pix&0x0000FF00)+(pix&0x00FF0000))/3;
                        iiRed = (pix&0x000000FF); 
                        iiGreen = (pix&0x0000FF00) >> 8;
                        iiBlue = (pix&0x00FF0000) >> 16;
 
                        //coul=(iiRed+iiGreen+iiBlue)/3;
                        //G= (30*R+59*V+11*B)/100;
                        coul=(iiRed*30+iiGreen*59+iiBlue*11)/100;
                        iiRed = coul;
                        iiGreen = coul << 8; 
                        iiBlue = coul << 16; 
 
                        coul = iiRed+iiGreen+iiBlue;
                        Image1->Canvas->Pixels[i][j]=coul;
                }
        }
        LockWindowUpdate(NULL);
}

Voici ce que j'obtiens :
http://winalbest.ifrance.com/winalbest/Sans.jpg

Y'a t-il moyen d'obtenir un résultat encore meilleur, comme ceux de Paint shop pro ?
Résultat avec paint shop pro :
http://winalbest.ifrance.com/winalbest/Image1.jpg
Merci