Nous allons donc voir comment faire pour faire défiler l’écran en copiant non octet par octet mais bit par bit...
1) Nous allons tout d'abord absorber l'image enregistrée dans la calculatrice :
- Code: Tout sélectionner
:[pic0]->pic1
:dispgraph(pic1)
2) Il faut enregistrer l'état du premier bit de chaque ligne dans une liste :
- Code: Tout sélectionner
:0->r1
:for(64)
:({r1*12+L6}e0)->{r1+select(r1,+1->r1)}
:End
3) Ensuite on va tout simplement décaler le buffer d'un pixel :
- Code: Tout sélectionner
:horizontal -
4) Il faut donc ensuite copier l’état des bits enregistrés dans la liste L1 de l'autre côté :
- Code: Tout sélectionner
:0->r1
:for(64)
:{r1+L1}?{r1*12+11+L6->r2} or 1->{r2}
:r1++
:End
Ce qui nous donne en code final pour le scrolling de droite à gauche :
Show/Hide spoilerAfficher/Masquer le spoiler
- Code: Tout sélectionner
:[pic0]->pic1
:dispgraph(pic1)
:while 1
:0->r1
:for(64)
:({r1*12+L6}e0=1)->{r1+select(r1,+1->r1)}
:End
:horizontal -
:0->r1
:for(64)
:{r1+L1}=1?{r1*12+11+L6->r2} or 1->{r2}
:r1++
:End
:EndIf getkey
de gauche à droite :
Show/Hide spoilerAfficher/Masquer le spoiler
- Code: Tout sélectionner
:[pic0]->pic1
:dispgraph(pic1)
:while 1
:0->r1
:for(64)
:({r1*12+11+L6}e4=1)->{L1+select(r1,+1->r1)}
:End
:horizontal +
:0->r1
:for(64)
:{r1+L1}=1?{r1*12+L6->r2} or 128->{r2}
:r1++
:End
:EndIf getkey
De bas en haut :
Show/Hide spoilerAfficher/Masquer le spoiler
- Code: Tout sélectionner
:[pic0]->pic1
:dispgraph(pic1)
:while 1
:0->r1
:for(12)
:{R1+L6}->{L1+select(r1,+1->r1)}
:End
:vertical -
:0->r1
:for(12)
:{r1+L1}->{select(r1,+1->r1)+744+L6}
:End
:EndIf getkey
De haut en bas :
Show/Hide spoilerAfficher/Masquer le spoiler
- Code: Tout sélectionner
:[pic0]->pic1
:dispgraph(pic1)
:while 1
:dispgraph
:0->r1
:for(12)
:{r1+744+L6}->{L1+select(r1,+1->r1)}
:End
:vertical +
:0->r1
:for(12)
:{r1+L1}->{select(r1,+1->r1)+L6}
:End
:EndIf getkey
Enjoy