Traitement vidéo temps réel (incrustation de signes/pictogrammes dans la vidéo)

**uyunie** · 20/06/2011, 00h24

Bonjour à tous,
Je débute en programmation MATLAB, j'ai donc quelques soucis techniques que je n'arrive pas à résoudre pour le moment. Votre aide est la bienvenue...
J'ai fait un programme permettant d'ajouter à une vidéo acquise en temps réel (webcam) du texte et des signes de type flèches, camembert, couleurs (transparentes ou opaques), rectangles, superposés à l'image. Le but est de filmer une main et de guider la personne dans les mouvements qu'elle doit faire (amener la main vers la droite, la gauche, etc...) grâce aux signes et aux couleurs.
Mon problème est que ma vidéo est beaucoup plus lente que ce qu'elle devrait être lorsque j'ajoute les signes/incrustations. Selon les signes que j'ajoute, soit la vidéo est saccadée, soit je n'ai pour ainsi dire pas de vidéo et seule la dernière frame qui s'affiche. Dans tous les cas, je n'ai pas de message d'erreur. Je ne comprends pas ce qui cloche...
Voici une version de mon code contenant texte, 1 flèche et un camembert coloré. Ici la vidéo s'affiche mais est beaucoup trop lente :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
% MAIN (Pie chart : 1 color)
clear all
close all
clc
 
%Access the image acquisition device
vid=videoinput('winvideo',1,'I420_640x480');
 
%Set the properties of the video object
set(vid,'FramesPerTrigger',inf);
set(vid,'ReturnedColorspace','rgb');
vid.FrameGrabInterval=5;
 
%Start the video acquisition
start(vid);
 
%Set a loop that stops after 200 frames
while(vid.FramesAcquired<=200)
 
    %Get the snapshot of the current frame
    data = getsnapshot(vid);
 
    %Display the image
    imshow(data)
 
    hold on
 
    arrow=annotation('arrow',[0.35 0.65],[0.8 0.8],'Color','g','HeadStyle','cback1','HeadLength',21,'HeadWidth',11,'LineWidth',10);
    a=text(10,20,'COMMANDE ACTIVE');
    set(a, 'FontName', 'Arial', 'FontWeight', 'bold', 'FontSize', 12, 'Color', 'white');
 
    %Pie Chart
    circle = rsmak('circle',200,[320 350]);
    quarter1 = fnbrk(fn2fm(circle,'rp'),3);
    quarter2 = fnbrk(fn2fm(circle,'rp'),4);
    fnplt(quarter1,3,'Color','black');
    fnplt(quarter2,3,'Color','black');
    line([120 520],[350 350],'Color','black','LineWidth',3);
    line([320 (320+(200*cos(-pi/3)))],[350 (350+(200*sin(-pi/3)))],'Color','black','LineWidth',3);
    line([320 (320+(200*cos(-(2*pi)/3)))],[350 (350+(200*sin(-(2*pi)/3)))],'Color','black','LineWidth',3);
 
    %Pie Chart Color (1 color)
    rayon=200;
    r=rayon*ones(100,1);
    theta=(-pi)*(0:99)'/99;
    [x,y] = pol2cart(theta,r);
    x=x+320;
    y=y+350;
    p=patch('XData',x, 'YData',y,'CData',[1 1 1],'parent',gca,'FaceColor','g');
    set(p,'FaceAlpha',0.35, 'EdgeColor', 'none');
 
    hold off
end
 
%Stop the video aquisition.
stop(vid);
 
%Flush all the image data stored in the memory buffer.
flushdata(vid);

D'ailleurs je n'arrive pas à attribuer une couleur différente à chaque portion du camembert. Si vous avez une solution pour ça aussi...

Autre version avec des rectangles dont la couleur est transparente. Ici je n'ai que la dernière frame qui s'affiche :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
% % % MAIN3 Rectangles
clear all
close all
clc
 
%Access the image acquisition device
vid=videoinput('winvideo',1,'I420_640x480');
 
%Set the properties of the video object
set(vid,'FramesPerTrigger',inf);
set(vid,'ReturnedColorspace','rgb');
vid.FrameGrabInterval=5;
 
%Start the video acquisition
start(vid);
 
%Set a loop that stops
while(vid.FramesAcquired<=200)
 
    %Get the snapshot of the current frame
    data = getsnapshot(vid);
 
    %Display the image
    imshow(data)
 
    hold on
 
    arrow=annotation('arrow',[0.35 0.65],[0.8 0.8],'Color','g','HeadStyle','cback1','HeadLength',21,'HeadWidth',11,'LineWidth',10);
    %rectangle('Position',[300,200,200,500],'EdgeColor','r','LineWidth',2);
    a=text(10,20,'COMMANDE ACTIVE');
    set(a, 'FontName', 'Arial', 'FontWeight', 'bold', 'FontSize', 12, 'Color', 'white');
 
    %Pie Chart
    circle = rsmak('circle',200,[320 350]);
    quarter1 = fnbrk(fn2fm(circle,'rp'),3);
    quarter2 = fnbrk(fn2fm(circle,'rp'),4);
    fnplt(quarter1,3,'Color','black');
    fnplt(quarter2,3,'Color','black');
    line([120 520],[350 350],'Color','black','LineWidth',3);
    line([320 (320+(200*cos(-pi/3)))],[350 (350+(200*sin(-pi/3)))],'Color','black','LineWidth',3);
    line([320 (320+(200*cos(-(2*pi)/3)))],[350 (350+(200*sin(-(2*pi)/3)))],'Color','black','LineWidth',3);
 
    % Red Rectangle (left)
    annotation('rectangle',[160/640 210/640 80/640 150/480],'FaceColor','r','EdgeColor','none','FaceAlpha',0.35);
    % Green Rectangle (right)
    annotation('rectangle',[400/640 210/640 80/640 150/480],'FaceColor','g','EdgeColor','none','FaceAlpha',0.35);
 
    hold off
end
 
%Stop the video aquisition.
stop(vid);
 
%Flush all the image data stored in the memory buffer.
flushdata(vid);

Un grand merci pour votre aide...

**Jerome Briot** · 20/06/2011, 10h24

Il faut sortir la création des objets de la boucle et ne faire que des mises à jour de leur propriétés graphiques :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
% MAIN (Pie chart : 1 color)
clear all
close all
clc
 
%Access the image acquisition device
vid=videoinput('winvideo',1,'I420_640x480');
 
%Set the properties of the video object
set(vid,'FramesPerTrigger',inf);
set(vid,'ReturnedColorspace','rgb');
vid.FrameGrabInterval=5;
 
%Start the video acquisition
start(vid);
 
%Get the snapshot of the current frame
data = getsnapshot(vid);
 
%Display the image
im = imshow(data);
 
 
hold on
 
arrow=annotation('arrow',[0.35 0.65],[0.8 0.8],'Color','g','HeadStyle','cback1','HeadLength',21,'HeadWidth',11,'LineWidth',10);
a=text(10,20,'COMMANDE ACTIVE');
set(a, 'FontName', 'Arial', 'FontWeight', 'bold', 'FontSize', 12, 'Color', 'white');
 
%Pie Chart
circle = rsmak('circle',200,[320 350]);
quarter1 = fnbrk(fn2fm(circle,'rp'),3);
quarter2 = fnbrk(fn2fm(circle,'rp'),4);
fnplt(quarter1,3,'Color','black');
fnplt(quarter2,3,'Color','black');
line([120 520],[350 350],'Color','black','LineWidth',3);
line([320 (320+(200*cos(-pi/3)))],[350 (350+(200*sin(-pi/3)))],'Color','black','LineWidth',3);
line([320 (320+(200*cos(-(2*pi)/3)))],[350 (350+(200*sin(-(2*pi)/3)))],'Color','black','LineWidth',3);
 
%Pie Chart Color (1 color)
rayon=200;
r=rayon*ones(100,1);
theta=(-pi)*(0:99)'/99;
[x,y] = pol2cart(theta,r);
x=x+320;
y=y+350;
p=patch('XData',x, 'YData',y,'CData',[1 1 1],'parent',gca,'FaceColor','g');
set(p,'FaceAlpha',0.35, 'EdgeColor', 'none');
 
 
%Set a loop that stops after 200 frames
while(vid.FramesAcquired<=200)
 
    %Get the snapshot of the current frame
    data = getsnapshot(vid);
 
    %Display the image
    set(im,'cdata',imshow(data));
 
end
 
%Stop the video aquisition.
stop(vid);
 
%Flush all the image data stored in the memory buffer.
flushdata(vid);

Tu peux t'inspirer de cette entrée de la

: Comment animer le tracé d'une courbe ?

**uyunie** · 20/06/2011, 11h10

Merci!
La vidéo est fluide, c'est parfait.

Juste un petit soucis, tous les objets ne s'affichent plus: le texte et les lignes noires du camembert qui apparaissent transparentes.

Quand j'essaie de modifier le code, j'ai l'erreur suivante :

??? Error using ==> set
Invalid handle object.

Error in ==> triang at 66
    set(im,'cdata',imshow(data));

**Jerome Briot** · 20/06/2011, 11h24

Désolé, j'ai fait une erreur dans mon précédent message. Il fallait lire :

Code :

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

set(im,'cdata',data);

Utilise aussi DRAWNOW (après la ligne ci-dessus) pour forcer MATLAB à afficher les objets

Sinon, tu peux aussi utiliser IMAGE ou IMAGESC à la place de IMSHOW :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
% MAIN (Pie chart : 1 color)
clear all
close all
clc
 
%Access the image acquisition device
vid=videoinput('winvideo',1,'I420_640x480');
 
%Set the properties of the video object
set(vid,'FramesPerTrigger',inf);
set(vid,'ReturnedColorspace','rgb');
vid.FrameGrabInterval=5;
 
%Start the video acquisition
start(vid);
 
%Get the snapshot of the current frame
data = getsnapshot(vid);
 
%Display the image
im = image(data);
 
hold on
 
arrow=annotation('arrow',[0.35 0.65],[0.8 0.8],'Color','g','HeadStyle','cback1','HeadLength',21,'HeadWidth',11,'LineWidth',10);
a=text(10,20,'COMMANDE ACTIVE');
set(a, 'FontName', 'Arial', 'FontWeight', 'bold', 'FontSize', 12, 'Color', 'white');
 
%Pie Chart
circle = rsmak('circle',200,[320 350]);
quarter1 = fnbrk(fn2fm(circle,'rp'),3);
quarter2 = fnbrk(fn2fm(circle,'rp'),4);
fnplt(quarter1,3,'Color','black');
fnplt(quarter2,3,'Color','black');
line([120 520],[350 350],'Color','black','LineWidth',3);
line([320 (320+(200*cos(-pi/3)))],[350 (350+(200*sin(-pi/3)))],'Color','black','LineWidth',3);
line([320 (320+(200*cos(-(2*pi)/3)))],[350 (350+(200*sin(-(2*pi)/3)))],'Color','black','LineWidth',3);
 
%Pie Chart Color (1 color)
rayon=200;
r=rayon*ones(100,1);
theta=(-pi)*(0:99)'/99;
[x,y] = pol2cart(theta,r);
x=x+320;
y=y+350;
p=patch('XData',x, 'YData',y,'CData',[1 1 1],'parent',gca,'FaceColor','g');
set(p,'FaceAlpha',0.35, 'EdgeColor', 'none');
 
 
%Set a loop that stops after 200 frames
while(vid.FramesAcquired<=200)
 
    %Get the snapshot of the current frame
    data = getsnapshot(vid);
 
    %Display the image
    set(im,'cdata',data);
 
    drawnow
 
end
 
%Stop the video aquisition.
stop(vid);
 
%Flush all the image data stored in the memory buffer.
flushdata(vid);

**uyunie** · 20/06/2011, 11h56

Plus rien à dire, ça marche impeccablement!
Merci

Invité · 20/06/2011, 12h16

Envoyé par uyunie

D'ailleurs je n'arrive pas à attribuer une couleur différente à chaque portion du camembert. Si vous avez une solution pour ça aussi...

Une façon de faire:

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
rayon=200;
% on sépare en trois notre demi cercle
theta=(-pi)*[0:33 ; 33:66 ; 66:99 ]/99;
x = 320+rayon*cos(theta);
y = 350+rayon*sin(theta);
% on ajoute le centre
x = [[320;320;320] x];  
y = [[350;350;350] y];
% les trois couleurs en rgb
couleur(1,1,1:3) = [1 0 1];
couleur(1,2,1:3) = [1 0 0];
couleur(1,3,1:3) = [0 1 1];
p=patch(x.',y.',couleur,'FaceAlpha',0.35, 'EdgeColor','none','parent',gca);
pause 
% on change la couleur
set(p,'FaceVertexCData',[1 1 0 ; 0 1 0 ; 1 0 1])

**uyunie** · 20/06/2011, 14h45

Merci! C'était plus facile que ce que je pensais...

Traitement vidéo temps réel (incrustation de signes/pictogrammes dans la vidéo)

Images

Discussions similaires

Partager

Partager