digraphs: additional line drawing proposals

Add some glaring omissions in line drawing Unicode as custom digraphs (mostly
featuring dual-styling, some expected but somehow missing analogues).  Also add
/unicode tables showing the more uncommon cases.

diff --git a/shiar.inc.txt b/shiar.inc.txt
index 7bedd23430b225f699ed610f8a843b8afff5a25d..fb4803c70608bfd326df440ca753f0975de3d184 100644 (file)
--- a/shiar.inc.txt
+++ b/shiar.inc.txt
@@ -22,6 +22,25 @@ m/ ₥
 ** ⁑  #XXX: useful?
 3* ⁂  #XXX: useful?
 
 ** ⁑  #XXX: useful?
 3* ⁂  #XXX: useful?
 

+# obvious line drawing gaps
+ll ╴
+rr ╶
+uu ╵
+dd ╷  # goddamn! stupid arabic dad got there first
+LL ╸
+RR ╺
+UU ╹
+DD ╻
+Hh ╾
+hH ╼
+Vv ╿
+vV ╽
+2- ╌  # exactly like to 3 and 4
+2_ ╍
+2! ╎
+2/ ╏
+BF ╳  # FD and BD combined; FB already in use
+

 # additional letters
 sl ſ
 HW Ƕ  # HV conflicts with vh line drawing
 # additional letters
 sl ſ
 HW Ƕ  # HV conflicts with vh line drawing


@@ -191,7 +210,7 @@ z9 ʑ
 #Z9 ʓ
 
 # tone letters
 #Z9 ʓ
 
 # tone letters

-2/ ƻ
+#2/ ƻ  # rarely used, and double dash is far more logical

 %2 Ƨ
 2% ƨ
 %6 Ƅ
 %2 Ƨ
 2% ƨ
 %6 Ƅ

diff --git a/unicode.plp b/unicode.plp
index 242253bd6481630101f09c2a31f1da36040a6887..1aadd030a23049454ad63d3ca7d1b8dbcbef0740 100644 (file)
--- a/unicode.plp
+++ b/unicode.plp
@@ -160,13 +160,20 @@ print table(@$_) for (
 
 print "<h2>Line drawing</h2>\n\n";
 print table(@$_) for (
 
 print "<h2>Line drawing</h2>\n\n";
 print table(@$_) for (

-       [ 4 => [qw{. ┌ ┬ ┐ ─ . ├ ┼ ┤ │ . └ ┴ ┘ -}]],
-       [ 4 => [qw{. ┏ ┳ ┓ ━ . ┣ ╋ ┫ ┃ . ┗ ┻ ┛ -}]],
+       [ 4 => [qw{. ┌ ┬ ┐ . ├ ┼ ┤ . └ ┴ ┘}]],
+       [ 4 => [qw{. ┏ ┳ ┓ . ┣ ╋ ┫ . ┗ ┻ ┛}]],

        [ 3 => [qw{. ┍ ┯ ┑ . ┝ ┿ ┥ . ┕ ┷ ┙}]],
        [ 3 => [qw{. ┎ ┰ ┒ . ┠ ╂ ┨ . ┖ ┸ ┚}]],
        [ 3 => [qw{. ┍ ┯ ┑ . ┝ ┿ ┥ . ┕ ┷ ┙}]],
        [ 3 => [qw{. ┎ ┰ ┒ . ┠ ╂ ┨ . ┖ ┸ ┚}]],

-#      [ 4 => [qw{. ╔ ╦ ╗ ═ . ╠ ╬ ╣ ║ . ╚ ╩ ╝ -}]],
-#      [ 3 => [qw{. ╒ ╤ ╕ . ╞ ╪ ╡ . ╘ ╧ ╛}]],
-#      [ 3 => [qw{. ╓ ╥ ╖ . ╟ ╫ ╢ . ╙ ╨ ╜}]],
+       [ 4 => [qw{
+               . ╴ ─ ╌ ┄ ┈ ╶ ╾
+               . ╸ ━ ╍ ┅ ┉ ╺ ╼
+               . ╵ │ ╎ ┆ ┊ ╷ ╿
+               . ╹ ┃ ╏ ┇ ┋ ╻ ╽
+       }]],
+       [ 1 => [qw{. ╱ ╳ ╲ }]],
+       [ 4 => [qw{. ╔ ╦ ╗ ═ . ╠ ╬ ╣ ║ . ╚ ╩ ╝ - }]],
+       [ 3 => [qw{. ╒ ╤ ╕ . ╞ ╪ ╡ . ╘ ╧ ╛ }]],
+       [ 3 => [qw{. ╓ ╥ ╖ . ╟ ╫ ╢ . ╙ ╨ ╜ }]],

 );
 
 print "<h2>Signs</h2>\n\n";
 );
 
 print "<h2>Signs</h2>\n\n";