Discussion :

[Archimède]

j'ai installé la suite de composants asphyre (asphyre310).
J'ai compilé les exemples proposés. (c'est génial)
mais il n'y a pas de tuto en français à part l'introduction de pédro qui permet simplement une découverte...

En deux D, qui peut me donner un exemple simple de déplacement d'un simple rectangle sur un Tasphyrecanvas en incrémentant une variable dans un Tasphyretimer. ça permettrait de démarrer simplement sans trop de douleur
J'ai essayé et j'ai déjà un message d'erreur.

merci

[ero-sennin]

Salut,

Juste pour être sur, c'est bien ce tuto dont tu parles ?

Utilisation de DirectX sous Delphi : Asphyre 4.1

[Archimède]

Salut,

Juste pour être sur, c'est bien ce tuto dont tu parles ?

Utilisation de DirectX sous Delphi : Asphyre 4.1

non, c'est celui là asphyre pro http://pedro.developpez.com/articles/delphi/3d/asphyre/

merci

[ero-sennin]

En espérant que ça t'aide

[Archimède]

En espérant que ça t'aide

merci, tu as raison... Il doit y avoir de bonne base pour adapter à asphyre pro...
J'en ai ras le bol de passer par os pour faire des animations. C'est poussif...
En directx, ça n'a rien à voir...

Mais sans doc en français, c'est hard à moins d'avoir quelques petits exemples simples.

merci à toi, je regarde le tuto...

[Archimède]

voilà, ce que j'ai tenté de simple et qui ne marche pas :

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
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AsphyreTimers, AsphyreSubsc, AsphyreDevices, Asphyre2D, AsphyreCanvas;
 
type
  TForm1 = class(TForm)
    AsphyreDevice1: TAsphyreDevice;
    AsphyreCanvas1: TAsphyreCanvas;
    AsphyreTimer1: TAsphyreTimer;
    procedure AsphyreDevice1Render(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure AsphyreTimer1Process(Sender: TObject);
    procedure AsphyreDevice1Initialize(Sender: TObject; var Success: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure AsphyreTimer1Timer(Sender: TObject);
  private
    { Déclarations privées }
    i:integer;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.AsphyreTimer1Timer(Sender: TObject);
begin
AsphyreDevice1.Render(0,false);
AsphyreTimer1.Process();
AsphyreDevice1.flip();
end;
 
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
if (not AsphyreDevice1.Initialize()) then
begin
MessageDlg('Asphyre n''a pas pu s''initialiser!', mtError, [mbOk], 0);
Close();
Exit;
end;
end;
 
procedure TForm1.AsphyreDevice1Initialize(Sender: TObject;
  var Success: Boolean);
begin
if success then AsphyreTimer1.enabled:=success;;
end;
 
procedure TForm1.AsphyreTimer1Process(Sender: TObject);
begin
inc(i);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
AsphyreDevice1.finalize();
end;
 
procedure TForm1.AsphyreDevice1Render(Sender: TObject);
begin
with asphyrecanvas1 do begin
                       fillrect(clientrect,clcream,2);
                       rectangle(i,200,200,200,clred,clred,clred);
                       end;
end;
 
 
end.