Changer couleur imageRésolu

Question

Bonsoir et Merci pour le temps consacré et l'aide apporté
Voilà ce que je souhaiterais:
Dans mon programme je charge de petite image 100 pixel par 100 pixel;
Avec le code je récupère la couleurs du pixels:
For i = 0 To monImage.Width - 1                For j = 0 To MonImage.Height - 1                    LaCouleur = monImage.GetPixel(i, j)                Next i            Next j

 A partir de là je souhaiterais changer la couleur de chaque pixel avec une palette que j'ai crée donc je charge ces couleurs dans une liste comme ceci:
Private MaPalette As New List(Of Color) From {Color.FromArgb(236, 237, 237), Color.FromArgb(240, 232, 185), Color.FromArgb(240, 185, 1), Color.FromArgb(230, 79, 39), Color.FromArgb(182, 49, 54), Color.FromArgb(225, 136, 159), Color.FromArgb(105, 74, 130), Color.FromArgb(44, 70, 144), Color.FromArgb(48, 92, 176), Color.FromArgb(37, 104, 71)}     

Donc à partir de là je voudrais que mon programme compare chaque pixel et le remplace avec la couleur la plus proche de ma palette

Voilà ce que j'ai déjà tenté ;mais j'ai une erreur de dépassement de capacité.
Voici le code:

For i = 0 To monImage.Width - 1
                For j = 0 To monImage.Height - 1
                    LaCouleur = monImage.GetPixel(i, j)
                    Dim lememe As Integer = 0
                    Dim oldmeme As Integer = 0
                Dim oldval As Double = 0
                Dim val As Double= Math.Sqrt((LaCouleur.A - MaPalette(0).A) * (LaCouleur.A - MaPalette(0).A) + (LaCouleur.G - MaPalette(0).G) * (LaCouleur.G - MaPalette(0).G) + (LaCouleur.B - MaPalette(0).B) * (LaCouleur.B - MaPalette(0).B) + (LaCouleur.R - MaPalette(0).R) * (LaCouleur.R - MaPalette(0).R))
                For idx As Integer = 0 To MaPalette.Count - 1
                    Dim val2 As Double = Math.Sqrt((LaCouleur.A - MaPalette(idx).A) * (LaCouleur.A - MaPalette(idx).A) + (LaCouleur.G - MaPalette(idx).G) * (LaCouleur.G - MaPalette(idx).G) + (LaCouleur.B - MaPalette(idx).B) * (LaCouleur.B - MaPalette(idx).B) + (LaCouleur.R - MaPalette(idx).R) * (LaCouleur.R - MaPalette(idx).R))
                    If val2 <= val Then
                            oldval = val
                            val = val2
                            oldmeme= meme
                            meme = idx
                        End If
                    Next idx
                    monimage2.SetPixel(i, j, MaPalette(meme))
                Next j
            Next i

Voilà à partir de là je suis bloqué ;et je ne sais pas pourquoi j'ai un dépassement de capacité
 je vous remercie d'avance pour l'aide apporté et les conseils donnés

vb95 · Answer

Bonjour
 
 Private MaPalette As New List(Of Color) From {Color.FromArgb(236, 237, 237), Color.FromArgb(240, 232, 185), Color.FromArgb(240, 185, 1), Color.FromArgb(230, 79, 39), Color.FromArgb(182, 49, 54), Color.FromArgb(225, 136, 159), Color.FromArgb(105, 74, 130), Color.FromArgb(44, 70, 144), Color.FromArgb(48, 92, 176), Color.FromArgb(37, 104, 71)}     

Dans la déclaration de ta palette tu ne précises pas le paramètre A : donc celui est implicitement égal à 255 ( soit le plus opaque) 

Chaque couleur est définie par 4 paramètres : A , R  G et B ( chacun de ces paramètres est sur 8 bits( de 0 à 255 comme plage de valeurs)  
Avant d'aller plus loin peux-tu expliquer la formule avec Math.Sqrt : tu fais l'addition de 4 valeurs et chacune de ces valeurs serait l'élévation au carré d'une composante de la couleur - la même composante de la palette
Math.Sqrt( ( (Acouleur - Apalette) ^2) + ( (Rcouleur - Rpalette) ^2) + ( (Gcouleur - Gpalette) ^2) + ( (Bcouleur - Bpalette) ^2) )

 
La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

cs_roro69 · Answer

Bonjour CGSI3 
Super code ;j'ai mis dans mon application c'est excellent .
Plus qu'a finaliser mon application de perle (un peu plus compliqué que je ne pensais ; difficile de travailler des images )
Merci beaucoup a toi et a vb95 
 Meric pour votre aide et votre temps consacré
--

Changer couleur image

2 réponses

Votre réponse

Discussions similaires