Discussion :

[Roland Chastain]

Bonjour !

J'utilise la fonction FillEllipseAntiAlias() de la bibliothèque BGRABitmap pour dessiner un disque. Je rencontre un problème lorsque je veux dessiner mon disque sur un fond noir. Dans ce cas l'anti-aliasing est sans effet. Connaissez-vous une technique qui permettrait de dessiner avec anti-aliasing sur un fond noir ?

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
unit Unit1;
 
{$MODE objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
  BGRABitmap, BGRABitmapTypes;
 
type
  { TForm1 }
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  Bitmap1: TBGRABitmap;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Bitmap1 := TBGRABitmap.Create(400, 400);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  Bitmap1.Free;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
var
  local: TBGRABitmap;
begin
  with Bitmap1.Canvas do
  begin
    //Pen.Color := clWhite;
    Pen.Color := clBlack;
    Brush.Style := bsSolid;
    //Brush.Color := clWhite;
    Brush.Color := clBlack;
    Rectangle(0, 0, 400, 400);
  end;
 
  local := TBGRABitmap.Create(200, 200);
  local.FillEllipseAntialias(100, 100, 90, 90, CSSDarkBlue);
 
  Bitmap1.PutImage(100, 100, local, dmDrawWithTransparency);
 
  local.Free;
 
  Bitmap1.Draw(Form1.Canvas, 0, 0, True);
end;
 
end.

[Roland Chastain]

Je viens de m'apercevoir que le problème est traité dans l'un des exemples inclus dans les sources de LazPaint (dossier "testbgrafunc", unité "u14.pas").
Voici mon code corrigé :

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
procedure TForm1.FormPaint(Sender: TObject);
var
  local: TBGRABitmap;
begin
  {
  with Bitmap1.Canvas do
  begin
    Pen.Color := clBlack;
    Brush.Style := bsSolid;
    Brush.Color := clBlack;
    Rectangle(0, 0, 400, 400);
  end;
  }
  Bitmap1.Fill(BGRABlack);
 
  {
  local := TBGRABitmap.Create(200, 200);
  }
  local := TBGRABitmap.Create(200, 200, BGRABlack);
 
  {
  local.FillEllipseAntialias(100, 100, 90, 90, CSSDarkBlue);
  }
  local.FillEllipseAntialias(100, 100 , 90, 90, BGRA(0, 0, 255, 255));
 
  Bitmap1.PutImage(100, 100, local, dmDrawWithTransparency);
 
  local.Free;
 
  Bitmap1.Draw(Form1.Canvas, 0, 0, True);
end;

Elle est vraiment géniale cette bibliothèque. En comparaison d'AggPas (par exemple), le code est d'une simplicité ! Bravo et merci à l'auteur.

[Roland Chastain]

Je vous propose une animation utilisant la bibliothèque BGRABitmap. Ce sont des balles rebondissantes, de tailles et de masses différentes. Je suis parti d'un programme existant : je n'ai fait que remplacer la procédure de dessin des ellipses. J'ai fait un essai du même genre aussi avec Cairo. La procédure BGRABitmap m'a paru être plus rapide que les autres (LCL et Cairo).

[ThWilliam]

Bonsoir Roland.

Tu n'es même pas obligé de passer par "local".

Ceci me donne le même résultat (ou alors c'est une question de version de BGRABitmap).

Code :

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

1
2
3
Bitmap1:= TBGRABitmap.Create(400,400, BGRABlack);
Bitmap1.FillEllipseAntialias(200, 200 , 90, 90, CSSDarkblue);
Bitmap1.Draw(Form1.Canvas, 0, 0, True);

Cordialement
Thierry

[Roland Chastain]

Bonsoir Thierry !

Oui, c'est vrai. Merci pour le test. En fait j'avais une bonne raison, au départ, de passer par cette variable supplémentaire (voir l'animation que je viens de poster).

[ThWilliam]

Bonjour Roland.

Extra ton animation.
Je vais me servir de ton programme comme écran de veille

Cordialement
Thierry

[Roland Chastain]

Merci pour le compliment, qui revient surtout à l'auteur du programme original (son site vaut le détour).

Je vais me servir de ton programme comme écran de veille

Je t'en prie. Il y a peut-être une ou deux choses à revoir, comme cet endroit qui me chagrine (quoique je n'aie constaté visuellement aucune anomalie) :

Code :

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

1
2
3
4
  for i := 0 to High(Balls) do
    for j := i + 1 to High(Balls) do
      begin
        Balls[i].CollideWithOther(Balls[j]);