159 lines
5.5 KiB
Text
159 lines
5.5 KiB
Text
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
|