Afficher/écrire une image NEOCHROME

par **Shadow272** Sam 21 Nov - 11:15

Afficher/écrire une image NEOCHROME

Lire ou écrire des images NEO

[Vous devez être inscrit et connecté pour voir ce lien]:

Code:: CLS xb%=XBIOS(2) ' FILESELECT "\*.NEO","",nom$ OPEN "i",#1,nom$ imageneo$=SPACE$(32000) imageneo%=V:imageneo$ SEEK #1,2 c$=SPACE$(32) c%=V:c$ BGET #1,c%,32 SEEK #1,128 BGET #1,imageneo%,32000 CLOSE ~XBIOS(6,L:c%) BMOVE imageneo%,xb%,32000 ~INP(2)

[Vous devez être inscrit et connecté pour voir ce lien]:

Code:: DIM col%(32) DIM coul%(128) ' ' FOR i%=0 TO 31 col%(i%)=PEEK(XBIOS(2)-32+i%) NEXT i% FOR i%=0 TO 15 SETCOLOR i%,col%(i%*2)*256+col%(i%*2+1) NEXT i% FOR i%=0 TO 127 coul%(i%)=0 NEXT i% FOR i%=4 TO 35 coul%(i%)=col%(i%-4) NEXT i% FOR i%=36 TO 47 coul%(i%)=32 NEXT i% coul%(44)=46 FOR i%=0 TO 127 POKE XBIOS(2)-128+i%,coul%(i%) NEXT i% FILESELECT "\*.NEO","",nom$ BSAVE nom$,XBIOS(2)-128,32128