Bonjour !

Je cherche à travailler sur une image, pour remplacer l'une de ses couleurs par une autre. J'avais commencé en utilisant des GetPixel/SetPixel, Mais le processus s'est révélé trop long sur d'importants volumes d'images.
C'est pourquoi je souhaite utiliser une matrice.

Je sais définir une matrice pour agir sur toutes les couleurs et les transformer. Mais je ne sais pas comment m'y prendre pour ne remplacer qu'une couleur : Aini, si mon image consiste en un rond vert[0, 255, 0] sur fond rouge[255, 0, 0] , je veux simplement colorer le rond vert, et non transformer le fond rouge.

Je suis confronté à un autre problème : je souhaite pouvoir utiliser des valeurs de tolérance : par exemple, si mon cercle est dégradé de [0, 245, 0] à [0, 255, 0], je souhaite que l'ensemble du cercle soit modifié...

Finalement, serait-il possible de remplacer la couleur en question non par une autre couleur mais par une image ?

Merci, CFP

Salut,

Je pense que tu trouvera ton bohneur dans les sources de cinglés de jmfmarques

__________
 Kenji

Voici un autre exemple en .Net :

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim bmp As New Bitmap(Width, Height, Imaging.PixelFormat.Format32bppArgb)
        Dim bmpData As Imaging.BitmapData
        Dim pix(Width * Height * 4) As Byte
        Me.DrawToBitmap(bmp, New Rectangle(0, 0, Width, Height))
        bmpData = bmp.LockBits(New Rectangle(0, 0, Width, Height), Imaging.ImageLockMode.ReadWrite, bmp.PixelFormat)
        Runtime.InteropServices.Marshal.Copy(bmpData.Scan0, pix, 0, 4 * bmpData.Width * bmpData.Height)

        'Opérations sur les pixels...
        'Par exemple les colorier tous en (128, 45, 21)  :
        For i As Integer = 1 To pix.Length - 1 Step 4
            pix(i) = 128
        Next
        For i As Integer = 2 To pix.Length - 1 Step 4
            pix(i) = 45
        Next
        For i As Integer = 3 To pix.Length - 1 Step 4
            pix(i) = 21
        Next
        'Fin de l'exemple :)

        Runtime.InteropServices.Marshal.Copy(pix, 0, bmpData.Scan0, 4 * bmpData.Width * bmpData.Height)
        bmp.UnlockBits(bmpData)
        e.Graphics.DrawImage(bmp, 0, 0)
    End Sub

Simplement pour montrer comment travailler rapidement sur les pixels, tu remarqueras que mon exemple est relativement lent, mais c'est uniquement parce qu'à chaque rafraichissement du form, il crée bmp qu'il redessine à chaque fois après modification à chaque fois.
Si tu travaille sur une image à toi, tu n'auras aucun problème de vitesse. La seule critique qu'on puisse faire à mon gout est qu'il faut copier le bloc de pixel vers un tampon pour y travailler puis remettre le tampon en place à la place de travailler directement sur le bloc mémoire concerné, mais il me semble qu'en vb, on ne puisse éviter ce problème...

---

Julien.

Julien327 : Mon problème est le suivant : J'utilise déjà la méthode que tu proposes, mais je n'ariive pas à dépasser les 7000-8000 px/s : pour traiter une image en 1024*768, ca fait déjà 1mn 40... Ce qui est pour moi beaucoup trop...
Aurais-tu une solution pour accélérer encore le processus ?
Merci beacoup,
 CFP.

Tu n'arrive pas à dépasser les 7000 - 8000 pixels par secondes ? Soit tu as un TRES vieux pc, soit ton code est mauvais et ce n'est pas ca qui prend du temps !
Tiens regarde ce code :

Dim b(40000000) AsByte, s AsNew Stopwatch

Dim buf As IntPtr = Runtime.InteropServices.Marshal.AllocCoTaskMem(b.Length)

s.Start()

Runtime.InteropServices.Marshal.Copy(buf, b, 0, b.Length)

For i AsInteger = 0 To b.Length - 1

b(i) = 1

Next

Runtime.InteropServices.Marshal.Copy(b, 0, buf, b.Length)

s.Stop()

MsgBox(s.ElapsedMilliseconds)

Il prend environ 500 millisecondes sur mon pc, il défini selon ma méthode 10 000 000 de pixels, ce qui fait environ 20 000 000 pixels défini par secondes. (200 ms sans les copies de mémoire...)
Le problème n'est pas dans la méthode, donne moi ton code, il y a sûrement autre part ou tu perds du temps.

---

Julien.