[Axe] Faire défiler un fond d'écran

Voir le sujet précédent Voir le sujet suivant Aller en bas

[Axe] Faire défiler un fond d'écran

Message par matrefeytontias le Dim 8 Avr - 18:04

Ceci est une copie du tuto que j'ai posté sur Ti-Planet, donc de toute façon pas de souci de copyright c'est moi qui l'ai fais (promis je me suis donné la permission Gni ).

Si vous voulez coder un bon vieux jeu arcade en Axe, vous voudrez sûrement avoir un paysage défilant derrière le perso.

Ici, je vais vous montrer comment faire défiler UNE image 96*64 d'un bout à l'autre de l'écran pour donner l'impression d'un paysage défilant.

Prenons une image quelconque :
[Vous devez être inscrit et connecté pour voir cette image]
Et faisons-la défiler à l'écran, disons de droite à gauche !

Le manière de procéder est simple :

  • Au tout début, on affiche l'image sur l'écran
  • On entre dans la boucle principale (comme un Repeat getkey)
  • On copie la toute première colonne de pixels dans une zone libre
  • On décale l'écran à gauche : une ligne blanche apparaît à droite
  • On recopie la colonne précédemment sauvegardée tout à droite

De cette manière, chaque partie sortant de l'écran va se retrouver de l'autre côté !

En pratique, c'est pas beaucoup plus dur, commençons par l'initialisation :
Code:
:.SCROLL
:.Absorption de l'image
:[Pic1]→Pic1
:
:.On copie l'image à l'écran sans la dernière ligne
:Copy(Pic1,L6,756
:
:Repeat getKey(15)
:
:End
Maintenant on va pouvoir entrer dans le vif du sujet.

En premier : copier la première colonne de l'écran. On va pour cela copier l'état du premier bit de chaque ligne, avec 0 = pixel éteint et 1 = pixel allumé. Sachant que chaque ligne a 96 pixels, 96 pixels / 8 bits = 12, donc une ligne est représentée par 12 octets. Ce qui signifie que pour passer à la colonne suivante, il faut progresser par bonds de 12 octets.

Pour trouver l'état d'un bit, on utilise la commande EXPeBIT. Le e est la constante d'Euler, qu'on obtient avec [2nd]+[÷]. EXP est l'expression dont le bit doit être testé, et BIT le numéro du bit entre 0 et 7.

Attention cependant : normalement, on compte les bits de droite à gauche, avec le premier représenté par 7 et le dernier par 0. En Axe, c'est l'inverse ! Le premier est 0 et le dernier 7.

On peut donc trouver l'état du bit de chaque ligne de l'écran (sauf la denière) avec une simple boucle For. Mais cet état, il faut le stocker quelque part, donc prenons L1 comme aire libre :
Code:
:Repeat getKey(15)
:For(r1,0,62
:{r1*12+L6}e0→{r1+L1
:End
Ici, chaque premier bit de chaque colonne de l'écran est enregistré dans L1. Maintenant, on décale l'écran avec Horizontal - et on passe à la dernière étape, recopier le contenu de L1 à la toute droite de l'écran.

À ce point, on a L6 avec notre image affichée avec une colonne blanche à droite et L1 pleine de 0 et de 1 sur 64 octets (et pas bits !). Pour recopier notre colonne sortante à droite, il faut activer ou désactiver ses bits selon le contenu de L1, mais sans toucher aux autres bits ! Alors nous devons utiliser OR, qui ne peut qu'activer des bits et pas les désactiver !
Code:
:Horizontal -
:For(r1,0,62
:.On ajoute 11 octets pour arriver à droite
:{r1+L1} or {r1*12+11+L6}→{r1*12+11+L6
:End
:DispGraph
:End
Notez que cette grosse ligne moche peut être optimisée en :
Code:
:{r1+L1} or {r1*12+11+L6→r2}→{r2

Ensuite on affiche L6, mais surtout on ne l'efface pas avec ClrDraw, parce qu'à aucun moment on ne redessine l'image !

Résultat :
Code:
:.SCROLVER
:[Pic1]→Pic1
:
:Copy(Pic1,L6,756
:
:Repeat getKey(15)
:For(r1,0,62
:{r1*12+L6}→{r1+L1
:End
:Horizontal -
:For(r1,0,62
:{r1+L1} or {r1*12+11+L6→r2}→{r2
:End
:DispGraph
:End

[Vous devez être inscrit et connecté pour voir cette image]

C'est aussi simple que ça !

Pour faire un scrolling en des sens différents, la technique est la même : pour scroller de gauche à droite, il faut remplacer Horizontal - par Horizontal + et copier la dernière ligne vers la première. Pour cela, il faut faire {r1*12+11+L6}e7, le multiplier par 128 pour déplacer le bit vers la toute gauche et utiliser OR sur {r1*11+L6}.

Par contre, pour scroller de haut en bas ou de bas en haut, la technique n'est pas la même :

  • Au lieu de copier le dernier bit de chaque douzième octet, on copie carrément les douze premiers octets (ou derniers) et on utilise → à la place de OR
  • On remplace Horizontal par Vertical


Ceci dit, ça reste pas trop compliqué Très Content Voici le code pour un scrolling de bas en haut :
Code:
:.SCROLVER
:[Pic1]→Pic1
:
:Copy(Pic1,L6,756
:
:Repeat getKey(15)
:For(r1,0,11
:{r1+L6}→{r1+L1
:End
:Vertical -
:For(r1,0,11
:{r1+L1}→{r1+L6+744
:End
:DispGraph
:End
Le scrolling vertical est même largement plus simple que le scrolling horizontal !

[Vous devez être inscrit et connecté pour voir cette image]

Vous pouvez faire des choses plus poussées par exemple en faisant réagir le sens du scrolling avec la pression des flèches, ou même faire scroller une image dans deux sens à la fois !

_________________
[Axe] [Vous devez être inscrit et connecté pour voir ce lien], aussi compatible 82 stats !

[Vous devez être inscrit et connecté pour voir ce lien]
[Vous devez être inscrit et connecté pour voir ce lien]

Spoiler:

matrefeytontias
Platinum 1
Platinum 1

Sexe : Masculin
Age : 19
Messages : 1383
Date d'inscription : 28/09/2011
Etudes : 1ère S SI
Points Forum : 90
Points Concours : 7
Langages :
  • - ASM TI-82 Stats / TI-83
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
  • - Lua Nspire
  • - Ndless Nspire
Calculatrices :
  • - TI-83+.fr
  • - TI-Nspire CAS

TI-83+.fr


Revenir en haut Aller en bas

Re: [Axe] Faire défiler un fond d'écran

Message par maxence le Dim 8 Avr - 22:20

(je debute en axe je le rappel), avec la ligne "[pic1]->pic1", il faut enregistrer au prealable l'image dans le pic1 pour pouvoir la retrouver ?

maxence
Or 4
Or 4

Sexe : Masculin
Age : 20
Messages : 574
Date d'inscription : 26/02/2012
Etudes : 1ere S SI
Points Forum : 17
Points Concours : 0
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-84+

TI-84+


Revenir en haut Aller en bas

Re: [Axe] Faire défiler un fond d'écran

Message par matrefeytontias le Dim 8 Avr - 22:32

Ouaip. Avec cette ligne, on va chercher l'image Pic1 de la calculatrice et on la copie dans le pointeur Axe Pic1.

L'intérêt des crochets c'est que l'image est intégrée dans le programme une fois compilé, donc on en a plus besoin.

_________________
[Axe] [Vous devez être inscrit et connecté pour voir ce lien], aussi compatible 82 stats !

[Vous devez être inscrit et connecté pour voir ce lien]
[Vous devez être inscrit et connecté pour voir ce lien]

Spoiler:

matrefeytontias
Platinum 1
Platinum 1

Sexe : Masculin
Age : 19
Messages : 1383
Date d'inscription : 28/09/2011
Etudes : 1ère S SI
Points Forum : 90
Points Concours : 7
Langages :
  • - ASM TI-82 Stats / TI-83
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
  • - Lua Nspire
  • - Ndless Nspire
Calculatrices :
  • - TI-83+.fr
  • - TI-Nspire CAS

TI-83+.fr


Revenir en haut Aller en bas

Re: [Axe] Faire défiler un fond d'écran

Message par Invité le Lun 1 Juil - 9:46

Super pratique ce tuto ! Je pense que je vais m'en servir dans Windows Calc Edition Familiale Prenium !

Merci beaucoup !

Invité
Invité


Revenir en haut Aller en bas

Re: [Axe] Faire défiler un fond d'écran

Message par Hayleia le Lun 1 Juil - 10:13

Pour le scrolling vertical, pourquoi tu utilises des boucles For et pas des Copy ? Certes c'est un tuto donc je comprends que tu ne mettes pas du code super-optimisé, mais le Copy est la base quand même non ?

Hayleia
Or 4
Or 4

Age : 22
Messages : 406
Date d'inscription : 03/08/2012
Points Forum : 45
Points Concours : 4
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-76.fr
  • - TI-83+
  • - TI-84+ SE
  • - TI-Nspire CX

TI-84+ SE


Revenir en haut Aller en bas

Re: [Axe] Faire défiler un fond d'écran

Message par nikitouzz le Mar 2 Juil - 21:14

Par contre matref, ferme les crochet et les parenthese car ca donne des mauvaise habitude a ceux qui font de l'axe...

_________________
[Vous devez être inscrit et connecté pour voir cette image]
Invité née le 0 a aujord'huis 0 ans et a posté 11 messages... je suis derrière vous

2x2x2 : 2.18 secondes / 2x2x2 une main : 21.15 secondes / 2x2x2 yeux bandés : 47.59
3x3x3 : 5.97 secondes / 3x3x3 une main : 49.86 secondes
4x4x4 : 1.49 minutes / 4x4x4 une main : 6.50 minutes
5x5x5 : 4.10 minutes / 5x5x5 une main : 18.02 minutes
6x6x6 : 8.10 minutes
7x7x7 : 16.03 minutes
9x9x9 : 58.26 minutes

3x3x1 : 0.73secondes / 3x3x2 : 30.55secondes / 3x3x3 : 5.97secondes / 3x3x4 : 1.09minutes / 3x3x5 : 1.46minutes / 3x3x6 : 2.06minutes

megaminx : 5.59 minutes / pyraminx : 7.91 secondes / square-one : 1.07

nikitouzz
Platinum 1
Platinum 1

Sexe : Masculin
Age : 21
Messages : 1834
Date d'inscription : 16/01/2011
Points Forum : 7
Points Concours : 6
Langages :
  • - TI-Basic Z80
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
  • - TI-Basic 68K
  • - TI-Basic Nspire
Calculatrices :
  • - TI-73
  • - TI-76.fr
  • - TI-82 Stats.fr
  • - TI-83+
  • - TI-84+
  • - TI-92
  • - TI-Nspire
  • - TI-Nspire CX

TI-84+ SE


Revenir en haut Aller en bas

Re: [Axe] Faire défiler un fond d'écran

Message par Hayleia le Mer 3 Juil - 5:55

sachiix69 a écrit:Par contre matref, ferme les crochet et les parenthese car ca donne des mauvaise habitude a ceux qui font de l'axe...
Oui, certes on sait que tu as une 83+BE et que tu veux donc préserver ton archive par tous les moyens que tu peux, mais ferme les au moins dans les tutos.

Hayleia
Or 4
Or 4

Age : 22
Messages : 406
Date d'inscription : 03/08/2012
Points Forum : 45
Points Concours : 4
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-76.fr
  • - TI-83+
  • - TI-84+ SE
  • - TI-Nspire CX

TI-84+ SE


Revenir en haut Aller en bas

Re: [Axe] Faire défiler un fond d'écran

Message par nikitouzz le Mer 17 Juil - 16:12

Et c'est bien de mettre aussi en spoiler des version optimisé Content 

Code:
GetCalc("Pic0")→A
While 1
DispGraph(A)
copy(,L1,12)
vetrtical -(A)
copy(L1,A+744,12)
EndIf getKey(15)
(merci hayleia) Bon d'accord c'est pas tres beau comme scrolling mais bon ^^

A la limite je trouve ca même plus simple expliqué comme cela...

_________________
[Vous devez être inscrit et connecté pour voir cette image]
Invité née le 0 a aujord'huis 0 ans et a posté 11 messages... je suis derrière vous

2x2x2 : 2.18 secondes / 2x2x2 une main : 21.15 secondes / 2x2x2 yeux bandés : 47.59
3x3x3 : 5.97 secondes / 3x3x3 une main : 49.86 secondes
4x4x4 : 1.49 minutes / 4x4x4 une main : 6.50 minutes
5x5x5 : 4.10 minutes / 5x5x5 une main : 18.02 minutes
6x6x6 : 8.10 minutes
7x7x7 : 16.03 minutes
9x9x9 : 58.26 minutes

3x3x1 : 0.73secondes / 3x3x2 : 30.55secondes / 3x3x3 : 5.97secondes / 3x3x4 : 1.09minutes / 3x3x5 : 1.46minutes / 3x3x6 : 2.06minutes

megaminx : 5.59 minutes / pyraminx : 7.91 secondes / square-one : 1.07

nikitouzz
Platinum 1
Platinum 1

Sexe : Masculin
Age : 21
Messages : 1834
Date d'inscription : 16/01/2011
Points Forum : 7
Points Concours : 6
Langages :
  • - TI-Basic Z80
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
  • - TI-Basic 68K
  • - TI-Basic Nspire
Calculatrices :
  • - TI-73
  • - TI-76.fr
  • - TI-82 Stats.fr
  • - TI-83+
  • - TI-84+
  • - TI-92
  • - TI-Nspire
  • - TI-Nspire CX

TI-84+ SE


Revenir en haut Aller en bas

Re: [Axe] Faire défiler un fond d'écran

Message par Hayleia le Mer 17 Juil - 16:47

C'est pas le plus optimisé. Ta version fait 194 octets, la mienne (plus bas) en fait 178.

Code:
GetCalc("Pic0")->A
While 1
 DispGraph(A->r1)
 For(63)
  Exch(r1,+12->r1,12)
 End
EndIf getKey(15)

(même plus de commande Vertical)

Hayleia
Or 4
Or 4

Age : 22
Messages : 406
Date d'inscription : 03/08/2012
Points Forum : 45
Points Concours : 4
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-76.fr
  • - TI-83+
  • - TI-84+ SE
  • - TI-Nspire CX

TI-84+ SE


Revenir en haut Aller en bas

Re: [Axe] Faire défiler un fond d'écran

Message par nikitouzz le Mer 17 Juil - 21:30

Oui mais hayleia, c'est vraiment tres moche quand c'est mis en oeuvre, essaye ^^

_________________
[Vous devez être inscrit et connecté pour voir cette image]
Invité née le 0 a aujord'huis 0 ans et a posté 11 messages... je suis derrière vous

2x2x2 : 2.18 secondes / 2x2x2 une main : 21.15 secondes / 2x2x2 yeux bandés : 47.59
3x3x3 : 5.97 secondes / 3x3x3 une main : 49.86 secondes
4x4x4 : 1.49 minutes / 4x4x4 une main : 6.50 minutes
5x5x5 : 4.10 minutes / 5x5x5 une main : 18.02 minutes
6x6x6 : 8.10 minutes
7x7x7 : 16.03 minutes
9x9x9 : 58.26 minutes

3x3x1 : 0.73secondes / 3x3x2 : 30.55secondes / 3x3x3 : 5.97secondes / 3x3x4 : 1.09minutes / 3x3x5 : 1.46minutes / 3x3x6 : 2.06minutes

megaminx : 5.59 minutes / pyraminx : 7.91 secondes / square-one : 1.07

nikitouzz
Platinum 1
Platinum 1

Sexe : Masculin
Age : 21
Messages : 1834
Date d'inscription : 16/01/2011
Points Forum : 7
Points Concours : 6
Langages :
  • - TI-Basic Z80
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
  • - TI-Basic 68K
  • - TI-Basic Nspire
Calculatrices :
  • - TI-73
  • - TI-76.fr
  • - TI-82 Stats.fr
  • - TI-83+
  • - TI-84+
  • - TI-92
  • - TI-Nspire
  • - TI-Nspire CX

TI-84+ SE


Revenir en haut Aller en bas

Re: [Axe] Faire défiler un fond d'écran

Message par Hayleia le Jeu 18 Juil - 6:59

nikitouzz a écrit:Oui mais hayleia, c'est vraiment tres moche quand c'est mis en oeuvre, essaye ^^
Ben j'ai essayé qu'est-ce que tu crois ? Et je vois pas en quoi c'est moche (avec un 63, pas un 64), ça scrolle l'écran de manière tout à fait normale.

Hayleia
Or 4
Or 4

Age : 22
Messages : 406
Date d'inscription : 03/08/2012
Points Forum : 45
Points Concours : 4
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-76.fr
  • - TI-83+
  • - TI-84+ SE
  • - TI-Nspire CX

TI-84+ SE


Revenir en haut Aller en bas

Re: [Axe] Faire défiler un fond d'écran

Message par Contenu sponsorisé Aujourd'hui à 18:16


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum