pixler/include/palette.bm

sub loadpalette(palname as string,palarray() as _unsigned long)
    dim slso8(7) 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