termcol: distinct image palette in cga order

[sheet.git] / termcol.inc.pl

diff --git a/termcol.inc.pl b/termcol.inc.pl
index 02737e67e7d9b42a09875aaf41b26a32c5691298..ac21a9cca43171da14331063909a37588a5318b4 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 => {
@@ -59,9 +59,25 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 );
        },
        app => {
                name => 'Term.app',
+               title => 'Mac OSX Yosemite Terminal app',
                list => [qw(
-                       000000 C23621 25BC24 ADAD27 492EE1 D338D3 33BBC8 CBCCCD
-                       818383 FC391F 31E722 EAEC23 5833FF F935F8 14F0F0 E9EBEB
+                       000000 990B00 35A600 999900 0000B3 B304B2 31A6B3 BFBFBF
+                       666666 E51600 48D901 E5E600 0100FF E607E5 48E6E6 E6E5E6
+               )],
+       },
+       iterm => {
+               name => 'iTerm',
+               title => 'iTerm v2.2.1',
+               list => [qw(
+                       000000 BB0000 00BB00 BBBB00 0000BB BB00BB 00BBBB BBBBBB
+                       555555 FF5555 55FF55 FFFF55 5555FF FF55FF 55FFFF FFFFFF
+               )],
+       },
+       pastel => {
+               name => 'iTerm Pastel',
+               list => [qw(
+                       4F4F4F FF6C60 A8FF60 FFFFB6 96CBFE FF73FD C6C5FE EEEEEE
+                       7C7C7C FFB6B0 CEFFAC FFFFCC B5DCFF FF9CFE DFDFFE FFFFFF
                )],
        },
        putty => {
@@ -95,7 +111,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 +119,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