Discussion :

[Archimède]

Je me suis amusé à comparer deux mêmes animations en flash (flashpascal) et html5/javascript.

C'est plus efficace en javascript. Pourquoi ? je ne pense pas avoir forcément mal écrit mon animation en flash...

Pour les petites bannières qui accompagnent les sites, je ne crois pas que flash soit la meilleure solution. Heureusement que les possibilités sous flash sont infiniment plus grandes qu'en javascript sinon, il y a du souci à se faire...

anthony

[Paul TOTH]

OK, j'ai fait quelques recherches...déjà quand on affiche le FPS (GetTimer() - InitialTimer)/FrameCount on constate que le FPS ne dépasse jamais 60 !

ce qui est confirmé ici http://www.adobe.com/devnet/scout/articles/understanding-flashplayer-with-scout.html

il convient donc de calculer la position des images en fonction du temps et non simplement d'incrémenter _x à chaque frame.

voici ce que ça donne

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
 
program Psavant2;
 
{$FRAME_WIDTH 780}
{$FRAME_HEIGHT 170}
{$BACKGROUND $FFFFFF}
{$FRAME_RATE 60}
 
{$JPEG  savant 'tilsav.png'}
 
uses
  Flash8;//,Udefiltil;
 
type
  TMovie = class(MovieClip)
    t: TextField;
    b1, b2: MovieClip;
    frames: Integer;
    timer: Number;
    constructor Create;
    procedure onEnterFrame(); override;
  end;
 
constructor TMovie.Create;
var
  b: BitmapData;
begin
  inherited Create(_root, 'm', 1);
  b := loadBitmap('savant');
  b1 := MovieClip.Create(Self, 'b1', 1);
  b2 := MovieClip.Create(Self, 'b2', 2);
  t := TextField.Create(_root, 't', 2, 0, 0, 100, 21);
  b1.AttachBitmap(b, 1);
  b2.AttachBitmap(b, 1);
  b2._x := -780;
  timer := GetTimer();
end;
 
procedure TMovie.onEnterFrame();
begin
  Inc(frames);
  t.Text := FloatToStr(frames * 1000 / (GetTimer() - timer));
  (*
  _x := _x + 100/60;
  if _x >= 780 then
    _x := 0;
  *)
  _x := Round((GetTimer() - timer)/10) mod 780;
end;
 
begin
 Tmovie.Create();
end.

ceci dit ta remarque est très juste, HTML5 fait bcp de concurrence à Flash Le seul bémol pour moi c'est que HTML5 n'est ni compressé ni encodé...et pour protéger ses créations c'est pas top...et en plus ce n'est pas du Pascal

[Archimède]

En effet ...! Super intéressant tes petites recherches

Merci pour tes explications et tes remarques pertinentes.
J'ai bien aimé : "En plus, ce n'est pas du pascal"

a+

[Paul TOTH]

au passage, en HTML5 il est recommandé de passer par window.requestAnimationFrame (équivalent de onEnterFrame finalement) et non un timer

[Archimède]

au passage, en HTML5 il est recommandé de passer par window.requestAnimationFrame (équivalent de onEnterFrame finalement) et non un timer

Merci pour l'info , je ne savais pas...

D'aillleurs, il y a ce lien là qui n'est pas mal non plus :

http://msdn.microsoft.com/fr-fr/libr...=vs.85%29.aspx

Il y a même des idées d'exemple pour flashpascal :
http://ie.microsoft.com/testdrive/Gr...l/Default.html

là, c'est chaud...

[Archimède]

requestAnimFrame n'est pas encore opérationnel sur tous les navigateurs...
En effet sur opéra, je n'ai pas d'animation...
Est-ce que vous, ça fonctionne ? (ci-joint en pièces jointes).

Donc pour l'instant, Flash peut encore respirer... La balise canvas n'est pas supporté par les navigateurs plus anciens et puis toutes les méthodes ne sont pas supportées par l'ensemble des navigateurs...
a+