Discussion :

[steph1969]

Bonjour je vous expose mon projet afin d'obtenir des pistes de solutions ....

Voilà, je dois afficher sur un écran secondaire (Deuxième écran sur sortie hdmi, ...) un point (genre spot lumineux de petite taille) qui effectue des mouvements sinusoïdaux horizontaux et verticaux. la contrainte la plus importante est la "fluidité" et la "netteté" de ces mouvements et non la complexité de l'image celle-ci étant simplement ce point lumineux sur fond noir. (docnc très simple).

j'ai déjà expérimenté : (sous Delphi Xe)

- D2D + SVATimer (sous Windows 7),
- AsphyreSphinx110 (Directx9 ou OpenGl).

mais à chaque fois des 'saccades' et 'pauses' dans le mouvement apparait alors que le processeur est sous les 20% d'utilisation.

Merci pour vos idées et conseils ...

[ShaiLeTroll]

Sinon FMX sur XE2
FMX gère DX et OpenGL, je ne connais pas tous les détails à ce sujet
FMX contient déjà un système d'Animation : Effets d'animation FireMonkey \ Utilisation des effets d'animation FireMonkey

Ton programme monte à combien en FPS ?
J'espère qu'il atteint au moins les 60 !

Comment l'as-tu programmé ? Pas de Timer j'espère ?
J'espère que tu es parti si un Thread + Triple Buffered

le V-Sync n'est-il pas un moyen pour générer juste le nombre précis d'image et éviter de "sauter" des images lors de l'utilisation d'un Buffer ?

Cela ma rappelle ce sujet

[Paul TOTH]

pourquoi diable passer par DirectX ou OpenGL ?!

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
 
var
  P: TPoint;
  W: Integer;
  H: Integer;
  B: TBitmap;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  m: Integer;
begin
  m := 0;
  if Screen.MonitorCount > 0 then
    m := 1;
 
  BorderStyle := bsNone;
  Color := clBlack;
 
  B := TBitmap.Create;
 
  with Screen.Monitors[m] do
  begin
    SetBounds(Left, Top, Width, Height);
    W := Width div 2;
    H := Height div 2;
    B.Width := Width;
    B.Height := Height;
  end;
 
  with B.Canvas do
  begin
    Brush.Color := clBlack;
    Rectangle(0, 0, B.Width, B.Height);
  end;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
var
  T: Single;
  N: TPoint;
begin
  T := GetTickCount/1000;
 
  N.X := W + Round(W * Cos(T) * Sin(T));
  N.Y := H + Round(H * Sin(T) * Sin(2*T));
 
  with B.Canvas do
  begin
    Brush.Color := clWhite;
    Pen.Color := clWhite;
    Rectangle(N.X - 5, N.Y - 5, N.X + 5, N.Y + 5);
  end;
 
  Canvas.Draw(0, 0, B);
 
  with B.Canvas do
  begin
    Brush.Color := clBlack;
    Pen.Color := clBlack;
    Rectangle(P.X - 5, P.Y - 5, P.X + 5, P.Y + 5);
  end;
 
  P := N;
 
  InvalidateRect(Handle, nil, False);
end;

[Gilbert Geyer]

Bonjour,

mais à chaque fois des 'saccades' et 'pauses' dans le mouvement apparait alors que le processeur est sous les 20% d'utilisation.

... Bizarre : j'ai testé (avec with Screen.Monitors[0] car je n'ai qu'un seul moniteur de branché) et il n'y a ni "saccades" ni "pauses" ... sauf que le "point" est en fait un petit carré.

A+.

EDIT : Autre test : avec ou sans DoubleBuffered:=true c'est kif-kif.
Oups : ces tests ont été effectués avec le code Paul TOTH, mais ça confirme au moins qu'il marche!!!

[Caribensila]

Salut,

Et si l'on considère que la simplicité est une vertu en programmation, on peut même aller plus loin que ce que propose Paul.
- Le rôle du fond noir est joué par une fiche de couleur noire.
- Le rôle du spot par un TShape stCircle de couleur et de taille adéquates.
- Le tout étant mis en scène à l'aide des Top et Left du TShape.

Je n'ai pas testé, mais ce n'est pas très compliqué à mettre en oeuvre et ça doit répondre aux exigences de fluidité.

[steph1969]

Re-bonjour,

merci pour toutes ces réponses ...

FPS : avec AsphyreSphinx110 cela monte très haut si l'on n'active pas le V-Sync sinon cela se fixe à 60 ce qui est normal et plus que suffisant,

En fait les différentes solutions que j'ai testées fonctionne bien ... mais toutes les 2/3 secondes il y a des à coups et donc la fluidité du mouvement est mauvaise ... (l'oeil doit suivre ce point ).

De plus ce n'est pas tout ce que fait mon application. Avec le V-Sync tous les autres processus (Timer, Thread) sont complètement ralenti.

Je vais vite implémenter la solution de Paul Toth si j'ai bien compris, la fréquence d'affichage sera "au maximum" ...

[steph1969]

je pense qu'il y a une petite erreur (ou alors un effet visuel supplémentaire ):

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
 
with B.Canvas do
  begin
    Brush.Color := clWhite;
    Pen.Color := clWhite;
    Rectangle(N.X - 5, N.Y - 5, N.X + 5, N.Y + 5);
  end;
 
  Canvas.Draw(0, 0, B);
 
  with B.Canvas do
  begin
    Brush.Color := clBlack;
    Pen.Color := clBlack;
    Rectangle(P.X - 5, P.Y - 5, P.X + 5, P.Y + 5);
  end;
 
  P := N;

Lorsque l'on affiche le BitMap il contient 2 points (rectangle) pourquoi mémoriser la position (P:=N) et effacer au prochain onPaint.

j'ai mis ceci :

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
with B.Canvas do
  begin
    Brush.Color := clWhite;
    Pen.Color := clWhite;
    Rectangle(N.X - 5, N.Y - 5, N.X + 5, N.Y + 5);
  end;

  Canvas.Draw(0, 0, B);
 
  with B.Canvas do
  begin
    Brush.Color := clBlack;
    Pen.Color := clBlack;
    Rectangle(N.X - 5, N.Y - 5, N.X + 5, N.Y + 5);
  end;

Maintenant j'ai calculé le FPS (le nombre de OnPaint par secondes) ;
Sans le "DoubleBuffer" : 170
Avec le "DoubleBuffer" : 80

J'ai également changé les equations de mouvement pour revenir a un sinus horizontal simple :

Code :

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

1
2
3
 
 N.X := W + Round(W * Sin(T) );
 N.Y := H ;

et là on voit plus les "saccades" et "micro-pause", mais c'est tout aussi fluide qu'avec une "grosse artillerie" (AsphyreSphinx).

Comment contrôler la priorité du OnPaint de la form, par rapport au autres évènement de l'application ?

[ShaiLeTroll]

et là on voit plus les "saccades" et "micro-pause", mais c'est tout aussi fluide qu'avec une "grosse artillerie" (AsphyreSphinx).

Ah oui, tu ne voulais vraiment aucun effet, je pensais que si tu partais sur OpenGL, tu voulais avoir d'autres effet sur le ce fameux point par la suite comme rémanence du tracé par effet de transparence !

Tu n'avais pas testé le mode TPaintBox avant de te lancer dans un truc si compliqué ? Si c'est pas mettre la Charrue avant les Bœufs ça !

Comment contrôler la priorité du OnPaint de la form, par rapport au autres évènement de l'application ?

Tu n'y pourras pas grand chose, c'est la file d'Attente des messages de Windows, un ShowModal, un PopupMenu, un Synchronize, un excité du clavier ou de la souris sur le Monitor 0 et tu verras ton point ralentir sur le Monitor 1

Tout dépend ce que ton application (et les autres) fait pendant ton dessin !
En fait tu veux juste faire un oscilloscope ? il n'y avait pas une démo Delphi sur ça ?

C'est surement pour cela que tu as un si mauvais FPS, 180 pour un pauvre point ! c'est parce que InvalidateRect ou Application.Run() prend son temps pour envoyer ou recevoir WM_PAINT