Strange screen mode behavior

Development > Bugs/Incompatibilities

(1/2) > >>

Clippy:
The following function detects the screen mode. It also works with QB64 screen modes:

--- Code: ---DO
PRINT
PRINT
PRINT " Screen W H C "
PRINT " 0 80/40 (25) 16 "
PRINT " 1 (320) (200) 4 "
PRINT " 2 (640) 200 2 "
PRINT " ....................... "
PRINT " 7 320 200 16 "
PRINT " 8 640 200 16 "
PRINT " 9 (640) 350 16 "
PRINT " 10 (640) 350 4 "
PRINT " 11 (640) 480 2 "
PRINT " 12 (640) 480 16 "
PRINT " 13 320 200 256 "
PRINT " QB64 _NEWIMAGE screens "
PRINT " 14 (600, 600, 32) 32 bit"
PRINT " 15 (800, 600, 256) 256 "
PRINT " 16 (900, 600, 13) 256 " 'simulate screen 13
PRINT " 17 (900, 600, 10) 4 " 'simulate screen 10
PRINT
PRINT "SCREEN ="; scr&; "mode ="; ScreenMode&; "Colors ="; colors
PRINT "_DEST ="; _DEST

IF ScreenMode& THEN CIRCLE (200, 100), 50, 3
INPUT "Enter a SCREEN mode 0 to 17(18 quits): ", scrn$

scr& = VAL(scrn$)
IF (scr& < 3 OR scr& > 6) AND scr& < 14 THEN SCREEN scr&
IF scr& = 14 THEN handle& = _NEWIMAGE(600, 600, 32): SCREEN handle&
IF scr& = 15 THEN handle& = _NEWIMAGE(800, 600, 256): SCREEN handle&
IF scr& = 16 THEN handle& = _NEWIMAGE(900, 600, 13): SCREEN handle&
IF scr& = 17 THEN handle& = _NEWIMAGE(900, 600, 10): SCREEN handle&

LOOP UNTIL scr& > 17

FUNCTION ScreenMode&
SHARED colors 'share number of colors with main program
mode& = -1
_DEST 0 'destination zero always current screen mode
OUT &H3C7, 1 'set attribute to read
FOR colors = 1 TO 18 'get RGB color settings
red = INP(&H3C9): grn = INP(&H3C9): blu = INP(&H3C9)
IF red + grn + blu = 0 AND colors <> 16 THEN EXIT FOR
NEXT
wide& = _WIDTH: deep& = _HEIGHT 'get screen dimensions
IF colors = 4 THEN mode& = 1
IF colors = 2 AND deep& = 200 THEN mode& = 2
IF colors = 17 AND wide& = 320 AND deep& = 200 THEN mode& = 7
IF colors = 17 AND wide& = 640 AND deep& = 200 THEN mode& = 8
IF colors = 17 AND deep& = 350 THEN mode& = 9
IF colors = 1 AND wide& = 640 AND deep& = 350 THEN mode& = 10
IF colors = 2 AND deep& = 480 THEN mode& = 11
IF colors = 17 AND deep& = 480 THEN mode& = 12
IF colors > 17 AND wide& = 320 AND deep& = 200 THEN mode& = 13
IF _PIXELSIZE = 0 THEN mode& = 0
IF mode& = -1 THEN mode& = _DEST 'must be a QB64 screen
IF colors = 1 THEN colors = 4
IF colors = 17 THEN colors = 16
IF colors > 17 THEN colors = 256
IF _PIXELSIZE = 4 THEN colors = 32
ScreenMode& = mode&
END FUNCTION

--- End code ---

You can enter a value from 0 to 2 and 7 to 17 for the displayed modes. For some reason screen 10 returns other modes and colors other than 4 if screen 10 or screen 17 are entered more than once.

When I try to read the colors in the loop, screen 10 returns 1 normally just like QB instead of the 4 so the code changes it to reflect the 4 attributes.

Either a value is not cleared in the FUNCTION or SCREEN 10 is messing up...could SHARED be doing this?

We REALLY need a way to free the handle memory too! Perhaps an intermediary screen mode could hold the value until it changes and then get rid of it?

Clippy:
OK I tried to COPY the handle and use an intermediary variable, but SCREEN 10 creates a good old _FREEIMAGE error somehow when I enter 10 and/or 17 twice in a row.

--- Code: ---DO
PRINT
PRINT
PRINT " Screen W H C "
PRINT " 0 80/40 (25) 16 "
PRINT " 1 (320) (200) 4 "
PRINT " 2 (640) 200 2 "
PRINT " ....................... "
PRINT " 7 320 200 16 "
PRINT " 8 640 200 16 "
PRINT " 9 (640) 350 16 "
PRINT " 10 (640) 350 4 "
PRINT " 11 (640) 480 2 "
PRINT " 12 (640) 480 16 "
PRINT " 13 320 200 256 "
PRINT " QB64 _NEWIMAGE screens "
PRINT " 14 (600, 600, 32) 32 bit"
PRINT " 15 (800, 600, 256) 256 "
PRINT " 16 (900, 600, 13) 256 " 'simulate screen 13
PRINT " 17 (900, 600, 10) 4 " 'simulate screen 10
PRINT
PRINT "SCREEN ="; scr&; "mode ="; ScreenMode&; "Colors ="; colors
PRINT "_DEST ="; _DEST

IF ScreenMode& THEN CIRCLE (200, 100), 50, 3
INPUT "Enter a SCREEN mode 0 to 17(18 quits): ", scrn$
copy& = _COPYIMAGE(0)
SCREEN copy&
IF scr& < -1 THEN _FREEIMAGE scr&
scr& = VAL(scrn$)
IF (scr& < 3 OR scr& > 6) AND scr& < 14 THEN SCREEN scr&

IF scr& = 14 THEN handle& = _NEWIMAGE(600, 600, 32): SCREEN handle&
IF scr& = 15 THEN handle& = _NEWIMAGE(800, 600, 256): SCREEN handle&
IF scr& = 16 THEN handle& = _NEWIMAGE(900, 600, 13): SCREEN handle&
IF scr& = 17 THEN handle& = _NEWIMAGE(900, 600, 10): SCREEN handle&
IF copy& < -1 THEN _FREEIMAGE (copy&)
LOOP UNTIL scr& > 17

FUNCTION ScreenMode&
SHARED colors 'share number of colors with main program
mode& = -1
_DEST 0 'destination zero always current screen mode
OUT &H3C7, 1 'set attribute to read
FOR colors = 1 TO 18 'get RGB color settings
red = INP(&H3C9): grn = INP(&H3C9): blu = INP(&H3C9)
IF red + grn + blu = 0 AND colors <> 16 THEN EXIT FOR
NEXT
wide& = _WIDTH: deep& = _HEIGHT 'get screen dimensions
IF colors = 4 THEN mode& = 1
IF colors = 2 AND deep& = 200 THEN mode& = 2
IF colors = 17 AND wide& = 320 AND deep& = 200 THEN mode& = 7
IF colors = 17 AND wide& = 640 AND deep& = 200 THEN mode& = 8
IF colors = 17 AND deep& = 350 THEN mode& = 9
IF colors = 1 AND wide& = 640 AND deep& = 350 THEN mode& = 10
IF colors = 2 AND deep& = 480 THEN mode& = 11
IF colors = 17 AND deep& = 480 THEN mode& = 12
IF colors > 17 AND wide& = 320 AND deep& = 200 THEN mode& = 13
IF _PIXELSIZE = 0 THEN mode& = 0
IF mode& = -1 THEN mode& = _DEST 'must be a QB64 screen
IF colors = 1 THEN colors = 4
IF colors = 17 THEN colors = 16
IF colors > 17 THEN colors = 256
IF _PIXELSIZE = 4 THEN colors = 32
ScreenMode& = mode&
END FUNCTION

--- End code ---

BTW the IDE syntax status allows statements to use brackets around the values when they are not required...

Muffinman:
I'd never use _freeimage x without ending the line with an x = 0!

Pete:

--- Code: ---DO
PRINT
PRINT
PRINT " Screen W H C "
PRINT " 0 80/40 (25) 16 "
PRINT " 1 (320) (200) 4 "
PRINT " 2 (640) 200 2 "
PRINT " ....................... "
PRINT " 7 320 200 16 "
PRINT " 8 640 200 16 "
PRINT " 9 (640) 350 16 "
PRINT " 10 (640) 350 4 "
PRINT " 11 (640) 480 2 "
PRINT " 12 (640) 480 16 "
PRINT " 13 320 200 256 "
PRINT " QB64 _NEWIMAGE screens "
PRINT " 14 (600, 600, 32) 32 bit"
PRINT " 15 (800, 600, 256) 256 "
PRINT " 16 (900, 600, 13) 256 " 'simulate screen 13
PRINT " 17 (900, 600, 10) 4 " 'simulate screen 10
PRINT
PRINT "SCREEN ="; scr&; "mode ="; ScreenMode&; "Colors ="; colors
PRINT "_DEST ="; _DEST

IF ScreenMode& THEN CIRCLE (200, 100), 50, 3
INPUT "Enter a SCREEN mode 0 to 17(18 quits): ", scrn$
copy& = _COPYIMAGE(0)
scr& = VAL(scrn$)
SCREEN copy&
IF (scr& < 3 OR scr& > 6) AND scr& < 14 THEN SCREEN scr&
IF scr& = 14 THEN handle& = _NEWIMAGE(600, 600, 32): SCREEN handle&
IF scr& = 15 THEN handle& = _NEWIMAGE(800, 600, 256): SCREEN handle&
IF scr& = 16 THEN handle& = _NEWIMAGE(900, 600, 13): SCREEN handle&
IF scr& = 17 THEN handle& = _NEWIMAGE(900, 600, 10): SCREEN handle&
on error goto justwork
cls: _FREEIMAGE (copy&)
on error goto 0
LOOP UNTIL scr& > 17
end

justwork:
if err = 5 then resume next
print "oops!"
end

FUNCTION ScreenMode&
SHARED colors 'share number of colors with main program
mode& = -1
_DEST 0 'destination zero always current screen mode
OUT &H3C7, 1 'set attribute to read
FOR colors = 1 TO 18 'get RGB color settings
red = INP(&H3C9): grn = INP(&H3C9): blu = INP(&H3C9)
IF red + grn + blu = 0 AND colors <> 16 THEN EXIT FOR
NEXT
wide& = _WIDTH: deep& = _HEIGHT 'get screen dimensions
IF colors = 4 THEN mode& = 1
IF colors = 2 AND deep& = 200 THEN mode& = 2
IF colors = 17 AND wide& = 320 AND deep& = 200 THEN mode& = 7
IF colors = 17 AND wide& = 640 AND deep& = 200 THEN mode& = 8
IF colors = 17 AND deep& = 350 THEN mode& = 9
IF colors = 1 AND wide& = 640 AND deep& = 350 THEN mode& = 10
IF colors = 2 AND deep& = 480 THEN mode& = 11
IF colors = 17 AND deep& = 480 THEN mode& = 12
IF colors > 17 AND wide& = 320 AND deep& = 200 THEN mode& = 13
IF _PIXELSIZE = 0 THEN mode& = 0
IF mode& = -1 THEN mode& = _DEST 'must be a QB64 screen
IF colors = 1 THEN colors = 4
IF colors = 17 THEN colors = 16
IF colors > 17 THEN colors = 256
IF _PIXELSIZE = 4 THEN colors = 32
ScreenMode& = mode&
END FUNCTION

--- End code ---

- Trapper John

Clippy:
The screen results are all off...it doesn't find any correct modes... ;D

Navigation

[0] Message Index

[#] Next page

Go to full version