From ff8fb28a38d963e9f6f45fd273f8936f8ff9fc88 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 2 Nov 2015 14:20:05 +0100
Subject: [PATCH] termcol: define arne's cpc-derived palette "cpcboy"

---
 termcol.inc.pl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/termcol.inc.pl b/termcol.inc.pl
index e14abcf..02737e6 100644
--- a/termcol.inc.pl
+++ b/termcol.inc.pl
@@ -1,4 +1,5 @@
 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 );
@@ -187,6 +188,25 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 );
 			},
 		],
 	},
+	cpcboy => {
+		name => 'Arne CPC Boy v3',
+		href => 'http://androidarts.com/palette/16pal.htm',
+		rgbmap => [
+			3 => sub {
+				my $index = $_[2] + 3 * ($_[0] + 3 * $_[1]);
+				$index,
+				map { map { hex } /(..)/g } [qw(
+					000000 1B1B76 3636D8  761F28 623870 953EA7  CC3636 CE4B7A E3669A
+					1B761B 197F96 1986F2  8C6E1A 8E8E8E 9C9EE7  E48E2A EAA597 FE80FE
+					8DD836 B8D1B5 97E9D1  54BF47 37C79F 35CFE4  EDD446 EBE4A4 FFFFFF
+				)]->[$index]
+			},
+			[ # gameboy ramp
+				map { [ 27 + (state $index)++, map { hex } /(..)/g ] }
+				qw( F2EFE7 BAC375 859550 485D48 293941 )
+			],
+		],
+	},
 	ansi88 => {
 		name => 'rxvt 88 colour extension',
 		rgbmap => [
-- 
2.30.0