-pigpen => [qw( ᒧ ᑌ ᒪ ᑐ □ ᑕ ᒣ ᑎ ᒥ ᒲ ᕫ ᒷ ᕭ 🞔 ᕮ ᒬ ᕬ ᒯ ᐯ ᐳ ᐸ ᐱ ᐁ ᐅ ᐊ ᐃ )],
-wingdings => [qw{ ✌ 👌 👍 👎 ☜ ☞ ☝ ☟ ✋ ☺ 😐 ☹ 💣 ☠ ⚐ 🏱 ✈ ☼ 💧 ❄ 🕆 ✞ 🕈 ✠ ✡ ☪ }],
-colour => [
+'Pigpen' => [qw( ᒧ ᑌ ᒪ ᑐ □ ᑕ ᒣ ᑎ ᒥ ᒲ ᕫ ᒷ ᕭ 🞔 ᕮ ᒬ ᕬ ᒯ ᐯ ᐳ ᐸ ᐱ ᐁ ᐅ ᐊ ᐃ )],
+'Nyctographs' => [
+ map { s/M[\d,\hM]+(?=[M"])//gr } # clean up superfluous moves
+ map { sprintf
+ '<svg width="14" height="14" viewBox="-.5 -.5 5 5">'
+ . '<path%s d="M0,0%s %s4,0 %s4,4 %s0,4 %s0,0"/></svg>',
+ ' stroke="black" stroke-linecap="round" stroke-linejoin="round" fill="none"',
+ 'h.5v.5h-.5v-.5', # start anchor
+ map { ['M', 'h0M', 'L']->[$_] }
+ split //, $_
+ }
+ # draw style (0=empty, 1=dot, 2=line connect) to right, down, left, up
+ qw(
+ 0010 0112 2022 2220 2000 2012 0122 0202 0020 0220 0012 0022 2202
+ 0222 2222 0102 0200 2201 2002 2200 0100 0110 0120 2001 2010 2020
+ ),
+],
+'Wingdings' => [qw{ ✌ 👌 👍 👎 ☜ ☞ ☝ ☟ ✋ ☺ 😐 ☹ 💣 ☠ ⚐ 🏱 ✈ ☼ 💧 ❄ 🕆 ✞ 🕈 ✠ ✡ ☪ }],
+'Chromacons' => [
+ # Colour Alphabet by Paul Green-Armytage (2010)