• Parcours de la pixelmap sans dépasser les limites de celle-ci.
• L'enregistrement dans l'appvar marchait très bien (bravo hayleia), mais maintenant c'est optimisé pour.
• Ajout de l'option "annuler dernière action" en appuyant sur le touche "del".

• Lors du passage sous smoothscrolling pixelmapping il y a un décalage. Il est possible que l'éditeur de map n'édite et ne sauvegarde pas avec une bonne largeur (j'ai déjà repéré la ligne), mais j'ai pas le temps de faire ça ce soir.

Also, will zStart support 5 character labels in the label menu ?

.PIXELM Map scrolling test
"|vSAVE"→^^oSAVE
L5→^^oIMG
Return!If GetCalc(^^oSAVE)
→IMG
DiagnosticOff
FnOff
ClrDraw
.Affichage de la map
Bitmap(~80→X,~64→Y,IMG)
...
Petites explications :
Les coordonnées X et Y sont compris entre ~160 et 0 (les deux)
Car 160+96=256
Y-1 c'est une ligne en dessous, et X-1 une colonne à droite
Autre optimisation
-X sera donc positif (de même pour -Y)
...

.Boucle principale
While 1

DispGraph

If getKey(1)
.Si il n'y a pas le bout de la map en bas
!If Y-1<~160
Y--
.On décale en bas
Vertical -

.Pour afficher la ligne 63 manquante
63:DrawY()
End
End

If getKey(2)
.Si il n'y a pas le bout de la map à gauche
If X
+1→X
.On décale à gauche
Horizontal +

.Pour afficher la colonne de gauche (L comme left) manquante
DrawL()
End
End

If getKey(3)
.Si il n'y a pas le bout de la map à droite
!If X-1<~160
X--
.On décale à droite
Horizontal -

.Pour afficher la colonne de droite (R comme right) manquante
DrawR()
End
End

If getKey(4)
.Si il n'y a pas le bout de la map en haut
If Y
+1→Y
.On décale en haut
Vertical +

.Pour afficher la ligne 0 manquante
0:DrawY()
End
End

EndIf getKey(15)
Return

.Affiche les lignes
Lbl DrawY
.On copie les 256 pixels d'une ligne de l'appvar dans L1+2
Copy(→r1-Y*32+IMG+2,L1+2,32)

...
On efface la ligne à remplacer
parce que la commande vertical +/- ne le fait pas
autant faire une optimisation pour remplir les deux premier octets de L1
correspondant à la taille de la bitmap à afficher
...
Fill(r1*12+L6,12,|E0100→{L1}^r)

.Et la c'est magique, la ligne s'affiche
Bitmap(X,r1,L1)
Return

.Pour la colonne de droite
Lbl DrawR
.Dans cette octet on est en haut à droite de l'écran (buffer)
11+L6→r3
.Ici le masque de l'écran est 00000001, parce que c'est bit tout à droite que l'on veut modifier
|E01→r4
95
Goto Draw0

.Pour la colonne de gauche
Lbl DrawL
.Dans cette octet on est en haut à gauche de l'écran (buffer)
L6→r3
.Le masque de l'écran est 10000000, parce qu'on veut modifier le bit tout à gauche
|E80→r4
and 0
 
 .Affiche les colonnes
Lbl Draw0
...
Rappel : HL-X vaut le nombre de colonnes
Optimisation assez tordue, nombre de colonnes^8 correspond au nombre de bits qui séparent le
dernier octet du bord de l'écran en valeur numérique
Donc quand ça vaut 0, r2 vaut le premier Masks10000000
Donc quand ça vaut 1, r2 vaut le deuxième Masks01000000
Donc quand ça vaut 2, r2 vaut le troisième Masks00100000
Donc quand ça vaut 3, r2 vaut le quatrième Masks00010000
Donc quand ça vaut 4, r2 vaut le cinquième Masks00001000
Donc quand ça vaut 5, r2 vaut le sixième Masks00000100
Donc quand ça vaut 6, r2 vaut le septième Masks00000010
Donc quand ça vaut 7, r2 vaut le huitième Masks00000001
...
Select(-X,{^8+^^oMasks}→r2)

.le nombre de colonnes/8 + le nombre de lignes (en octet) + le début de pointeur de la map dans HL
*32/256-(Y*32)+IMG+2

.Pour les 64 lignes
For(64)

...
Le plus chaud :
On masque octet trouvé dans l'appvar pour garder que le bit qu'il nous faut
Quand on soustrais par 1 et qu'on divise par 256 :
si aucun bit ne correspondait au mask, 0-1=65355 puis /256 ça fait 255
Si un bit correspondait au mask alors ça renvoie un nombre en 1 et 128 dans HL
HL-1/256 vaudra toujours 0 dans ce cas là (logique)
En inversé on créé un nouveau mask qui est soit 255 (un bit correspond au mask
soit 0 (aucun bit correspond au mask)
En fait cette manip sert juste à aligner le bit trouvé dans l'appvar, au bon
emplacement sur l'écran, donc là vient r4 le masque de l'écran
Ensuite un or logique permet d'ajouter le bit (ou non) dans le buffer (pointé par r3)
Et après il y a une dròle d'optimisation {r3}+12->r3 car ça fait r3+12->r3 en réalité o_o
...
not({→r1} and r2-1/256) and r4 or {r3}→{r3}+12→r3

.On passe la ligne suivante ^^
r1+32
End
Return


[8040201008040201]→^^oMasks

Generated by the BBify'r (http://clrhome.org/resources/bbify/)