termcol: declare rgb maps in include data

[sheet.git] / termcol.inc.pl

diff --git a/termcol.inc.pl b/termcol.inc.pl
index 6c6f68cea57a90abdc22a7905ce00062408ecc4e..715c17492783a2d3d77edbcd591312e64a66871b 100644 (file)
--- a/termcol.inc.pl
+++ b/termcol.inc.pl
@@ -158,4 +158,34 @@ use Shiar_Sheet::Colour '1.02';
                        1B2632::night    005784::sea     31A2F2::sky     B2DCEF::cloud
                )],
        },
+
+       cpc => {
+               name => 'Amstrad CPC',
+               rgbmap => [
+                       3 => sub {
+                               $_[2] + 3 * ($_[0] + 3 * $_[1]),
+                               map { $_ && $_ * 127 + 1 } @_
+                       },
+               ],
+       },
+       ansi88 => {
+               name => '88-colour space',
+               rgbmap => [
+                       4 => sub {
+                               $_[2] + 4 * ($_[1] + 4 * $_[0]) + 16,
+                               map { (0, 139, 205, 255)[$_] } @_
+                       },
+                       [ map { ($_ + 2 + ($_>0)) * 255/11 } 0 .. 7 ],
+               ],
+       },
+       ansi256 => {
+               name => '256-colour space',
+               rgbmap => [
+                       6 => sub {
+                               $_[2] + 6 * ($_[1] + 6 * $_[0]) + 16,
+                               map { $_ && $_*40 + 55 } @_
+                       },
+                       [ map { $_ * 10 + 8 } 0 .. 23 ],
+               ],
+       },
 }