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

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 ).

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é 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 !

(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 ?

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.

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

Merci beaucoup !

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 ?

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

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.

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

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...

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)

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

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.