IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Images Discussion :

Tracé d'un axe donné par objet sur le zoom de chacun d'entre eux (N figures)


Sujet :

Images

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    Février 2007
    Messages
    109
    Détails du profil
    Informations personnelles :
    Âge : 41
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : Février 2007
    Messages : 109
    Points : 63
    Points
    63
    Par défaut Tracé d'un axe donné par objet sur le zoom de chacun d'entre eux (N figures)
    Bonjour,

    Voici mon code utilisé pour visualiser l'axe majeur sur mes objets détectés dans les images afin de me rendre compte de la fiabilité du paramètre "orientation". Mes objets étant très petits je souhaite les visualiser un à un AVEC leur axe majeur correspondant. Ce que, donc, je n'arrive pas à faire dans ce cas précis! La partie à revoir est en gras dans mon programme.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    35
    36
    N=1; tail_disq=10; seuil=100; petite_aire=25; se = strel('disk',tail_disq); 
    for k=1:N 
        fname = sprintf('20060516 rot 50khz 8vpp_t%03d(c1).jpg',k); 
        I{k} = imread(fname); 
        background{k} = imclose(I{k},se);  I2{k} = imsubtract(background{k},I{k}); 
        level = graythresh(I2{k});     bw{k} = im2bw(I2{k},level); 
        bw{k}=bwareaopen(bw{k},petite_aire);   bw{k} = imclearborder(bw{k}); 
        fill{k} = imfill(bw{k},'holes');  [L{k},NbObjets{k}] = bwlabel(fill{k},8); 
        b{k} = bwboundaries(fill{k});  rego{k} = regionprops(L{k},'All'); 
    end
    
    for k=1:N    
        for i=1:NbObjets{k}
            cellule{k}(i).x = rego{k}(i).Centroid(1); cellule{k}(i).y = rego{k}(i).Centroid(2);
            cellule{k}(i).orientation = rego{k}(i).Orientation; 
            cellule{k}(i).maj = rego{k}(i).MajorAxisLength; cellule{k}(i).min = rego{k}(i).MinorAxisLength;
            x1{k}(i) = cellule{k}(i).x + cellule{k}(i).maj*cos(-cellule{k}(i).orientation*pi/180)/2;
            y1{k}(i) = cellule{k}(i).y + cellule{k}(i).maj*sin(-cellule{k}(i).orientation*pi/180)/2;
            x2{k}(i) = cellule{k}(i).x - cellule{k}(i).maj*cos(-cellule{k}(i).orientation*pi/180)/2;
            y2{k}(i) = cellule{k}(i).y - cellule{k}(i).maj*sin(-cellule{k}(i).orientation*pi/180)/2;
        end
    end
    
    for k=1 % pour visualiser les objets un par un dans une image donnée
        for i=1:NbObjets{k}
            bx{i}=zeros(1,4);
            bx{i}=rego{k}(i).BoundingBox;
            ob{i}=I{k}(bx{i}(2)-.5:bx{i}(2)+bx{i}(4)-.5,bx{i}(1)-.5:bx{i}(1)+bx{i}(3)-.5,:);
            figure(i)
            imagesc(ob{i}), title(['cellule n° ' num2str(i)])
            colormap('gray')
            figure(i)
            hold on
            plot([x1{k}(i) x2{k}(i)],[y1{k}(i) y2{k}(i)])
        end
    end
    Quelqu'un aurait une idée une suggestion voire la solution à ce problème?

    Merci d'avance de l'aide apportée qui me fait avancer à grand pas!

  2. #2
    Membre du Club
    Profil pro
    Inscrit en
    Février 2007
    Messages
    109
    Détails du profil
    Informations personnelles :
    Âge : 41
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : Février 2007
    Messages : 109
    Points : 63
    Points
    63
    Par défaut
    Voici une image sur laquelle j'aimerais pouvoir obtenir N nouvelles images (N étant le nombre d'objet détecté dans mon image) qui seraient chacun un zoom d'un objet avec le tracé de l'axe majeur correspondant que je récupère avec les coordonnées de 2 points (x1, x2, y1 et y2).

    Faut peut-être aussi revoir la taille de la fenêtre prise en compte dans ob{i} mais je ne sais pas trop...

    Merci !
    Images attachées Images attachées  

  3. #3
    Rédacteur/Modérateur

    Avatar de Jerome Briot
    Homme Profil pro
    Freelance mécatronique - Conseil, conception et formation
    Inscrit en
    Novembre 2006
    Messages
    20 309
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Freelance mécatronique - Conseil, conception et formation

    Informations forums :
    Inscription : Novembre 2006
    Messages : 20 309
    Points : 52 896
    Points
    52 896
    Par défaut
    Utilise l'information BoundingBox donnée par REGIONPROPS

    Quelque chose comme :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    R = reg.BoundingBox;
     
    subimg = bw(R(1):R(1)+R(3),R(2):R(2)+R(4));
     
    imagesc(subimg);
    C'est l'idée...

  4. #4
    Membre du Club
    Profil pro
    Inscrit en
    Février 2007
    Messages
    109
    Détails du profil
    Informations personnelles :
    Âge : 41
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : Février 2007
    Messages : 109
    Points : 63
    Points
    63
    Par défaut
    Si je lance ces quelques lignes pour une image et un objet j'ai déjà l'erreur suivante:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Warning: Integer operands are required for colon operator when used as index.
    > In visualisation at 39
    ??? Index exceeds matrix dimensions.
     
    Error in ==> visualisation at 39
            subimg = bw(R(1):R(1)+R(3),R(2):R(2)+R(4));
    Mais, j'ai déjà dans mon code ob{i} qui est à quelque chose près ce que tu me dis non? Et ce que je voudrais c'est rajouter à chacune de ces images (qui sont donc des zooms sur objets) LA droite correspondant à l'axe majeur de l'objet sur lequel je zoome...

    Merci de votre aide !

Discussions similaires

  1. Créer 3 tables de données par extraction sur la feuille 1
    Par katypati dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 13/11/2011, 20h51
  2. Envoyé donnée par bluetooth sur samsung
    Par Laupif dans le forum Java ME
    Réponses: 1
    Dernier message: 22/11/2009, 16h48
  3. [A-00] Récupération de données par Objet Recordset
    Par Domdrum dans le forum VBA Access
    Réponses: 16
    Dernier message: 06/01/2009, 21h17
  4. Comptage de données par intervalle sur valeur supérieure
    Par Waylander44 dans le forum Requêtes et SQL.
    Réponses: 2
    Dernier message: 20/11/2008, 20h30
  5. sauvegarde liant des données par appui sur bouton
    Par Flavien44 dans le forum IHM
    Réponses: 2
    Dernier message: 11/06/2007, 18h20

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo