From a6bdc11ce27566679da505185e519ddd0bc9a5ca Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 1 Nov 2015 20:33:57 +0100
Subject: [PATCH] termcol: define 512 and 4k colour rgb maps

Common 9- and 12-bit palettes used by various legacy systems.
---
 termcol.inc.pl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/termcol.inc.pl b/termcol.inc.pl
index 385f277..e3fbd71 100644
--- a/termcol.inc.pl
+++ b/termcol.inc.pl
@@ -200,4 +200,19 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 );
 			[ map { $_ * 10 + 8 } 0 .. 23 ],
 		],
 	},
+	512 => {
+		name => '9-bit RGB map',
+		# atari st, msx2, sega genesis/nomad, turbografx16
+		rgbmap => [8],
+	},
+	'4k' => {
+		name => '12-bit RGB map',
+		# amiga, apple IIgs, game gear, neo geo, lynx, cpc+, nextstation
+		rgbmap => [
+			12 => sub {
+				join('', map { sprintf '%X', $_ } @_),
+				map { int $_ * 255 / 11 } @_
+			},
+		],
+	},
 }
-- 
2.30.0