sub disptap {
return map {
!m/\A(-?)(\d)(\d)/ ? $_ :
- $1.sprintf('%s<br>%s',
+ $1.join(' ',
'·' x $2, '·' x $3,
);
} @_;
903a9c 8FBa9c 815a9c 80Ea9c 887a9c
806a9c 89Aa9c 800a9c945aaa
}],
+# bacon's cipher
+# baudot
+# ascii
'Braille' => [qw{ ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ ⠚ ⠅ ⠇ ⠍ ⠝ ⠕ ⠏ ⠟ ⠗ ⠎ ⠞ ⠥ ⠧ ⠺ ⠭ ⠽ ⠵ }],
'5-point Tactile' => [
map { '<svg width="9" height="12" viewBox="0 0 18 24">'.$_.'</svg>' }