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

Ce site est protégé par copyright, toute reproduction même partielle est interdite sous peine de sanctions pénales.
Optimisé par Webnode Cookies
Créez votre site web gratuitement ! Ce site internet a été réalisé avec Webnode. Créez le votre gratuitement aujourd'hui ! Commencer