unicode: fix diagonal arrow direction

[sheet.git] / unicode.plp

diff --git a/unicode.plp b/unicode.plp
index b8e16f13bfdaa897f861a32c6b2d7be07344849e..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";
@@ -231,3 +238,61 @@ print table(@$_) for (
        ],
 );
 
+print "<h2>Japanese</h2>\n\n";
+print table(@$_) for (
+       [
+               1 => [qw{
+                       . あ い う え お =
+                       . か き く け こ =
+                       . さ し す せ そ =
+                       . た ち つ て と =
+                       . な に ぬ ね の ん
+                       . は ひ ふ へ ほ =
+                       . ま み む め も =
+                       . や =  ゆ =  よ =
+                       . ら り る れ ろ =
+                       . わ ゐ =  ゑ を =
+               }],
+               ['', qw{K S T N H M Y R W}],
+               [qw{A I U E O}, ''],
+       ],
+       [
+               1 => [qw{
+                       . が ぎ ぐ げ ご
+                       . ざ じ ず ぜ ぞ
+                       . だ ぢ づ で ど
+                       . ば び ぶ べ ぼ
+                       . ぱ ぴ ぷ ぺ ぽ
+               }],
+               [qw{G Z D B P}],
+               [qw{A I U E O}],
+       ],
+       [
+               1 => [qw{
+                       . ア イ ウ エ オ ー
+                       . カ キ ク ケ コ =
+                       . サ シ ス セ ソ =
+                       . タ チ ツ テ ト =
+                       . ナ ニ ヌ ネ ノ ン
+                       . ハ ヒ フ ヘ ホ =
+                       . マ ミ ム メ モ =
+                       . ヤ -  ユ -  ヨ =
+                       . ラ リ ル レ ロ =
+                       . ワ ヰ -  ヱ ヲ =
+               }],
+               ['', qw{K S T N H M Y R W}],
+               [qw{A I U E O}, ''],
+       ],
+       [
+               1 => [qw{
+                       . ガ ギ グ ゲ ゴ
+                       . ザ ジ ズ ゼ ゾ
+                       . ダ ヂ ヅ デ ド
+                       . バ ビ ブ ベ ボ
+                       . パ ピ プ ペ ポ
+                       . ヷ ヸ ヴ ヹ ヺ
+               }],
+               [qw{G Z D B P V}],
+               [qw{A I U E O}],
+       ],
+);