Mode 320x240 Truecolor pour FALCON

par **Shadow272** Mer 25 Nov - 12:03

Mode 320x240 Truecolor pour FALCON
Par Cooper

Exemple d'utilisation du mode 320x240 en TrueColor sur Falcon 030.

Routine de SimonSunnyboy/Paradize.

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

Code:: ' ' Falcon TrueColor Video for GFABASIC ' (c) 2007 by Simon Sunnyboy / Paradize ' ' Use at your own risk! ' HIDEM INLINE tcvideomode%,1718 RESERVE 200000 ' falcon!=FALSE fehler$="" oldphysbase%=XBIOS(2) ON ERROR GOSUB errorhandler ON BREAK GOSUB endit screenmemory%=MALLOC(153856) IF screenmemory%=0 PRINT "NOT ENOUGH MEMORY!" RESERVE ~INP(2) EDIT ENDIF physbase%=AND(ADD(screenmemory%,255),&HFFFFFF00) ' ' setup videomode in supervisor - will set Word tcvideomode%+8 to ' &hffff if this is a Falcon - saves videl settings ~XBIOS(38,L:tcvideomode%) ' IF WORD{tcvideomode%+8}=0 ~INP(2) ELSE falcon!=TRUE ~XBIOS(5,L:physbase%,L:physbase%,L:-1) ' CLS and _ALL_ gfa graphics commands do not work anymore until you ' restore the video mode ' thank god, TC video is chunky ' ' FOR i%=0 TO 639 STEP 2 WORD{physbase%+i%}=WORD(0) ! clear 1st scanline NEXT i% ' clear remaining scanlines FOR i%=1 TO 239 BMOVE physbase%,physbase%+i%*640,640 NEXT i% ' FOR i%=0 TO 639 STEP 2 WORD{physbase%+i%}=WORD(&HF000) ! draw red pixels NEXT i% ' FOR x%=0 TO 639 STEP 2 VSYNC ! spend some time to make sure OS is intact WORD{physbase%+640+x%}=WORD(&H1F) NEXT x% ~INP(2) ' ENDIF ' endit ' PROCEDURE errorhandler fehler$=ERR$(ERR) GOSUB endit RETURN PROCEDURE endit IF falcon! ~XBIOS(38,L:tcvideomode%+4) ENDIF ' ~XBIOS(5,L:oldphysbase%,L:oldphysbase%,L:-1) ' IF fehler$>"" ~FORM_ALERT(1,fehler$) ENDIF ~MFREE(screenmemory%) RESERVE ' SHOWM EDIT RETURN