Discussion :

[Roland Chastain]

Bonjour !

J'ai observé que l'animation suivante ralentit progressivement, même jusqu'à s'arrêter. Ce phénomène se produit aussi bien dans la fenêtre de prévisualisation de l'éditeur que dans Google Chrome.

J'avais déjà fait la même observation avec un autre programme et j'avais résolu le problème je ne sais trop comment. Là, j'ai beau relire mon code : je ne vois rien d'anormal. Auriez-vous une idée de la cause de ce ralentissement ?

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
 
{$FRAME_WIDTH 432}
{$FRAME_HEIGHT 24}
{$FRAME_RATE 4}
{$BACKGROUND $545454}{Couleurs.DarkGray}
 
program Bits;
 
(* FlashPascal 2 v14.04.22 *)
 
uses
  Flash8, Couleurs;
 
const
  MaxInt = $7FFFFFFF;
 
type
  TPoint = class(MovieClip)
    procedure Tracer;
    constructor Create(Depth, x, y, Color: Integer);
    procedure SetColor(Color: Integer);
  end;
 
procedure TPoint.Tracer;
begin
  MoveTo(0, -4);
  CurveTo(+4, -4, +4,  0);
  CurveTo(+4, +4,  0, +4);
  CurveTo(-4, +4, -4,  0);
  CurveTo(-4, -4,  0, -4);
end;
 
constructor TPoint.Create(Depth, x, y, Color: Integer);
begin
  inherited Create(nil, '', Depth);
  LineStyle(0, Color);
  BeginFill(Color);
  Tracer;
  EndFill();
  _x := x;
  _y := y;
end;
 
procedure TPoint.SetColor(Color: Integer);
begin
  LineStyle(0, Color);
  BeginFill(Color);
  Tracer;
  EndFill();
end;
 
var
  a: array[0..31] of TPoint;
  i: Integer;
 
type
  Horloge = class(MovieClip)
    procedure onEnterFrame; override;
  end;
 
procedure Horloge.onEnterFrame;
var
  x: Integer;
begin
  if i < MaxInt then
  begin
    for x := 0 to 31 do
      if i and (1 shl x) > 0 then
        a[31 - x].SetColor(LawnGreen)
      else
        a[31 - x].SetColor(Gray);
    Inc(i);
  end;
end;
 
var
  x: Integer;
 
begin
  for x := 0 to 31 do
      a[x] := TPoint.Create(
        x + 1,
        12 * x + 12 * (x div 8) + 12,
        12,
        Gray
      );
  i := 0;
  stage.scaleMode := 'noScale';
  Horloge.Create(nil, 'h', 0);
end.

[Paul TOTH]

il manque un Clear() dans SetColor(), car là tu ajoutes un nouvel ordre graphique à chaque fois et Flash se retrouve à dessiner autant de fois le point que tu as appelé la méthode SetColor()

[Roland Chastain]

il manque un Clear() dans SetColor(), car là tu ajoutes un nouvel ordre graphique à chaque fois et Flash se retrouve à dessiner autant de fois le point que tu as appelé la méthode SetColor()

Voilà qui est bon à savoir.

J'ai dû faire l'erreur pas mal de fois sans m'en apercevoir.