AQUARELLE LOGICIEL GRAPHIQUE POUR VG5000
Entrez votre texte ici...
Voila enfin ce que je cherchais à faire depuis 1984 ! Je savais que c'était possible et bien c'est fait.
Un bitmap plein écran en moyenne définition (160X150 pixels) en 4 couleurs modifiable sur une palette de 8 couleurs.
LE PROGRAMME SE LANCE PAR "RUN" SUR UN VG5000 IL FAUT ÊTRE PATIENT POUR CHARCHER LE PROGRAMME (4 MINUTES) AVEC " " CLOAD "
Variable Adresse Taille Usage
ADEZSSE DEBUT BITMAP 26893 à 26893+55200 soit: (920 caracteres du 6 octets chaqu'un)
COULEUR 25055 1 octetcommune à toutes les primitives
IDX 25051 2 octets index caractère (0-799), pour MAJ_UN_CARACTERE
PX 250531 octetX pixel (0-159), pour DESSINER_XY
PY 250541 octetY pixel (0-114), pour DESSINER_XY
CCX 25480 1 octetcentre X cercle/disque
CCY 25481 1 octetcentre Y cercle/disque
CRAYON 25482 1 octet rayon
LX1 / LY 1 25742 / 25743 1 octet chacun segment : point de départ
LX2 / LY 2 25744 / 25745 1 octet chacunsegment : point d'arrivée
POLY_X 26363 16 octets tableau X des sommets
1,,,,,,,,16
POLY_Y 26379 16 octetstableau Y des sommets
1,,,,,,,,16
POLY_N 26395 1 octet nombre de sommets (max 16)
1,,,,,,,,16
POLY_N — adresse 26393 — 1 octet — nombre de sommets du polygone (maximum 16)
C'est tout simple : avant d'appeler REMPLIR_POLYGONE, tu POKEs le nombre de sommets de ta forme dans cette case. Par exemple pour un triangle :
Mis à jour +2 octets fait.
BASIC CODES POUR POLYGONES MAX 16 octets (sommets)
10 POKE 25055,3 : REM COULEUR
20 POKE 26395,3 : REM POLY_N = 3 sommets (triangle)-MAX 16 octets (sommets)
30 POKE 26363,20 : POKE 26379,20 : REM sommet 0 : X=20, Y=20
40 POKE 26364,80 : POKE 26380,15 : REM sommet 1 : X=80, Y=15
50 POKE 26365,90 : POKE 26383,60 : REM sommet 2 : X=90, Y=60
-
-
-
60 CALL 26630 : REM REMPLIR_POLYGONE
Note que POLY_X (26363) et POLY_Y (26379) sont des tableaux : le sommet i se trouve à POLY_X + i et POLY_Y + i, donc pour 3 sommets tu POKEs 26361/26362/26363 et 26379/26380/26381 comme ci-dessus.
Exemple d'appel complet depuis BASIC
cercle
10 POKE 25055,3 couleurs
20 POKE 25480,80 (centre du cercle x): POKE 25481,57 (centre du cercle y) : POKE 25482,30 (rayon)
30 CALL 25487

