From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 26 Oct 2015 12:19:29 +0000 (+0100)
Subject: termcol: replace msx colours by msx2 rgb values
X-Git-Tag: v1.9~113
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/07d8d05b9543279bab3e3f351d982609b7d88f85

termcol: replace msx colours by msx2 rgb values

Reference: <http://www.konamiman.com/msx/msx2th/th-2.txt>
---

diff --git a/termcol.plp b/termcol.plp
index 4b9f3e4..c7a2573 100644
--- a/termcol.plp
+++ b/termcol.plp
@@ -123,9 +123,9 @@ my %col = (
 	],
 	msx => [
 		'MSX',
-		map { Shiar_Sheet::Colour->newyuv($_)->rgb48 }
-		qw/008080 008080 873F1F AA4F37 66FF6F 87EE76 7757D6 BAB70E
-		   874FEE AA4FEE BA1F98 CC3798 77462E 87B0BE CC8080 FF8080 /,
+		map { s{([0-7])}{sprintf '%02X', $1 / 7 * 255}egr }
+		qw/ 000 000 161 373 117 237 511 267
+		    711 733 661 663 141 625 555 777 /,
 	],
 );