X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/0f1f7a00062360f4b373f027a2a3fa8d43cacd06..d04b40e629676a9b8fdd015d4b432e121925749b:/termcol.inc.pl?ds=sidebyside

diff --git a/termcol.inc.pl b/termcol.inc.pl
index bcc7b9e..e3fbd71 100644
--- a/termcol.inc.pl
+++ b/termcol.inc.pl
@@ -166,7 +166,7 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 );
 			1B2632::night    005784::sea     31A2F2::sky     B2DCEF::cloud
 		)],
 		order => [ 0,5,9,12 , 3,6,10,13,1 , 4,7,8,11,14,15,2 ], # by brightness
-		ansiorder => [ 0,3,10,6,12,9,13,1 , 5,7,11,8,14,4,15,2 ],
+		ansiorder => [ 0,3,10,6,13,12,9,1 , 5,7,11,8,14,4,15,2 ],
 	},
 
 	cpc => {
@@ -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 } @_
+			},
+		],
+	},
 }