termcol: retrieve original iterm colour definitions

Original screenshot apparently included some colour transformation
courtesy of Apple.

Converted from source <https://github.com/gnachman/iTerm2.git>:

perl -MMac::PropertyList=:all -E '
	my $p = parse_plist_file("plists/ColorPresets.plist");
	for my $col ($p->{"Dark Background"}) {
		say join " ", map { parsecolor($col->{"Ansi $_ Color"}) } 0 .. 15;
	}
	sub parsecolor {
		return join "", map {
			sprintf "%02X", $_[0]->{"$_ Component"}->value * 255 + .5
		} qw(Red Green Blue);
	}
'

diff --git a/termcol.inc.pl b/termcol.inc.pl
index b064922d1e5919cd79d33b4326054af7930168c8..f9358f679bf6860d73c6c78b61a70d2e4410c61a 100644 (file)
--- a/termcol.inc.pl
+++ b/termcol.inc.pl
@@ -68,8 +68,8 @@ my @msxorder = ( 0,6,12,10,4,13,7,14 , 1,8,2,11,5,9,3,15 );
                name => 'iTerm',
                title => 'iTerm v2.2.1',
                list => [qw(
-                       000000 CA1B00 00C200 C7C400 0325C7 CA31C7 00C6C8 C7C7C7
-                       686868 FF6E68 5EFA68 FFFB67 6971FF FF77FF 61FDFF FFFFFF
+                       000000 BB0000 00BB00 BBBB00 0000BB BB00BB 00BBBB BBBBBB
+                       555555 FF5555 55FF55 FFFF55 5555FF FF55FF 55FFFF FFFFFF
                )],
        },
        putty => {