unicode: fix diagonal arrow direction

[sheet.git] / unicode.plp

diff --git a/unicode.plp b/unicode.plp
index 242253bd6481630101f09c2a31f1da36040a6887..73d07a50565ce2252c8b28136f820fbaee2e3097 100644 (file)
--- a/unicode.plp
+++ b/unicode.plp
@@ -153,20 +153,27 @@ print table(@$_) for (
 print "<h2>Arrows</h2>\n\n";
 print table(@$_) for (
        [ 4 => [qw{. ↖ ↑ ↗ ↔ . ← - → ↕ . ↙ ↓ ↘ -}]],
-       [ 4 => [qw{. ⇖ ⇑ ⇗ ⇔ . ⇐ - ⇒ ⇕ . �� ⇓ ⇙ -}]],
+       [ 4 => [qw{. ⇖ ⇑ ⇗ ⇔ . ⇐ - ⇒ ⇕ . �� ⇓ ⇘ -}]],
        [ 3 => [qw{. ◤ ▲ ◥ . ◀ ◆ ▶ . ◣ ▼ ◢}]],
        [ 3 => [qw{. ◸ △ ◹ . ◁ ◇ ▷ . ◺ ▽ ◿}]],
 );
 
 print "<h2>Line drawing</h2>\n\n";
 print table(@$_) for (
-       [ 4 => [qw{. ┌ ┬ ┐ ─ . ├ ┼ ┤ │ . └ ┴ ┘ -}]],
-       [ 4 => [qw{. ┏ ┳ ┓ ━ . ┣ ╋ ┫ ┃ . ┗ ┻ ┛ -}]],
+       [ 4 => [qw{. ┌ ┬ ┐ . ├ ┼ ┤ . └ ┴ ┘}]],
+       [ 4 => [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";