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

Create savehexpalette.bm

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

9
savehexpalette.bm Normal file
View file

@ -0,0 +1,9 @@
Sub SaveHexPalette (palettearray() As _Unsigned Long, filename As String)
ff = FreeFile
Open filename For Output As ff
For i = 0 To UBound(palettearray)
Print #ff, Right$(Hex$(palettearray(i)), 6);
If i < UBound(palettearray) Then Print #ff, ""
Next i
Close ff
End Sub