From 33c297e51faa1564de2b8227d72d777278ac9d17 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 30 Jul 2015 02:00:27 +0200
Subject: [PATCH] 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>.
---
 latin.plp           |  1 +
 writing-latn.inc.pl | 11 +++++++++++
 2 files changed, 12 insertions(+)

diff --git a/latin.plp b/latin.plp
index 5e53894..42d4003 100644
--- 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 bd3accf..0676e8b 100644
--- 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
+	},
+],
 );
-- 
2.30.0