digits: chinese counting rods

[sheet.git] / writing-digits.inc.pl

diff --git a/writing-digits.inc.pl b/writing-digits.inc.pl
index e8a1366ec2dc91bef0ad56b1be9922c4b62816fa..573fe41037b4dc7a988dc1967ecb38b0dfb24696 100644 (file)
--- a/writing-digits.inc.pl
+++ b/writing-digits.inc.pl
@@ -3,7 +3,8 @@ use utf8;
 hant     => [qw{ >- 壹 貳 參 肆 伍 陸 柒 捌 玖 零 }],
 hans     => [qw{ 〇 一 二 三 四 五 六 七 八 九 十 }],
 suzhou   => [qw{ >- 〡 〢 〣 〤 〥 〦 〧 〨 〩 〸 }],
-ethi     => [qw{   ፩ ፪ ፫ ፬ ፭ ፮ ፯ ፰ ፱ }],
+rod      => [qw{ 〇 𝍩 𝍪 𝍫 𝍬 𝍭 𝍮 𝍯 𝍰 𝍱 𝍠 }],
+ethi     => [qw{>- ፩ ፪ ፫ ፬ ፭ ፮ ፯ ፰ ፱ ፲ }],
 khmr     => [qw{ ០ ១ ២ ៣ ៤ ៥ ៦ ៧ ៨ ៩ }],
 arabindi => [qw{ ٠ ١ ٢ ٣ ٤ ٥ ٦ ٧ ٨ ٩ }],
 arabpers => [qw{ ۰ ۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ }],
@@ -41,4 +42,22 @@ teng     => [qw{            }],
 tlh      => [qw{            }],
 osma     => [qw{ 𐒠 𐒡 𐒢 𐒣 𐒤 𐒥 𐒦 𐒧 𐒨 𐒩 }],
 brai     => [qw{ ⠚ ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ }],
+suttbe => [
+       map { pack 'W*', map { hex "1D$_" } unpack '(A3)*' } qw{
+               876a9b 800 80E 81E 844 84C
+               96Aaa28F5aa1 96Aaa28DCaa1 96Aaa281Eaa1 844aa492Faa4 921aa48EFa9c
+       }
+],
+suttnl => [
+       map { pack 'W*', map { hex "1D$_" } unpack '(A3)*' } qw{
+               876a9b 800 80E 886 844 84C
+               8F5aa1 8DCaa1 81Eaa1 88Eaa1 84Ca9c
+       }
+],
+suttus => [
+       map { pack 'W*', map { hex "1D$_" } unpack '(A3)*' } qw{
+               876a9b 800 80E 81E 844 84C
+               887a9c 8A5a9c 8BBa9c 8CEa9c 9A58F5aa2
+       }
+],
 );