Afficher une PI1 en 16 couleurs 640x440 VGA

par **Shadow272** Mer 15 Sep - 9:48

Afficher une PI1 en 16 couleurs 640x440 VGA

Ce n'est peut-être pas la meilleur solution mais c'est la seule que j'aie trouvée jusque-là.
Ce code affiche une PI1 avec sa palette de 16 couleurs tel qu'il le lit dans un premier temps c'est à dire 1ère ligne à gauche, 1ème à droite, 3ème à gauche, 4ème à droite, etc . . .
N'oublions pas que la résolution du FALCON est de 640 pxls en horisontal contre 320 sur les ST(E).
Ensuite il affiche un peu plus bas l'image en taille réelle.

Code:: CLS ' xb%=XBIOS(2) ' DIM r|(16),v|(16),b|(16),ordre|(16) ' pi1$=STRING$(32066,0) pi1%=V:pi1$ ' pal$=STRING$(32,0) pal%=V:pal$ ' ' DATA 0,2,3,6,4,7,5,8,9,10,11,14,12,15,13,1 FOR i|=0 TO 15 READ ordre|(i|) NEXT i| ' f0$="*.PI1" ' DO ' f$="" FILESELECT f0$,"",f$ EXIT IF LEN(f$)<LEN(f0$) ' FOR i%=LEN(f$) TO 1 STEP -1 IF MID$(f$,i%,1)="\" f0$=MID$(f$,1,i%)+"*.PI1" i%=1 ENDIF NEXT i% BLOAD f$,pi1% ' BMOVE pi1%+2,pal%,32 ' @rvb ' CLS FOR i|=0 TO 15 VSETCOLOR i|,r|(i|),v|(i|),b|(i|) NEXT i| ' BMOVE pi1%+34,xb%,32000 FOR i%=0 TO 199 BMOVE pi1%+34+(i%*160),xb%+(44880+(i%*320)),160 NEXT i% ~INP(2) ' LOOP EDIT ' PROCEDURE rvb ' pos|=0 ' FOR adr%=0 TO 30 STEP 2 brou%=pal%+adr% ' val&=CARD{brou%} !{palfade%(col&-1)+adr%} ' r|(ordre|(pos|))=AND(SHR(val&,8),&HF) v|(ordre|(pos|))=AND(SHR(val&,4),&HF) b|(ordre|(pos|))=AND(val&,&HF) INC pos| NEXT adr% RETURN

Si vous avez d'autre idées . . .

par rockyone Sam 22 Oct - 13:43

Bonjour Shadow272
Pourrais-tu en plus de tes listing GFA mettre une version exécutable

par **Shadow272** Dim 30 Oct - 8:39

Je ferai ça avec plaisir dès que je rebranche un FALCON.

par Contenu sponsorisé

Afficher une PI1 en 16 couleurs 640x440 VGA

Afficher une PI1 en 16 couleurs 640x440 VGA

Re: Afficher une PI1 en 16 couleurs 640x440 VGA

Re: Afficher une PI1 en 16 couleurs 640x440 VGA

Re: Afficher une PI1 en 16 couleurs 640x440 VGA