visionmercer/qb64-include
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update loadhexpalette.bm

Browse source
This commit is contained in:
visionmercer 2022-05-10 22:40:20 +02:00 • committed by GitHub
commit 4c82f072fc
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
loadhexpalette.bm
View file

@ -1,9 +1,6 @@
SUB LoadHexPalette (Filename$, palettearray() AS _UNSIGNED LONG)
DIM i AS INTEGER
DIM ff AS INTEGER
DIM r AS _UNSIGNED _BYTE
DIM g AS _UNSIGNED _BYTE
DIM b AS _UNSIGNED _BYTE
DIM Colorload AS STRING
i = LBOUND(palettearray) - 1
ff = FREEFILE
@ -11,15 +8,12 @@ SUB LoadHexPalette (Filename$, palettearray() AS _UNSIGNED LONG)
OPEN Filename$ FOR INPUT AS ff
DO UNTIL EOF(ff)
LINE INPUT #ff, Colorload
r = VAL("&H" + MID$(Colorload, 1, 2))
g = VAL("&H" + MID$(Colorload, 3, 2))
b = VAL("&H" + MID$(Colorload, 5, 2))
i = i + 1
IF i > UBOUND(palettearray) THEN
REDIM _PRESERVE palettearray(i) AS _UNSIGNED LONG
END IF
palettearray(i) = _RGB32(r, g, b)
palettearray(i) = Val("&HFF" + Colorload)
LOOP
CLOSE ff
END IF
END SUB
END SUB