Add some HDIC-KTB's Small-Seal glyphs.

diff --git a/lisp/utf-2000/ShuoWen-SR001.el b/lisp/utf-2000/ShuoWen-SR001.el
index d074546..7f76918 100644 (file)
--- a/lisp/utf-2000/ShuoWen-SR001.el
+++ b/lisp/utf-2000/ShuoWen-SR001.el
@@ -13,6 +13,16 @@
     ))
 (define-char
   '((shuowen-radical   . 1)    ; 一
+    (=>shuowen-jiguge  . 00200)        ; &A-SW-JIGUGE-00200;
+    (<-Small-Seal
+     ((=ucs              . #x5F0C)     ; 弌
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=>shuowen-jiguge          . 00200)      ; &A-SW-JIGUGE-00200;
+      ))
+    (shuowen-radical   . 1)    ; 一
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT")
       (=ucs              . #x2FF9)     ; ⿹
@@ -32,7 +42,25 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=>shuowen-jiguge          . 00200)      ; &A-SW-JIGUGE-00200;
+      ))
+    (shuowen-radical   . 1)    ; 一
+    (=hdic-ktb-seal-glyph-id . T1_016_A51)
+    (===chise-hdic-ktb-seal . #x0100)  ; &R-CHISE-HDIC-KTBS0100;
+    ))
+(define-char
   '((shuowen-radical   . 1)    ; 一
+    (=>shuowen-jiguge  . 00201)        ; &A-SW-JIGUGE-00201;
+    (<-Small-Seal
+     ((=ucs              . #x5143)     ; 元
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=>shuowen-jiguge          . 00201)      ; &A-SW-JIGUGE-00201;
+      ))
+    (shuowen-radical   . 1)    ; 一
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs              . #x2FF1)     ; ⿱
@@ -52,7 +80,33 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=>shuowen-jiguge          . 00201)      ; &A-SW-JIGUGE-00201;
+      ))
+    (shuowen-radical   . 1)    ; 一
+    (=hdic-ktb-seal-glyph-id . T1_016_A61)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=shuowen-jiguge   . 00100)      ; &SW-JIGUGE-00100;
+      )
+     ((=shuowen-jiguge   . 28901)      ; &SW-JIGUGE-28901;
+      ))
+    (===chise-hdic-ktb-seal . #x0102)  ; &R-CHISE-HDIC-KTBS0102;
+    ))
+(define-char
   '((shuowen-radical   . 1)    ; 一
+    (=>shuowen-jiguge  . 00202)        ; &A-SW-JIGUGE-00202;
+    (<-Small-Seal
+     ((=ucs              . #x5929)     ; 天
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=>shuowen-jiguge          . 00202)      ; &A-SW-JIGUGE-00202;
+      ))
+    (shuowen-radical   . 1)    ; 一
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs              . #x2FF1)     ; ⿱
@@ -72,6 +126,17 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=>shuowen-jiguge          . 00202)      ; &A-SW-JIGUGE-00202;
+      ))
+    (shuowen-radical   . 1)    ; 一
+    (=hdic-ktb-seal-glyph-id . T1_016_A53)
+    (===chise-hdic-ktb-seal . #x0101)  ; &R-CHISE-HDIC-KTBS0101;
+    (<-Small-Seal@tenrei-bansho-meigi/chise
+     ((=ucs              . #x2CEC3)    ; 𬻃
+      ))
+    ))
+(define-char
   '((shuowen-radical   . 1)    ; 一
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM ABOVE")
@@ -89,10 +154,25 @@
      ((===shuowen-jiguge5 . 00203)     ; &SW-JIGUGE5-00203;
       )
      ((===shuowen-jiguge4 . 00203)     ; &SW-JIGUGE4-00203;
+      )
+     ((=hdic-ktb-seal-glyph-id . T1_016_A62)
+      (===chise-hdic-ktb-seal . #x0103)        ; &R-CHISE-HDIC-KTBS0103;
       ))
     ))
 (define-char
   '((shuowen-radical   . 1)    ; 一
+    (=>shuowen-jiguge  . 00204)        ; &A-SW-JIGUGE-00204;
+    (<-Small-Seal
+     ((=ucs              . #x53D3)     ; 叓
+      )
+     ((=ucs              . #x540F)     ; 吏
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=>shuowen-jiguge          . 00204)      ; &A-SW-JIGUGE-00204;
+      ))
+    (shuowen-radical   . 1)    ; 一
     (ideographic-structure
      ((name              . "IDEOGRAPHIC DESCRIPTION CHARACTER OVERLAID")
       (=ucs              . #x2FFB)     ; ⿻
@@ -113,3 +193,11 @@
      ((===shuowen-jiguge4 . 00204)     ; &SW-JIGUGE4-00204;
       ))
     ))
+(define-char
+  '((<-denotational
+     ((=>shuowen-jiguge          . 00204)      ; &A-SW-JIGUGE-00204;
+      ))
+    (shuowen-radical   . 1)    ; 一
+    (=hdic-ktb-seal-glyph-id . T1_016_B11)
+    (===chise-hdic-ktb-seal . #x0104)  ; &R-CHISE-HDIC-KTBS0104;
+    ))