space saving.
This commit is contained in:
visionmercer
parent
73e1655b80
commit
576726e6be
4 changed files with 626 additions and 626 deletions
|
|
@ -1,160 +1,160 @@
|
|||
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
|
||||
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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue