gifs avec asphyre

**Jeannot Alpin** · 24/05/2006, 16h12

Salut a tous, j'essaye de faire quelques petits trucs avec asphyre mais le probleme est qu'il n'y a quasiment pas d'aide dur internet et les exemples fournit sont pour la 3D alors que moi j'essaye de faire de la 2D. Pour l'instant j'ai fais une sorte de pong : jusqu'a la pas trop de probleme. Mais maintenant j'essaye de faire évoluer un bonhome dans un décor (tout en 2D). J'ai fais ce perso en gif (animé pour faire croire au mouvement) mais je n'arrive pas a afficher cette gif, comment on fais ?

Euh tant que j'y suis : dés que j'éxécute mon pong sur un autre pc il y a une erreur avec ce message : Pourquoi ca fais ca et commet y remédier ?

**Pedro** · 24/05/2006, 19h04

Salut

Il ne faut pas utiliser un GIF animé pour animer ton perso

Il te faut une image qui décompose tous les mouvements.
Va voir ici http://loka.developpez.com/tutoriel/sdl/sprites/ tout en bas, la dernière image montre un exemple de ce que tu dois avoir... Ensuite, tu fais
:

Code :

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

1
2
 
AsphyreCanvas1.TexMap(MonImage, pBounds4([La taille de l'image à l'arrivée]), Couleur, TexCoord, fxNone); //ou fxBlend si tu veux de la transparence

Sachant que TexCoord est de type TTextCoord:
Membres de TTexCoord:
X,Y la position du pattern dans l'image
w,h: sa taille
Le pattern est la portion d'image que tu veux afficher. Le TTexCoord donne la position et la taille dans l'image de la décomposition

Pour l'autre problème, on a déjà eu ce genre de problème. Il faut savoir que Asphyre fonctionne avec DirectX9... Donc, DirectX 9.0c et drivers de carte vidéo à jour indispensables

**Jeannot Alpin** · 24/05/2006, 21h23

Ok merci c'est sympas !

edit : euh tu pourrai pas donner un exemple pour le code stp ?

**Pedro** · 25/05/2006, 01h32

Envoyé par Jeannot Alpin

edit : euh tu pourrai pas donner un exemple pour le code stp ?

En fait le X varie de Compteur*PatternWidth et le Y change suivant que le perso monte descend va à gauche ou à droite

Sachant que compteur est une variable que tu incrémente toutes les n msecs...

Exmple directement tiré d'une des classes qu'on est en train d'écrire:

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
 
var T:TTexCoord;
begin
  if FVisible then
  begin
    T.Pattern := 0;
    T.x := 0+FPatternSize.X*(FStep div c_StepDelay)*Max(Abs(FDirection.X),Abs(FDirection.Y));
    if (FDirection.X = 0) and (FDirection.Y = 0) then T.y := FPrecRow else
    if FDirection.Y = -1 then T.y := 0 else
    if FDirection.X = 1 then T.y := FPatternSize.Y else
    if FDirection.Y = 1 then T.y := 2*FPatternsize.Y else
      T.y:=3*FPatternSize.Y;
    //t.y:=0;
    FPrecRow := t.y;
    T.w := FPatternSize.X;
    T.h := FPatternSize.Y;
    T.Flip := false;
    T.Mirror := false;
 
    FCanvas.TexMap(FImages[FImageIndex],
      pBounds4(FClientX, FClientY, FPatternSize.X * c_ZoomFactor, FPatternSize.Y * c_ZoomFactor),
      clWhite4, t, fxBlend);
  end;

Voila j'espère que tu pourras t'en inspirer

**Jeannot Alpin** · 25/05/2006, 10h13

Merci je vais voir tout ca

**Jeannot Alpin** · 26/05/2006, 17h22

Pfffou, je suis désolé de t'ennuyer mais je n'y arrive vraiment pas !

Si j'ai bien compris : t.w t.h sont les dimensions d'une image du sprite.
et t.x et t.y sont la position de l'image du sprite qu'on veut.
Pour changer d'image ont le met dans Onprocess du asphyretimer ?
et quand je fais ca les images vont beaucoups trop vite et je ne sais pas pourquoi mais elle toute déformée.

Code :

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

asphyrecanvas1.TexMap(asphyreimages1[1],pbounds4(10,10,248,220),clwhite4,t,fxblend);

dans pbounds4() ont met la taille de l'image ou celle de chaque petite image ?

Et aussi une question toute conne : comment on fais pour savoir la taille de chaque pattern ?

**[Silk]** · 27/05/2006, 10h04

Salut,

Envoyé par Jeannot Alpin

Pour changer d'image ont le met dans Onprocess du asphyretimer ?

non il faut que tu le mettes dans le OnRender du TAsphyreDevice

Envoyé par Jeannot Alpin

et quand je fais ca les images vont beaucoups trop vite et je ne sais pas pourquoi mais elle toute déformée.

c'est parce que tu n'a pas mis la ligne dans le OnRender j'ai eu exactement le même problème il n'y a pas très longtemps

Envoyé par Jeannot Alpin

dans pbounds4() ont met la taille de l'image ou celle de chaque petite image ?

Pbounds4 correspond au dimensions de ce que tu veux afficher or tu ne veux pas afficher toute l'image ou il y a tes petites images (du moins je pense), donc il te faut mettre la taille des petites images.

Envoyé par Jeannot Alpin

comment on fais pour savoir la taille de chaque pattern ?

nous, on la spécifie nous même à la création.

**Jeannot Alpin** · 27/05/2006, 13h27

ok merci, je vais réessayer !

**Jeannot Alpin** · 27/05/2006, 13h49

merci ca marche mieux maintenant

Mais j'ai une derniere question : il faut bien mettre un sleep dans Onrender ?

**[Silk]** · 27/05/2006, 13h56

Envoyé par Jeannot Alpin

il faut bien mettre un sleep dans Onrender ?

euh... Pourquoi ? moi je n'en met pas et sa marche très bien

**Jeannot Alpin** · 27/05/2006, 14h01

bah sinon ca va beaucoup trop vite : les images defilent trop vite et on voit rien mais je me suis peut etre planté quelque part !

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
procedure TForm1.AsphyreDevice1Render(Sender: TObject);
begin
if getkeystate(VK_RIGHT)<0 then
        begin
        t.y:=57 ;
        if t.x>=80 then t.x:=1 ;
        t.x:=t.x+41 ;
        bdroite:=bdroite+1 ;
        //sleep(100) ;
        end;
if getkeystate(VK_LEFT)<0 then
        begin
        t.y:=167 ;
        if t.x>=80 then t.x:=1 ;
        t.x:=t.x+41 ;
        bdroite:=bdroite-1 ;
        //sleep(100) ;
        end;
if getkeystate(VK_UP)<0 then
        begin
        t.y:=1 ;
        if t.x>=80 then t.x:=1 ;
        bhaut:=bhaut-1 ;
        t.x:=t.x+41 ;
        //sleep(100) ;
        end;
if getkeystate(VK_DOWN)<0 then
        begin
        t.y:=115 ;
        if t.x>=80 then t.x:=1 ;
        bhaut:=bhaut+1 ;
        t.x:=t.x+41 ;
        //sleep(100) ;
        end;
 
asphyrecanvas1.TexMap(asphyreimages1[1],pbounds4(bdroite,bhaut,41,53),clwhite4,t,fxblend);
end;

c'est comme ca qu'il faut faire ?

**[Silk]** · 27/05/2006, 14h20

Les reconnaissances de touches il faut les mettre dans le OnProcess du Timer normalement, et dans le OnRender il n'y a que les procédures pour afficher les images.

Un conseil : fait toi une classe pour regrouper ton code. Avant je faisait qu'avec des records et avec le code dans l'unité principale,mais dès que tu compliques un peu le code (collisions, plusieurs sprites etc...) sa devient rapidement ingerrable... Après si tu fait tes classes dans une autre unité il te suffit de l'ajouter dans les uses d'un nouveau projet et tu peux continuer avec tes bases au lieu de tout refaire

**Fabrice ROUXEL 1** · 27/05/2006, 14h21

Silk, as tu une demo téléchargeable de ton moteur 2D?

**[Silk]** · 27/05/2006, 14h25

ben disont que c'est un peu éclaté actuellement, comme on est plusieurs sur le projet... puisque léo fait les sons, Pedro les menus, et moi l'affichage
je peux toujours t'envoyer mon executable mais il n'est pas encore très avancé...

**Fabrice ROUXEL 1** · 27/05/2006, 14h34

Oui, dépose le sur votre blog je le téléchargerai.

**Jeannot Alpin** · 27/05/2006, 14h38

Ok remerci encore

!

Je suis encore qu'un débutant et je voudrais savoir qu'est ce que tu entend Sinon moi aussi je vais bien si possible les sources de votre projet dès que ca sera possible, Merci !

**[Silk]** · 27/05/2006, 15h02

voilà mes sources actuelles, beaucoup de choses ne sont pas encore codées mais il marche

sources.zip

et ce que j'entend par classes c'est comme de créer un composant,
va voir ici pour plus d'explications :
http://sjrd.developpez.com/delphi/de...ls/composants/

**Jeannot Alpin** · 27/05/2006, 15h41

On va examiner ca alors !

gifs avec asphyre

Delphi

Discussions similaires

Partager

Partager