Affichage PI9 pour FALCON

par **Shadow272** Mer 25 Nov - 11:26

Affichage PI9 pour FALCON
Par Cooper

Exemple d'affichage d'images .PI9, en 320x240 256 couleurs.

Routine de Fantomas.

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

Code:: ' FILESELECT "\*.PI9","",pic$ IF NOT EXIST(pic$) EDIT ENDIF ' ON ERROR GOSUB fin ! Si erreur, fini. ON BREAK GOSUB fin ! Si Break, fini. ' RESERVE 50000 ! R‚serve m‚moire. super%=GEMDOS(32,L:0) ! Mode Superviseur. resol&=XBIOS(88,W:-1) ! Sauve la r‚solution. sauve_ecr%=XBIOS(2) ! Sauve l'‚cran. buffer%=MALLOC(77824) ! R‚serve une zone m‚moire image%=buffer%+1024 moniteur%=XBIOS(89) ! Type de moniteur. key|=BYTE{&H484} ! Bloque le clic clavier. IF moniteur%=2 ! Moniteur VGA ~XBIOS(5,L:image%,L:image%,W:3,W:&X100110011) ! VGA: 320x240 256c. ELSE ~XBIOS(5,L:image%,L:image%,W:3,W:&X11) ! TV: 320x200 256c. ENDIF OUT 4,18 ! Bloque la souris. CLS ! Efface l'‚cran. BLOAD pic$,buffer% BMOVE buffer%,&HFFFF9800,1024 ' ~INP(2) ' @fin ! Fini. ' *--- Fin du programme ---* PROCEDURE fin OUT 4,8 ! R‚active la souris. ~XBIOS(5,L:sauve_ecr%,L:sauve_ecr%,3,resol&) ! Anciens r‚sol. / ‚crans. ~MFREE(buffer%) ! LibŠre la m‚moire. BYTE{&H484}=key| ! Restaure le clavier. ~GEMDOS(32,L:super%) ! Mode utilisateur. END RETURN