latin: colour alphabet

A set of distinctly recognisable colours to represent letters, mapped to
English mnemonics (displayed as hover); from original research at
<http://aic-colour-journal.org/index.php/JAIC/article/viewFile/19/16>.

diff --git a/latin.plp b/latin.plp
index 5e53894615ea809576c10afda52b25e90da35d45..42d40033abb452ae7e84978af1670ff1f4321bf0 100644 (file)
--- a/latin.plp
+++ b/latin.plp
@@ -55,6 +55,7 @@ my %scriptname = (
        wingdings=> 'Wingdings',
        code39   => 'Code 39', # ISO/IEC 16388
        rm4scc   => '<abbr title="Royal Mail 4-State Customer Code">RM4SCC</abbr>',
+       colour   => 'Chromacons', # Colour Alphabet by Paul Green-Armytage (2010)
 );
 
 my @table = do 'writing-latn.inc.pl';

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index bd3accfaff21c4cbbab7742497b364353995d0f5..0676e8b550109bd4a22b33f3394b38dee7e0ebde 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -174,4 +174,15 @@ rm4scc => [
 ],
 pigpen => [qw( ᒧ ᑌ ᒪ  ᑐ □ ᑕ  ᒣ ᑎ ᒥ  ᒲ ᕫ ᒷ  ᕭ 🞔 ᕮ ᒬ ᕬ ᒯ  ᐯ ᐳ ᐸ ᐱ  ᐁ ᐅ ᐊ ᐃ  )],
 wingdings => [qw{ ✌ 👌 👍 👎 ☜ ☞ ☝ ☟ ✋ ☺ 😐 ☹ 💣 ☠ ⚐ 🏱 ✈ ☼ 💧 ❄ 🕆 ✞ 🕈 ✠ ✡ ☪ }],
+colour => [
+       map { sprintf '<span style="background:#%s" title="%s">%s</span>', split(/:/, $_), chr(8195) }
+       qw{
+               F0A3FF:Amethyst 0075DC:Blue      993F00:Caramel  4C005C:Damson   191919:Ebony
+               005C31:Forest   2BCE48:Green     FFCC99:Honeydew 808080:Iron     94FFB5:Jade
+               8F7C00:Khaki    9DCC00:Lime      C20088:Mallow
+               003380:Navy     FFA405:Orpiment  FFA8BB:Pink     426600:Quagmire FF0010:Red
+               5EF1F2:Sky      00998F:Turquoise E0FF66:Uranium  740AFF:Violet   990000:Wine
+               FFFF80:Xanthin  FFFF00:Yellow    FF5005:Zinnia
+       },
+],
 );