Discussion :

[ChPr]

Bonjour à toutes et à tous,

Je souhaite tracer une ligne composée de nombreux points sur un bitmap. En test, je crée un fichier de 1000 points aléatoires

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
 
    Trace: array of TPointF;
    bmpWork: TBGRABitmap;
 
...
 
  bmpWork := TBGRABitmap.Create('MonFichier.jpg');
  SetLength(Trace, 1000);
  for i:= 0 to 999 do
  begin
    Trace[i].x:= Random(500)+500;
    Trace[i].y:= Random(500)+300;
  end;
  bmpWork.DrawPolyLineAntialias(Trace, $FF0000, 2);
  for i:= 0 to 998 do
    bmpWork.DrawLineAntialias(Trace[i].x, Trace[i].y, Trace[i+1].x, Trace[i+1].y, $FF0000, 2);

L'utilisation de la méthode "DrawPolyLineAntialias" prends 20 secondes !!! alors que la boucle utilisant "DrawLineAntialias" et donnant le même résultat ne prend qu'une fraction de seconde.

Il y a quelques chose que je n'ai pas vu, pas compris ?

Merci pour vos renseignements.

Pierre

[BeanzMaster]

Bonjour Pierre

Oui c'est normal, car la fonction "DrawPoly" est plus complexe et nécessite plus de calcul qu'une simple ligne tracée avec "DrawLine". D'ou cette différence de performance

A+

[ChPr]

J'ai essayé de tracer cette fonction et c'est vrai que c'est le parcours du combattant !

Mais quand même, un rapport de l'ordre de 50 dans les temps d'exécution pour un aspect visuel que je n'ai même pas pu identifier !

Je suis un tout débutant dans l'utilisation de cette bibliothèque et vu la pléthore de fonctions disponibles c'est difficile de trouver la bonne. En l’occurrence, existe t-il une fonction DrawLine basée sur un tableau de points ?

Cordialement.

Pierre

[BeanzMaster]

J'ai essayé de tracer cette fonction et c'est vrai que c'est le parcours du combattant !

Mais quand même, un rapport de l'ordre de 50 dans les temps d'exécution pour un aspect visuel que je n'ai même pas pu identifier !

Je suis un tout débutant dans l'utilisation de cette bibliothèque et vu la pléthore de fonctions disponibles c'est difficile de trouver la bonne. En l’occurrence, existe t-il une fonction DrawLine basée sur un tableau de points ?

Cordialement.

Pierre

Salut pour l'apprentissage tu peux consulter les tutos de Gilles et Roland. Sinon pour ce qui est d'une fonction DrawLine basée sur un tableau de points, non pas à ma connaissance. Mais tu peux facilement en coder une basée sur ton exemple

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure DrawLineFromPoints(BmpWork : TBGRABitmap; Trace : Array of TPoint);
var
  l, i : Integer;
begin
 l := Length(Trace)-1;
 for i:= 0 to l do
    bmpWork.DrawLineAntialias(Trace[i].x, Trace[i].y, Trace[i+1].x, Trace[i+1].y, $FF0000, 2);
end;

Bon dimanche

A+