(U+5763): Add `<-denotational@usage' for BUCS+5802 and BUCS+584B;

apply new conventions for glyph granularity.
(U-0002140B): Apply new conventions for glyph granularity.
(U+3676): Add `<-Zhouwen' for U+5802.
(BUCS+584B): New abstract node.

diff --git a/lisp/utf-2000/Ideograph-R032-Earth.el b/lisp/utf-2000/Ideograph-R032-Earth.el
index 088fff2..89e9768 100644 (file)
--- a/lisp/utf-2000/Ideograph-R032-Earth.el
+++ b/lisp/utf-2000/Ideograph-R032-Earth.el
@@ -6728,14 +6728,78 @@
     (=cns11643-2       . #x257E)       ; &C2-257E; [05-94]
     ))
 (define-char
-  '((ideographic-radical . 32) ; ⼟
+  '((<-denotational@usage
+     ((==>ucs@bucs       . #x5802)     ; &BUCS+5802;
+      )
+     ((==>ucs@bucs       . #x584B)     ; &BUCS+584B;
+      ))
+    (ideographic-radical . 32) ; ⼟
     (ideographic-strokes . 5)
     (total-strokes      . 8)
-    (hanyu-dazidian    1 431 2)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs              . #x9FB8)     ; 龸
+      )
+     ((=>ucs@iwds-1      . #x571F)     ; &A-IWDSU+571F;
+      (=>iwds-1                  .  0312)      ; &A-IWDSU+571F;
+      ))
+    (sound@ja/on       "dAu")
     (=ucs              . #x5763)       ; 坣
-    (=cns11643-3       . #x2825)       ; &I-C3-2825; [08-05]
+    (<-ancient
+     ((=ucs              . #x5802)     ; 堂
+      ))
+    (<-ancient$_1*sources
+     shuowen)
+    (<-ancient*sources
+     shuowen)
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x5763)     ; 坣
+      ))
+    (ideographic-radical . 32) ; ⼟
+    (ideographic-strokes . 5)
+    (total-strokes      . 8)
+    (hanyu-dazidian    1 431 2)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs@unicode      . #x9FB8)     ; &GT-K01410;
+      (=gt-k             . 01410)      ; &GT-K01410;
+      )
+     ((=ucs              . #x571F)     ; 土
+      ))
+    (=ucs@unicode      . #x5763)       ; &C3-2825;
+    (=cns11643-3       . #x2825)       ; &C3-2825; [08-05]
     (=daikanwa         . 04968)        ; &I-M-04968;
-    (=hanziku-2                . #xA8D2)       ; &I-HZK02-A8D2;
+    (=daijiten         . 01713)        ; &I-DJT-01713;
+    (<-ancient
+     ((=ucs@unicode      . #x5802)     ; &AJ1-03210;
+      (=adobe-japan1-0   . 03210)      ; &AJ1-03210;
+      (=daikanwa         . 05207)      ; &I-M-05207;
+      ))
+    (<-ancient*sources
+     shuowen daikanwa)
+    (->subsumptive
+     ((==ucs@unicode     . #x5763)     ; &g2-M-04968;
+      (==cns11643-3      . #x2825)     ; &g2-M-04968; [08-05]
+      (==daikanwa        . 04968)      ; &g2-M-04968;
+      (==daijiten        . 01713)      ; &g2-M-04968;
+      (->subsumptive
+       ((===daikanwa       . 04968)    ; &R-M-04968;
+       )
+       ((===daijiten       . 01713)    ; &R-DJT-01713;
+       )
+       ((===cns11643-3     . #x2825)   ; &R-C3-2825; [08-05]
+       )
+       ((===ucs@unicode            . #x5763)   ; &R-UU+5763;
+       )
+       ((=hanziku-2        . #xA8D2)   ; &HZK02-A8D2;
+       ))
+      ))
     ))
 (define-char
   '((ideographic-radical . 32) ; ⼟
@@ -35214,7 +35278,34 @@
      ((=ucs              . #x66F9)     ; 曹
       ))
     (=ucs              . #x2140B)      ; 𡐋
-    (=cbeta            . 04021)        ; &I-CB04021;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x2140B)    ; 𡐋
+      ))
+    (ideographic-radical . 32) ; ⼟
+    (ideographic-strokes . 11)
+    (total-strokes      . 14)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs              . #x2FF0)     ; ⿰
+      )
+     ((=gt-k             . 00199)      ; &GT-K00199;
+      )
+     ((=ucs@unicode      . #x66F9)     ; &AJ1-02788;
+      (=adobe-japan1-0   . 02788)      ; &AJ1-02788;
+      ))
+    (=ucs@iso          . #x2140B)      ; &CB04021;
+    (=cbeta            . 04021)        ; &CB04021;
+    (->subsumptive
+     ((==ucs@iso         . #x2140B)    ; &g2-CB04021;
+      (==cbeta           . 04021)      ; &g2-CB04021;
+      (->subsumptive
+       ((===ucs@iso        . #x2140B)  ; &R-U-0002140B;
+       )
+       ((===cbeta          . 04021)    ; &R-CB04021;
+       ))
+      ))
     ))
 (define-char
   '((ideographic-radical . 32) ; ⼟
@@ -40921,6 +41012,11 @@
       ))
     (sound@ja/on       "dAu")
     (=ucs              . #x3676)       ; 㙶
+    (<-Zhouwen
+     ((=ucs              . #x5802)     ; 堂
+      ))
+    (<-Zhouwen$_1*sources
+     shuowen)
     ))
 (define-char
   '((<-denotational
@@ -47456,6 +47552,15 @@
     ))
 (define-char
   '((ideographic-radical . 32) ; ⼟
+    (==>ucs@bucs       . #x5802)       ; &BUCS+5802;
+    (==>daijiten       . 01765)        ; &BUCS+5802;
+    ))
+(define-char
+  '((ideographic-radical . 32) ; ⼟
+    (==>ucs@bucs       . #x584B)       ; &BUCS+584B;
+    ))
+(define-char
+  '((ideographic-radical . 32) ; ⼟
     (==>ucs@bucs       . #x5769)       ; &BUCS+5769;
     (==>daijiten       . 01691)        ; &BUCS+5769;
     ))
@@ -47529,11 +47634,6 @@
     ))
 (define-char
   '((ideographic-radical . 32) ; ⼟
-    (==>ucs@bucs       . #x5802)       ; &BUCS+5802;
-    (==>daijiten       . 01765)        ; &BUCS+5802;
-    ))
-(define-char
-  '((ideographic-radical . 32) ; ⼟
     (==>daijiten       . 01766)        ; &A2-DJT-01766;
     ))
 (define-char