Mesure surface sélectionnée d'image

[invite90eae6b1]

Bonjour,

Je souhaite connaître l'aire d'une surface sélectionnée sur une image .jpg.
La difficulté réside dans le fait que la surface à sélectionner a un contour non régulier.
Connaîtriez-vous des logiciels capables de me donner cette info ?
J'ai essayé avec Gimp et l'outil lasso mais impossible de connaître l'aire de la surface en sélection.

Merci
-----

[invite770d9cfe]

Voici comment je procèderais sous Photoshop. Je commencerais par chercher une couleur n'existant pas ou très peu dans l'image. Le rouge pur par exemple. On commence par mettre en couleur de premier plan le rouge (FF0000 en Hexadécimal). On pousse la loupe à fond et on sélectionne un seul pixel qu'on remplit de rouge. Ensuite on passe par Sélection...Plage de couleurs et on met la pipette sur le pixel rouge. Ce qui va sélectionner tous les points rouges de l'image.
On change la couleur de premier plan par une couleur très proche (par exemple FF0001) et on remplit tous les pixels sélectionnés avec cette couleur, de façon à n'avoir aucun pixel rouge. On fait ensuite la sélection que l'on veut à l'aide du lasso et on la copie sur une image de même dimension, remplie de rouge. On aplatit les calques, il ne reste plus que la sélection sur fond rouge.

La fin est simple. Avec n'importe quel langage de programmation (C, C+, Delphi, VB, etc.) on va scanner l'image pixel par pixel et compter les pixels rouges. Les autres pixels appartiendront à la sélection, ce qui te donnera le nombre de pixels de ta sélection, donc sa surface.
Désolé d'avoir été aussi long, mais c'est comme ça que je procèderais s'il me fallait un résultat impératif.

[invite770d9cfe]

Voici le programme sous VB 6.0 ou VB.net (ni VBA, ni VBE)

Private Sub Command1_Click()
  Dim X As Long
  Dim Y As Long
  Dim Compteur, Couleur As Long
  Dim SurfaceTotale, SurfaceRésiduelle As Long
  Dim CoulFond As Long
    
  Picture1.ScaleMode = 3
  X = Picture1.ScaleWidth
  Y = Picture1.ScaleHeight
  SurfaceTotale = X * Y
  
  'JPEG étant destructeur on teste
  'la couleur du fond qui n'est, de plus,
  'pas forcément rouge
  CoulFond = Picture1.Point(1, 1)
  For I = 1 To X
    For J = 1 To Y
      Couleur = Picture1.Point(I, J)
      If Couleur = CoulFond Then
        Compteur = Compteur + 1
      End If
    Next J
  Next I
  SurfaceRésiduelle = SurfaceTotale - Compteur
  MsgBox SurfaceTotale
  MsgBox SurfaceRésiduelle
End Sub

On peut, bien sûr améliorer la routine en demandant à l'utilisateur de sélectionner la couleur du fond à l'aide de la souris, car le point (1,1) n'est pas forcément de la couleur du fond.

Si tu as un ami qui travaille sous VB 6.0 ou VB.net, je peux t'envoyer le source amélioré. Je ne te propose pas de te faire un exécutable à installer, car nous ne nous connaissons pas et je pourrais faire n'importe quoi sur ton ordi.

[zoup1]

Bonjour,

Je souhaite connaître l'aire d'une surface sélectionnée sur une image .jpg.
La difficulté réside dans le fait que la surface à sélectionner a un contour non régulier.
Connaîtriez-vous des logiciels capables de me donner cette info ?
J'ai essayé avec Gimp et l'outil lasso mais impossible de connaître l'aire de la surface en sélection.

Merci

Un logiciel d'analyse d'image fait cela.
Un très bon, libre, gratuit, multiplateforme, évolutif, puissant modulable c'est ImageJ ( http://rsb.info.nig.gov/ij )

[A voir en vidéo sur Futura]

[JPL]

Petite erreur d'URL : http://rsbweb.nih.gov/ij/

[zoup1]

Petite erreur d'URL : http://rsbweb.nih.gov/ij/

Merci pour la correction... L'utilisation d'une connexion très précaire m'a interdit même de savoir si le message était partit.

[invite90eae6b1]

Bonjour à tous,

Merci pour toutes ces réponses. N'y connaissant pas grand chose en programmation et ayant besoin de faire cette manip sur de nombreuses images, la solution image J est impeccable. Ce logiciel est vraiment pratique et répond parfaitement à mon besoin.

Merci de votre aide