Magazine Pom's : la collection

UFS permet de fusionner deux tables
de shapes cl' origines différentes en
une seule, en renumérotant les
shapes de la seconde dans la succession
de celles de la première, et dispense
ainsi d'alterner les deux tables
comme on le ferait avec les deux
POKEs classiques (POKE 232,
Adresse Basse et POKE 233, Adresse
Haute) si l'on avait voulu utiliser
deux tables de shapes avec un
même programme.
La logique des opérations se déduit
naturellement de la structure d'une
table de shapes de ]' Applesoft, que
l'on peut rappeler id en quelques
mots.
Le manuel de référence de ]' Apple Il
(page 95) illustre cette structure par
un shéma représentant une table 00
l'on distingue trois parties :
1 - La taille de la table occupe les
deux premiers octets. Toutefois,
comme cette taille est limitée à 255,
seul le premier octet est effectivement
utilisé.
2 - La table d'adresses occupe autant
de fois deux positions qu'il y a de
shapes dans la table. Le premier
octet, comme il se doit, contient la
partie basse de l'adresse de la shape
correspondante, le second la partie
haute.
3 - Comme dans la table des adresses,
les shapes se suivent dans l'ordre
de la numérotation uti lisée par
les instructions DRAW et XDRAW et
elles forment la troisième partie de la
Programme UFS
100 HIMEM : 8191
110 Dl 0 16384
120 DS 0 CHR$ (41
130 REM
140 HOME
FUSION DE SHAPES
PAR DENIS SUREAU
150 LIST 130:A 0 912:
: REM SCROLL
Fusion de tables de shapes
table. Chaque shape est terminée par
un O.
Partant de là, fusionner deux tables
revient au traitement suivant :
1 - Additionner les nombres de
shapes et placer le résultat obtenu au
début du nouveau module.
2 - Mettre bout à bout les deux
tables d'adresses en rectifiant leurs
valeurs. Ce sont bien sOr des adresses
relatives qui se comptent par rapport
au début de la table de shapes.
Les adresses dans la première table
sont augmentées de la taille de la
partie 2 de la seconde qui s'intercale
entre les parties 2 et 3 de la première.
Les adresses de la seconde
table sont augmentées des tailles des
parties 2 et 3 de la première.
3 - Après les deux tables d'adresses,
on met bout à bout les deux blocs
de shapes.
Le petit schéma qui suit devrait aider
à mieux suivre les calculs effectués
par le programme.
TABLE 1 TABLE 2 FUSION
1) Taille 1) TaUle 1) Taille
NI prend 2 N2 prend 2 N3=NI +N2 sur
oct •• - 20ctru
2) Adresses 2) Adresses 2) Adresses
Nh2 octets N2.2 octets (NI+N2).2
.,
3) Silapes 3) Shapes 3) Shapes
X1 _ X2 oc Xl+X2 octets
Le programme
principes en
160 PRINT "DONNEZ '1' POUR AVOIR LE CAT
170 REt!
ALOGUE": PRINT
CHARGE SHAPE TABLE 1
180 INPUT "NOM DE LA ST 1#1 :";31$
190 IF Sl$ = " 1" TH EN PRINT CHR$ (4)"
CATALOG": GOTO 180
200 PRINT OS"BLOAO"31$" , A"D1
Pom's n° 9
met en oeuvre ces
essayant de tenir
210 LI 0 PEEK (43616)
220 REM
256
par Denis Sureau
compte des particularités des éditeurs
de shapes existants quant aux tables
qu'ils produisent. Des octets sans
emploi peuvent s'intercaler entre
deux parties normales d'une table,
aussi calcule-t-on les points de départ
de chaque champ sans les présupposer
sur la position suivant directement
le champ précédent.
Notons que certains de ces éditeurs,
et parmi les meilleurs, ne permettent
de produire qu'un nombre limité de
shapes, ce qui fait l'intérêt du présent
programme à leur endroit.
Pour utiliser le programme, insérez la
(les) disquette(s) contenant les deux
tables de shapes lorsque le programme
demande leurs noms pour
les charger. En appuyant sur "?" puis
RETURN, on obtient un catalogue
préalable. La fusion s'opère sans intervention
et le programme demande
ensuite sous quel nom doit être
sauvé le module. Insérez la disquette
qui doit le contenir avant d'en donner
le nom. En appuyant seulement
sur RETURN, on annule J'opération.
Le nombre de shapes correspond
théoriquement au total des shapes
contenues dans les deux tables primitives;
cela peut toutefois s'avérer
inexact car certains éditeurs Inscrivent
un nombre forfaitaire de shapes.
N.D.L.R. : les fichiers fusionnés doivent
être "effectivement" des tables
de shapes, sous peine d'erreurs Applesoft,
voire pis encore ...
CHARGE SHAPE TABLE 2
• PEEK (43617) •
230 INPUT "NOM DE LA ST #2 :":S2$
240 D2 0 Dl • LI
250 PRINT DS"BLOAD"S25",A"D2
260 L2 0 PEEK (43616 ) . PEEK (43617) •
270 REM
25.
CALL " CALL A CALCUL. D'ADRESSES
2aO 03 0 02
• L2
290 REM ARRONDI DE 03:
300
310
D3
NI
320 N2 0
330 SI
340 52 0
0 INT
0 PEEK
( (03 • 100) / 100) • 100
(DU
PEEK (02 )
PEEK (Dl
• 256
• Dl
PEEK (02
Il 256 .. D2
21 • PEEK (Dl
• 2> PEEK (D2
350 S3 = 03 .. 2 .. N1 • 2 .. N2 Il 2
• 31
• 31
19