( 10 octobre, 2008 )

Lecture d’un fichier PI1

On va voir ici comment afficher et sauver une image PI1

En version FICHIER :

Efface l’écran
CLS
Début de boucle
DO
Sélecteur de fichiers préréglé pour les PI1
  FILESELECT « *.pi1″, »",img$

Lecture d'un fichier PI1 dans G001 Lecture d'un fichier PI1
Sort de la boucle si un fichier est sélectionné
EXIT IF img$<>«  »
Fin de boucle
LOOP
Ouvre sur le #1 un ficher nom « img$ » en lecture « i »
OPEN « i »,#1,img$
Crée un variable « c$ » de 32 espaces
c$=SPACE$(32)
Positionne le pointeur du fichier sur le 2ème octet
SEEK #1,2
Charge depuis cette position 32 octets et met les dans la variable c$
BGET #1,VARPTR(c$),32
Positionne le pointeur du fichier sur le 34ème octet
SEEK #1,34
Charge depuis cette position 32000 octets et met les dans XBIOS(2)
BGET #1,XBIOS(2),32000

Ferme le #1
CLOSE #1
Envois la palette de couleurs dans XBIOS(6)
VOID XBIOS(6,L:VARPTR(c$))
 dans G001 Lecture d'un fichier PI1

Attend la pression d’une touche
VOID INP(2)

 

En version INLINE

Efface l’écran
CLS
Là où on doit charger l’image PI1 (voir * ci dessous)
INLINE img%,32066
Variable pour la palette de couleur
c$=SPACE$(32)
Adresse de cette variable
c%=V:c$
Copie un partie de la PI1 dans la variable couleur (32 octets)
BMOVE img%+2,c%,32
Copie l’image vers l’adresse écran (32000 octets)
BMOVE img%+34,XBIOS(2),32000
Envois la palette de couleurs dans XBIOS 6
VOID XBIOS(6,L:c%)
Attend la pression d’un touche
VOID INP(2)

 

 * Comment télécharger un INLINE ?

Tapez la ligne de code  » INLINE img%,32066″, positionnez le curseur sur cette ligne et pressez « HELP » sur ST ou « Page Up » sous STEEM.

Un menu apparait alors en haut.

image3.jpg

 Cliquez sur « Load » et allez chercher votre image PI1 à l’aide du sélecteur d’objet.


 

ppt Image utilisée dans cet exemple renomer PPT en PI1

|