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 4b9f3e4159dacc070eaa9fddb36c0b00fd5d19ea..c7a257332e24f6a30c052302f7b028960d5878b4 100644 (file)
--- 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 /,
        ],
 );