termcol: retrieve original iterm colour definitions
authorMischa POSLAWSKY <perl@shiar.org>
Thu, 19 Nov 2015 22:19:24 +0000 (23:19 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 5 Jan 2016 00:05:07 +0000 (01:05 +0100)
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);
}
'


No differences found