( 14 octobre, 2008 )

Animations avec font graphique

Animations avec font graphique

Tout d’abord l’image de la font proposée par Arklif et nécessaire pour réaliser ces animations.

arklif001.jpg

Il va faloir premier réorganiser cela car les lettres ne sont pas allignée et n’ont donc pas un pas régulier ce qui va compliquer l’affichage.

Je m’y met avec DELUXE PAINT

arklif0021.jpg

J’en ai profité pour faire les masques, on ne sait jamais . . . .

Ce qui donne au final

arklif004.jpg

Voilà j’ai trouvé, les fichiers Zipés passent sans problème, dézipez et vous aurez la PI1 .

arklif2.zip

 Petit programme réalisé en GFA 3.5F avec un INPUT pour afficher le texte graphique.

arklif01.zip

 Une autre manière avec un scroll horizontal droite/gauche.

arklif02.zip
 

( 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

|