Discussion :

[lulu31]

Bonsoir à tous, comment peut-on faire pour afficher un message sur une fenêtre qui lit une vidéo avec la fonction showimage, quelle est la fonction Scilab permettant de réaliser ceci ?
Merci à vous pour vos réponse

[lulu31]

Personne n'a d'idée ? J'ai pensé à la fonction xtring, mais j'arrive pas à l'afficher dans la fenêtre courante.

[Jerome Briot]

Tu utilises la toolbox IPD, c'est ça ?

Pourrais-tu nous montrer ton code (même si c'est faux) ?

[lulu31]

Bien sur,

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
 global IPD_PATH;
n = aviopen('C:\Users\Lucas\Desktop\Scilab\video\chutelit1.avi'); 
im = avireadframe(n);

fg = detectforeground(im, 'LI'); 
StructureElement = CreateStructureElement('square', 8); 
while ~ isempty(im), 
      fg = detectforeground(im); 
      imshow(fg);  
     ResultImage = DilateImage(fg, StructureElement);
 
ThresholdedImage = SegmentByThreshold(ResultImage, 50); 
BlobImage = SearchBlobs(ThresholdedImage); 

FilteredBlobImage = FilterBySize(BlobImage, 7000);

IsCalculated = CreateFeatureStruct(%f); 
IsCalculated.BoundingBox = %t; 

BlobStatistics = AnalyzeBlobs(FilteredBlobImage, IsCalculated);

ShowImage(FilteredBlobImage, 'Blob Image', jetcolormap(1)); 

DrawBoundingBoxes(BlobStatistics, [1 0 1]); 

if size(BlobStatistics)==1 then 
            if BlobStatistics(1).BoundingBox(3)>BlobStatistics(1).BoundingBox(4) then
                disp ("Personne couché")
            else disp ("Personne non couché")
            end
else disp ("Posture non déterminée")
end

im = avireadframe(n);
end;
aviclose(n);

Ce programme permet de détecter la chute, d'une personne (programme non fiable 100%), mais fonctionne tout de même assez bien d'ailleurs si quelqu'un à des idées pour améliorer je suis preneur
Avec disp j'affiche dans la console scilab, ce que je voudrais moi ce serais de l'afficher dans la fenêtre blob image (avec fonction show image)


Merci à vous, pour vos réponses

[Jerome Briot]

Quel est le problème avec xstring ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
if BlobStatistics(1).BoundingBox(3)>BlobStatistics(1).BoundingBox(4) then
    xstring (x,y,"Personne couchée")
else xstring (x,y,"Personne non couchée")
end

[lulu31]

Quel est le problème avec xstring ?

Aucune idée j'ai essayé d'attribuer plusieurs valeurs à x et y mais rien à faire rien ne s'affiche

[Jerome Briot]

As-tu vérifié que les valeurs de x et y étaient contenues dans les limites de l'objet axes ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ax = gca()
disp(ax.data_bounds)

Pourrais-tu nous montrer un aperçu de l'image que tu affiches au final ?

[lulu31]

Je pense avoir trouvé l'erreur, la police par défaut étant le noir et la couleur de mon arrière plan étant noire la chaine de caractère ne se distingue pas.
Avez-vous une idée de comment changer la couleur ?

[Jerome Briot]

Essaie ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
xstring(...,...,"Du texte")
h = gce()
set(h,"font_foreground",n)

Où n est l'indice de la couleur dans la palette de couleur de l'objet Figure