pixler/include/palette.bm

sub loadpalette(palname as string,palarray() as _unsigned long)
select case lcase$(palname)
        case "slso8"
            redim palarray(7) as _unsigned long
            palarray(0)=&HFF0D2B45
            palarray(1)=&HFF203C56
            palarray(2)=&HFF544E68
            palarray(3)=&HFF8D697A
            palarray(4)=&HFFD08159
            palarray(5)=&HFFFFAA5E
            palarray(6)=&HFFFFD4A3
            palarray(7)=&HFFFFECD6
        case "endesga16"
            redim palarray(15) as _unsigned long
            palarray( 0)=&HFFE4A672
            palarray( 1)=&HFFB86F50
            palarray( 2)=&HFF743F39
            palarray( 3)=&HFF3F2832
            palarray( 4)=&HFF9E2835
            palarray( 5)=&HFFE53B44
            palarray( 6)=&HFFFB922B
            palarray( 7)=&HFFFFE762
            palarray( 8)=&HFF63C64D
            palarray( 9)=&HFF327345
            palarray(10)=&HFF193D3F
            palarray(11)=&HFF4F6781
            palarray(12)=&HFFAFBFD2
            palarray(13)=&HFFFFFFFF
            palarray(14)=&HFF2CE8F4
            palarray(15)=&HFF0484D1
        case "kinkan"
            redim palarray(7) as _unsigned long
            palarray(0)=&HFF446176
            palarray(1)=&HFF3EAAAE
            palarray(2)=&HFF8CEFB6
            palarray(3)=&HFFC4F0C2
            palarray(4)=&HFFFFFEE4
            palarray(5)=&HFFBEC0C0
            palarray(6)=&HFFFFA7B9
            palarray(7)=&HFFFF7A8F
        case "custodian-8"
            redim palarray(7) as _unsigned long
            palarray(0)=&HFF2B3634
            palarray(1)=&HFF474848
            palarray(2)=&HFF6E5F52
            palarray(3)=&HFFA2856C
            palarray(4)=&HFFA0A294
            palarray(5)=&HFFDCB9A0
            palarray(6)=&HFFF3DBC6
            palarray(7)=&HFFFFFEFE
        case "greyteen"
            redim palarray(17) as _unsigned long
            palarray( 0)=&HFF272524
            palarray( 1)=&HFF444140
            palarray( 2)=&HF626368
            palarray( 3)=&HFF918783
            palarray( 4)=&HFFA7A8B9
            palarray( 5)=&HFFD7C7C0
            palarray( 6)=&HFFDADCEB
            palarray( 7)=&HFFF2ECE9
            palarray( 8)=&HFF4E393A
            palarray( 9)=&HFF7D5C51
            palarray(10)=&HFFCD9F83
            palarray(11)=&HFFEBD8A3
            palarray(12)=&HFF95AE91
            palarray(13)=&HFF5A7054
            palarray(14)=&HFF3F4459
            palarray(15)=&HFF7B8CAA
            palarray(16)=&HFFB0C6D5
            palarray(17)=&HFF745E72
        case "ega"
            redim palarray(63) as _unsigned long
            palarray( 0)=&HFF000000
            palarray( 1)=&HFF000055
            palarray( 2)=&HFF0000AA
            palarray( 3)=&HFF0000FF
            palarray( 4)=&HFF550000
            palarray( 5)=&HFF550055
            palarray( 6)=&HFF5500AA
            palarray( 7)=&HFF5500FF
            palarray( 8)=&HFFAA0000
            palarray( 9)=&HFFAA0055
            palarray(10)=&HFFAA00AA
            palarray(11)=&HFFAA00FF
            palarray(12)=&HFFFF0000
            palarray(13)=&HFFFF0055
            palarray(14)=&HFFFF00AA
            palarray(15)=&HFFFF00FF
            palarray(16)=&HFF005500
            palarray(17)=&HFF005555
            palarray(18)=&HFF0055AA
            palarray(19)=&HFF0055FF
            palarray(20)=&HFF555500
            palarray(21)=&HFF555555
            palarray(22)=&HFF5555AA
            palarray(23)=&HFF5555FF
            palarray(24)=&HFFAA5500
            palarray(25)=&HFFAA5555
            palarray(26)=&HFFAA55AA
            palarray(27)=&HFFAA55FF
            palarray(28)=&HFFFF5500
            palarray(29)=&HFFFF5555
            palarray(30)=&HFFFF55AA
            palarray(31)=&HFFFF55FF
            palarray(32)=&HFF00AA00
            palarray(33)=&HFF00AA55
            palarray(34)=&HFF00AAAA
            palarray(35)=&HFF00AAFF
            palarray(36)=&HFF55AA00
            palarray(37)=&HFF55AA55
            palarray(38)=&HFF55AAAA
            palarray(39)=&HFF55AAFF
            palarray(40)=&HFFAAAA00
            palarray(41)=&HFFAAAA55
            palarray(42)=&HFFAAAAAA
            palarray(43)=&HFFAAAAFF
            palarray(44)=&HFFFFAA00
            palarray(45)=&HFFFFAA55
            palarray(46)=&HFFFFAAAA
            palarray(47)=&HFFFFAAFF
            palarray(48)=&HFF00FF00
            palarray(49)=&HFF00FF55
            palarray(50)=&HFF00FFAA
            palarray(51)=&HFF00FFFF
            palarray(52)=&HFF55FF00
            palarray(53)=&HFF55FF55
            palarray(54)=&HFF55FFAA
            palarray(55)=&HFF55FFFF
            palarray(56)=&HFFAAFF00
            palarray(57)=&HFFAAFF55
            palarray(58)=&HFFAAFFAA
            palarray(59)=&HFFAAFFFF
            palarray(60)=&HFFFFFF00
            palarray(61)=&HFFFFFF55
            palarray(62)=&HFFFFFFAA
            palarray(63)=&HFFFFFFFF
        case else
            redim palarray(1) as _unsigned long
            if _fileexists(palname) then
                dim fh as integer
                dim i as integer
                dim colorload as string
                fh=freefile
                open palname for input as fh
                do until eof(fh)
                    line input #fh,colorload
                    i=i+1
                    if i>ubound(palarray) then
                        redim _preserve palarray(i) as _unsigned long
                    end if
                    palarray(i)=val("&HFF"+colorload)
                loop
                close fh
            else
                palarray(0)=&HFF000000
                palarray(1)=&HFFFFFFFF
            end if
    end select
end sub