termcol: adjust non-ansi palette orders slightly

diff --git a/termcol.inc.pl b/termcol.inc.pl
index 02737e67e7d9b42a09875aaf41b26a32c5691298..000d5da6e675f07e64129ceda3d6c6c0ea73148a 100644 (file)
--- a/termcol.inc.pl
+++ b/termcol.inc.pl
@@ -2,7 +2,7 @@ use strict;
 use 5.010;
 use Shiar_Sheet::Colour '1.02';
 
-my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 );
+my @msxorder = ( 0,6,12,10,4,13,7,14 , 1,8,2,11,5,9,3,15 );
 
 +{
        html => {
@@ -95,7 +95,7 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 );
                        FFFFFF FBF305 FF6403 DD0907 F20884 4700A5 0000D3 02ABEA
                        1FB714 006412 562C05 90713A C0C0C0 808080 404040 000000
                )],
-               ansiorder => [ 15,3,9,11,6,5,7,12 , 14,2,8,1,13,4,10,0 ],
+               ansiorder => [ 15,3,9,11,6,5,7,12 , 14,2,8,1,10,4,13,0 ],
        },
        risc => {
                name => 'RISC',  # v2/3
@@ -103,7 +103,7 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 );
                        FFFFFF DDDDDD BBBBBB 999999 777777 555555 333333 000000
                        004499 EEEE00 00CC00 DD0000 EEEEBB 558800 FFBB00 00BBFF
                )],
-               ansiorder => [ 7,11,13,14,8,12,15,1, 6,5,10,9,4,3,2,0 ],
+               ansiorder => [ 7,5,13,14,4,3,2,1 , 6,11,10,9,8,12,15,0 ],
        },
        c64 => {
                name => 'C=64',  # commodore 64/128