enregistrer une image de picturebox sous forme d'un hexagone

Question

Bonsoir;

j'ai développe une application permettant l'extraction des sourcils sous formes d'un hexagone mais j'ai pas pu réussir y sauvegarder , en faite, je veux sauvegarder la zone de sourcils sous forme d'un rectangle puis mettre les pixels à l'extérieur comme étant transparents.
voilà le code que j'ai développé:

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        box_x = Val(x_4_6.Text) - (Val(ES0.Text) / 4)
        box_y = Val(y_4_4.Text) - ir
        With Me.SaveFileDialog4
            .DefaultExt = "png"
            .FileName = "sourcils.png"
            .ShowDialog()
            If .FileName = "" Then Exit Sub
        End With
        Dim box_width1 As Integer = Math.Abs((Val(x_4_2.Text) + ES / 4) - Val(x_4_6.Text))
        Dim box_height1 As Integer = Math.Abs(Val(y_P1.Text) - Val(y_4_4.Text))
        'creation d'un bitmap pour recevoir la zone
        Dim bmp_cible_sourcils As New Bitmap(box_width1, box_height1)

'on copie les pixels
        Dim x, y As Integer
        For x = 0 To bmp_cible_sourcils.Width - 1
            For y = 0 To bmp_cible_sourcils.Height - 1
                Dim mColor As System.Drawing.Color = bmp2.GetPixel(Me.box_x + x, Me.box_y + y)
                bmp_cible_sourcils.SetPixel(x, y, mColor)
            Next
        Next
        bmp_cible_sourcils.Save(Me.SaveFileDialog4.FileName, Drawing.Imaging.ImageFormat.Png)
    End Sub


j'attends vos aides et merci d'avance

NHenry · Answer

As-tu essayer Color.FromARGB (...) avec la surcharge des 4 paramètres : ARGB, notamment le A(lpha) ?

ucfoutu · Answer

Bonjour,
S'agissant d'un contrôle Picturebox placé au desus d'une autre picturebox, ce que tu veux faire ne peut que se traduire ainsi :
- soit attribuer aux pixels d'une couleur autre que les sourcils la couleur des pixels qu'ils recouvrent de l'autre picturebox  ===>> lenteur alors inévitable
- soit construire une picturebox à périmètre non régulier (celui des sourcils) ===>> demande l'utilisation et la bonne connaissance de fonctions complexes de l'Api de Windows.
D'autres solutions existent, mais alors pas avec deux pictureboxes superposées.
PS : il y a eu au moins deux discussions au cours des 10 derniers jours à propos de problèmes similaires (2 pictureboxes superposées dont celle du dessus laisse "voir" tout ce qui se trouve "en-dessous" hormis le dessin que l'on veut voir "prendre le pas".

ucfoutu · Answer

Je vois, en relisant, qu'il ne s'agit finalement pas de superposition de pictureboxes, mais d'extraction d'une partie non rectangulaire d'une pictureboxA  ===>>> pictureboxB non rectangulaire (c'est celà, ta "transparence").
Alors là : impossible sans l'utilisation de fonctions complexes de l'Api de Windows.
Le problème est bel et bien celui de la "fabrication" d'une picturebox non rectangulaire.
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

ucfoutu · Answer

Tu as probablement raison, NHenry...
J'aimerais toutefois connaître (je suis très curieux) celle de ces fonctions de l'objet BitMap que tu utiliserais dans un tel cas. Et bien sûr : ce qu'elle ferait exactement.
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

CGSI3 · Answer

Bonsoir, c'est peut être hors sujet ... quoi que .. mais je précise juste qu'il existe une bibliothèque qui permet d'extraire certains paramètres d'un visage tout simplement. http://codes-sources.commentcamarche.net/forum/affich-1633759-utiliser-l-outil-opencv-sous-vb-net Ne sachant pas quel est la finalité de ton programme, je te donne ce lien pour info. Bon courage CGSI3 '''

''' Retourne une liste de Rectangle selon le Filtre descripteur '''

''' Image(Of Bgr, Byte) ''' renvoi un List(Of System.Drawing.Rectangle) Public Function ChRec(ByRef Img As Image(Of Gray, Byte), ByRef Filtre As String) As List(Of System.Drawing.Rectangle) Dim DRec As New List(Of System.Drawing.Rectangle) Dim eyeDetector As New CascadeClassifier("C:\Users\confo\Desktop\Downloads\OpenCV\emgucv-windows-universal-gpu 2.4.9.1847\opencv\data\haarcascades\" & Filtre) For Each face As Rectangle In eyeDetector.DetectMultiScale(Img, 1.1, 10, New Size(20, 20), Size.Empty) 'Img.Draw(face, New Bgr(Col), 2) DRec.Add(face) Next Return DRec End Function '''

''' Imprime une liste de Rectangle '''

''' Image(Of Bgr, Byte) ''' Affiche un List(Of System.Drawing.Rectangle) Public Sub DrawRec(ByRef Img As Image(Of Bgr, Byte), ByRef Filtre As List(Of System.Drawing.Rectangle), ByRef Couleur As Color, Optional ByVal Larg As Integer = 1) For Each face As Rectangle In Filtre Img.Draw(face, New Bgr(Couleur), Larg) Next End Sub '''

''' renvoi une liste de Rectangle décrivant le visage '''

''' Image(Of Bgr, Byte) ''' Affiche un List(Of System.Drawing.Rectangle) Public Sub Visage_Rectangle(ByRef Img As Image(Of Bgr, Byte), Optional ByRef DRec As List(Of System.Drawing.Rectangle) = Nothing) 'Convert the image to Grayscale Dim imgGray As Image(Of Gray, Byte) = Img.Convert(Of Gray, Byte)() DRec = ChRec(imgGray, "haarcascade_frontalface_default.xml") DrawRec(Img, DRec, Color.Pink, 5) DRec = ChRec(imgGray, "frontalEyes35x16.xml") DrawRec(Img, DRec, Color.Blue, 4) DRec = ChRec(imgGray, "haarcascade_mcs_mouth.xml") DrawRec(Img, DRec, Color.Red, 3) DRec = ChRec(imgGray, "haarcascade_fullbody.xml") DrawRec(Img, DRec, Color.Beige, 2) DRec = ChRec(imgGray, "rightEye.xml") DrawRec(Img, DRec, Color.Brown) DRec = ChRec(imgGray, "nez.xml") DrawRec(Img, DRec, Color.DarkOrange) End Sub --

ucfoutu · Answer

Bon...
Je vais tenter d'exposer la raison fondamentale de mes réactions depuis le début de la présente discussion ===>>
Ce qui m'interpelle dès le tout premier message est cette proposition :
"en faite, je veux sauvegarder la zone de sourcils sous forme d'un rectangle puis mettre les pixels à l'extérieur comme étant transparents". 
Copier une partie rectangulaire de l'image d'une picturebox est simple et je ne crois donc pas que là soit la difficulté.
Rendre transparents tous les pixels autres que ceux occupés par les sourcils est, par contre, LA difficulté. Et cette difficulté est d'autant plus sérieuse que les pixels à "rendre transparents" ne sont pas tous de la même couleur.
Il est pour moi clair que le rectangle "sauvegardé" :
- ne peut qu'être un fichier image
- que ce fichier, si utilisé comme je le devine, dans une picturebox, devra être traité au moment de l'affichage de la picturebox
- que pour parvenir à n'afficher que les sourcils (s'agissant, répétons-le, d'une  picturebox), le traitement n'aura d'autre choix que celui de la "fabrication" d'une picturebox à contour non rectangulaire (les sourcils seuls, sans même les "parties" séparant les poils !)

Tout cela n'est réalisable qu'à la condition que les pixels de l'image à sauvegarder aient, préalablement à la sauvegarde du rectangle sélectionné, été dotés de la même couleur (unique pour tous) et que cette couleur soit distincte des couleurs utilisées par les sourcils. Cette couleur peut astucieusement être choisie (par exemple RGB(0,1,254 car le bleu, et en particulier très exactement celui-ci, n'aura pratiquement aucune chance d'être présent parmi les pixels des poils des sourcils ..)
Et c'est au moment même du chargement dans la picturebox, que l'on va traiter ainsi :
- 1) on repère la couleur à ignorer (aux coordonnées d'un coin, par exemple (1,1) . Ce procédé permet de ne pas avoir à enregistrer quelque part la couleur à ignorer (ce qui permet un programme utilisable pour plusieurs fichiers image différents)
2) Et nous y voilà maintenant : il va falloir maintenant créer la picturebox non rectangulaire, composée de la seule surface des sourcils).J'ignore (un salut à NHenry) si VB.Net offre une "fonction" capable d'accomplir cette tâche-là. Elle est (çà, je le sais bien) par contre réalisable à l'aide de fonctions de l'Api de Windows. La "chose" n'est toutefois pas simple et nécessite des connaissances assez avancées.
Voilà. Moi, j'ai terminé ma participation à cette discussion.
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Zermelo · Answer

Bonjour mounaTN. 
J'entrevois une solution, pourvu que votre hexagone soit convexe. Est-ce le cas ?
Cordialement.

Zermelo · Answer

Pouvez-vous alors me donner, dans un cas numériquement connu, la liste des points parcourant l'hexagone, chacun d'eux sous la forme cartésienne (x;y) ?

Zermelo · Answer

Je précise ma demande. Pour bien comprendre, je voudrais voir un de vos hexagones, puisque vous savez en faire. Pour cela, il me faudrait les coordonnées, exprimées en pixels, des six points déterminant l'hexagone, ces points étant donnés dans l'ordre d'un parcours du périmètre de l'hexagone.
Si vous ne voulez pas me donner ces informations, veuillez au moins me le faire savoir.

Enregistrer une image de picturebox sous forme d'un hexagone

9 réponses

Votre réponse

Discussions similaires