Scrolling latéral style "montagnes" (astuce)

→ **MyCalcs** profile · de **Epharius** » 24 Jan 2016, 14:32

La map est d'abord générée aléatoirement dans les listes L1, L2 et L3 puis "lue".

Après quelques tests, ta version est difficilement optimisable ! Les lists sont toujours plus rapides que les Strings, les aléat et tous les autres types de variable.
Ce qu'on peut noter :
- plus l'espace de jeu est petit, plus ça va vite : sur Ti-83PCE, ça va 2x moins vite que sur 83+
- on pourrait recommencer à lire le premier élément de list une fois arrivé à l'élément 998 (999 étant impossible à cause d'un L3(F+1))
- ça ne marche bien sur Ti-82 stats(.fr), j'ai jamais su qu'on pouvait faire ça avant...

Voilou, je vais essayer de voir si y'a pas quand même un moyen de faire aller plus vite, sans utiliser les langages alternatifs bien sûr.

→ **MyCalcs** profile · de **EL PHARA** » 06 Fév 2016, 17:10

Woua ^^

→ **MyCalcs** profile · de **grosged** » 12 Fév 2016, 00:56

Optimisation , encore!

J'ai obtenu un scrolling un peu plus fluide/rapide en remplaçant l'utilisation exclusive d'élements de liste dans les LINE(
par des variables autant que possible (traitement plus rapide)
Désolé pour l'absence d'explications, je verrai ça ultérieurement, il se fait tard ...

NB: capture video provenant d'un émulateur (meilleur rendu sur calculatrice , et le vaisseau ne clignote pas)

PROGRAM:SCROLL2

Code: Tout sélectionner: CoordOff GridOff AxesOff LabelOff ExprOff 0→Xmin 0→Ymin .5→DeltaX .5→DeltaY 100→dim(L1 Ans→dim(L2 Ans→dim(L3 48→L1(1:Ans→A:Ans→E:Ans→I:Ans→M DelVar BDelVar FDelVar JDelVar N randInt(4,15→Y 48+Y→L2(1 Ans→C:Ans→G:Ans→K:Ans→O Y→L3(1 Ans→D:Ans→H:Ans→L:Ans→P 1→Q:1→R:1→S:1→T DelVar V For(U,2,100 Repeat V and 0<Y+V and 29>Y+V randInt(~15,15→V End 32+16U→L1(U Ans+abs(V→L2(U Y+V→L3(U Ans→Y End ClrDraw 1→W 1→θ 10→X:10→Y Repeat W>96 For(θ,θ,θ+15 Line(A-θ,B,C-θ,D,Q Line(E-θ,F,G-θ,H,R Line(I-θ,J,K-θ,L,S Line(M-θ,N,O-θ,P,T getKey→Z Line(X,Y,X+2,Y,0 X+(Z=26)-(Z=24→X Y+(Z=25)-(Z=34→Y Line(X,Y,X+2,Y End W+1→W L1(W→A P→B L2(W→C L3(W→D B<D→Q For(θ,θ,θ+15 Line(A-θ,B,C-θ,D,Q Line(E-θ,F,G-θ,H,R Line(I-θ,J,K-θ,L,S Line(M-θ,N,O-θ,P,T getKey→Z Line(X,Y,X+2,Y,0 X+(Z=26)-(Z=24→X Y+(Z=25)-(Z=34→Y Line(X,Y,X+2,Y End W+1→W L1(W→E D→F L2(W→G L3(W→H F<H→R For(θ,θ,θ+15 Line(A-θ,B,C-θ,D,Q Line(E-θ,F,G-θ,H,R Line(I-θ,J,K-θ,L,S Line(M-θ,N,O-θ,P,T getKey→Z Line(X,Y,X+2,Y,0 X+(Z=26)-(Z=24→X Y+(Z=25)-(Z=34→Y Line(X,Y,X+2,Y End W+1→W L1(W→I H→J L2(W→K L3(W→L J<L→S For(θ,θ,θ+15 Line(A-θ,B,C-θ,D,Q Line(E-θ,F,G-θ,H,R Line(I-θ,J,K-θ,L,S Line(M-θ,N,O-θ,P,T getKey→Z Line(X,Y,X+2,Y,0 X+(Z=26)-(Z=24→X Y+(Z=25)-(Z=34→Y Line(X,Y,X+2,Y End W+1→W L1(W→M L→N L2(W→O L3(W→P N<P→T End

→ **MyCalcs** profile · de **Epharius** » 12 Fév 2016, 14:30

Super ! Mais comme je le disais dans le chat, les sous-programmes usent pas mal de vitesse, pour un gain de place, certes, mais une perte notable de vitesse.
Donc, je te conseille de faire un copier/coller du sous-programme avec

tu cherches ton programme et tu appuies deux fois sur

Sinon, je pense que tu as mis un mauvais lien, en téléchargeant le programme principal je tombe sur l'ancienne version.

→ **MyCalcs** profile · de **Ti64CLi++** » 12 Fév 2016, 15:41

Bravo pour cette amélioration. Tu voudrais pas faire ta propre fonction Horizontal en Axe

→ **MyCalcs** profile · de **grosged** » 12 Fév 2016, 15:55

Merci, neuronix

En Axe? Je ne connais pas, désolé.

Voici la version 3 , appelée scroll3

Code: Tout sélectionner: CoordOff GridOff AxesOff LabelOff ExprOff 0→Xmin 0→Ymin .5→ΔX .5→ΔY 100→dim(L2 Ans→dim(L3 48→A:Ans→E:Ans→I:Ans→M DelVar BDelVar FDelVar JDelVar N randInt(4,15→Y 48+Y→L2(1 Ans→C:Ans→G:Ans→K:Ans→O Y→L3(1 Ans→D:Ans→H:Ans→L:Ans→P 1→Q:1→R:1→S:1→T DelVar V For(U,2,100 Repeat V and 0<Y+V and 29>Y+V randInt(-15,15→V End 32+16U+abs(V→L2(U Y+V→L3(U Ans→Y End ClrDraw 1→W 1→θ 10→X:10→Y Repeat W>96 For(θ,θ,θ+15 Line(A-θ,B,C-θ,D,Q Line(E-θ,F,G-θ,H,R Line(I-θ,J,K-θ,L,S Line(M-θ,N,O-θ,P,T getKey→Z Line(X,Y,X+2,Y,0 X+(Z=26)-(Z=24→X Y+(Z=25)-(Z=34→Y Line(X,Y,X+2,Y End W+1→W θ+47→A P→B L2(W→C L3(W→D B<D→Q For(θ,θ,θ+15 Line(A-θ,B,C-θ,D,Q Line(E-θ,F,G-θ,H,R Line(I-θ,J,K-θ,L,S Line(M-θ,N,O-θ,P,T getKey→Z Line(X,Y,X+2,Y,0 X+(Z=26)-(Z=24→X Y+(Z=25)-(Z=34→Y Line(X,Y,X+2,Y End W+1→W θ+47→E D→F L2(W→G L3(W→H F<H→R For(θ,θ,θ+15 Line(A-θ,B,C-θ,D,Q Line(E-θ,F,G-θ,H,R Line(I-θ,J,K-θ,L,S Line(M-θ,N,O-θ,P,T getKey→Z Line(X,Y,X+2,Y,0 X+(Z=26)-(Z=24→X Y+(Z=25)-(Z=34→Y Line(X,Y,X+2,Y End W+1→W θ+47→I H→J L2(W→K L3(W→L J<L→S For(θ,θ,θ+15 Line(A-θ,B,C-θ,D,Q Line(E-θ,F,G-θ,H,R Line(I-θ,J,K-θ,L,S Line(M-θ,N,O-θ,P,T getKey→Z Line(X,Y,X+2,Y,0 X+(Z=26)-(Z=24→X Y+(Z=25)-(Z=34→Y Line(X,Y,X+2,Y End W+1→W θ+47→M L→N L2(W→O L3(W→P N<P→T End

Archive : https://tiplanet.org/modules/archives/d ... ?id=432351

→ **MyCalcs** profile · de **Epharius** » 12 Fév 2016, 15:56

Bien optimisé là !
Prochaine étape, ce n'est pas le vaisseau qui bouge mais le décor

→ **MyCalcs** profile · de **grosged** » 14 Fév 2016, 23:30

Le programme avance...doucement mais surement

J'en suis à la version 4, je l'ai baptisé Scrollin' Mountains (ouais je sais , je ne me suis pas trop cassé la tête, là )
J'ai inclu une gestion des mouvements du vaisseau à la Flappy Bird.
J'ai affiché le nom du jeu eu haut de l'écran (méthode de flemmard pour constituer une barrière!)
Et j'ai trouvé une astuce pour avoir un clavier plus réactif (c-'est-à-dire sans "à-coups" ) :
Explication au moyen d'un tout petit programme:

Code: Tout sélectionner: While 1 Disp getKey End

Tant qu'on n'appuie sur rien, getKey nous renvoie la valeur 0
Sauf exceptions, si l'on presse une touche et laisse appuyé, une valeur apparaît brièvement (donc aucune répétition)
Les exceptions sont les 4 touches fléchées et la touche suppr : elles donneront furtivement une valeur , puis, au bout d'une seconde environ, la répétition s'effectuera.
Maintenant, laissons appuyé l'une de ces 5 touches (par exemple suppr), puis , de temps en temps, appuyons sur une autre touche (par exemple : entrer )
Nous obtenons enfin un clavier sans aucun délai avant répétition , vraiment réactif !!!

C'est ainsi que le vaisseau sera dirigé dans Scrollin' Mountains : il réagira dès que getKey sera nul !
Il faudra donc laissé suppr (par exemple) appuyé dès le lancement du programme (alors qu'il calcule les collines)

Voici en détail le programme SCROLL4 : ( archives_voir.php?id=433543 )

Code: Tout sélectionner: CoordOff GridOff AxesOff LabelOff ExprOff 0→Xmin:0→Ymin .5→ΔX:.5→ΔY ClrDraw Text(0,5,"* SCROLLIN' MOUNTAINS * 48→A:Ans→E:Ans→I:Ans→M DelVar BDelVar FDelVar JDelVar N randInt(2,15→Y 48+Y→C:Ans→G:Ans→K:Ans→O Ans→L2(1 Y→L3(1 Ans→D:Ans→H:Ans→L:Ans→P 1→Q:1→R:1→S:1→T 100→dim(L2 Ans→dim(L3 For(U,2,Ans Repeat V and -V<Y and Y+V<23 randInt(-15,15→V End 32+16U+abs(V→L2(U Y+V→L3(U Ans→Y End 1→W 1→θ 25→U Repeat W>96 prgmSOUSPROG θ+47→A:P→B L2(W→C:L3(W→D B<D→Q prgmSOUSPROG θ+47→E:D→F L2(W→G:L3(W→H F<H→R prgmSOUSPROG θ+47→I:H→J L2(W→K:L3(W→L J<L→S prgmSOUSPROG θ+47→M:L→N L2(W→O:L3(W→P N<P→T End

Suivi du programme SOUSPROG :

Code: Tout sélectionner: Y For(θ,θ,θ+15 Line(A-θ,B,C-θ,D,Q Line(E-θ,F,G-θ,H,R Line(I-θ,J,K-θ,L,S Line(M-θ,N,O-θ,P,T If pxl-Test(64-2Ans,48:Goto 9 Pt-Off(24,Ans,2 Ans-1+2not(getKey Pt-On(24,Ans,2 End Ans→Y:W+1→W Return Lbl 9 For(Y,0,13 Pt-Off(24.5-rand,Ans+.5-rand,randInt(2,3 Pt-On(24.5-rand,Ans+.5-rand,randInt(2,3 End Stop

Epharius, j'ai laissé tomber le copier/coller de SOUSPROG (c'était trop galère, à chaque modification)
De toute façon, le gain apporté était très faible (une fois tous les 16 décalages de colline)

Voilà, c'est pas loin de la version finale, je pense!

→ **MyCalcs** profile · de **DoOmnimaga** » 15 Fév 2016, 05:01

Excellent. La gestion des collisions est implanté dans le jeu, je présume? Une petite suggestion par contre: Éviter d'utiliser Goto à l'intérieur d'une boucle For, While, Repeat ou entre un Then ou un Else et un End, car le programme ralentit et ça bouffe une douzaine d'octets de RAM à chaque Goto utilisé d'une telle manière, donc si le jeu est relancé à maintes reprises sans quitter le programme, il y aura éventuellement un ERR:MEMORY et un ralentissement.