From cfc26a3b8b03c3f8bf28531368c52661d2f4dc83 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 15 Jun 2024 18:27:22 +0900
Subject: [PATCH] (U+5825): Add `<-denotational@usage' for A2-DJT-01784; apply
 new conventions for glyph granularity. (A2-DJT-01784): New
 abstract node.

---
 lisp/utf-2000/Ideograph-R032-Earth.el |   80 ++++++++++++++++++++++++++++++++-
 1 file changed, 78 insertions(+), 2 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R032-Earth.el b/lisp/utf-2000/Ideograph-R032-Earth.el
index be3a204..1166a46 100644
--- a/lisp/utf-2000/Ideograph-R032-Earth.el
+++ b/lisp/utf-2000/Ideograph-R032-Earth.el
@@ -22475,14 +22475,86 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 32)	; ⼟
+  '((<-denotational@usage
+     ((==>daijiten	  . 01784)	; &A2-DJT-01784;
+      ))
+    (ideographic-radical . 32)	; ⼟
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x6544)	; 敄
+      )
+     ((=>ucs@iwds-1	  . #x571F)	; &A-IWDSU+571F;
+      (=>iwds-1		  .  0312)	; &A-IWDSU+571F;
+      ))
+    (sound@ja/on/go	"mu" "mou" "mu")
+    (sound@ja/on/kan	"bou" "bAu" "bu")
+    (=ucs		. #x5825)	; å ¥
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x5825)	; å ¥
+      ))
+    (ideographic-radical . 32)	; ⼟
     (ideographic-strokes . 9)
     (total-strokes	 . 12)
     (hanyu-dazidian	1 469 12)
-    (=ucs		. #x5825)	; å ¥
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs@unicode	  . #x6544)	; &AJ1-17719;
+      (=adobe-japan1-5	  . 17719)	; &AJ1-17719;
+      )
+     ((=ucs		  . #x571F)	; 土
+      ))
+    (=ucs@unicode	. #x5825)	; &MJ009156;
+    (=mj		. 009156)	; &MJ009156;
     (=cns11643-2	. #x3A6A)	; &I-C2-3A6A; [26-74]
     (=big5		. #xD8A8)	; &I-B-D8A8;
+    (=koseki		. 060040)	; &MJ009156;
     (=daikanwa		. 05260)	; &I-M-05260;
+    (=daijiten		. 01784)	; &I-DJT-01784;
+    (<-formed
+     ((=ucs@unicode	  . #x5D4D)	; &MJ010609;
+      (=mj		  . 010609)	; &MJ010609;
+      ))
+    (<-same
+     ((=ucs@unicode	  . #x5D4D)	; &MJ010609;
+      (=mj		  . 010609)	; &MJ010609;
+      (=daikanwa	  . 08280)	; &I-M-08280;
+      ))
+    (<-same$_1*sources
+     jiyun daikanwa)
+    (<-same*sources
+     jiyun daikanwa)
+    (->formed
+     ((=ucs@unicode	  . #x5D4D)	; &MJ010609;
+      (=mj		  . 010609)	; &MJ010609;
+      ))
+    (->formed$_1*sources
+     jiyun)
+    (->formed*sources
+     jiyun)
+    (->subsumptive
+     ((==ucs@unicode	  . #x5825)	; &g2-MJ009156;
+      (==mj		  . 009156)	; &g2-MJ009156;
+      (==cns11643-2	  . #x3A6A)	; &g2-MJ009156; [26-74]
+      (==daikanwa	  . 05260)	; &g2-MJ009156;
+      (->subsumptive
+       ((===daikanwa	    . 05260)	; &R-M-05260;
+	)
+       ((===mj		    . 009156)	; &R-MJ009156;
+	)
+       ((===cns11643-2	    . #x3A6A)	; &R-C2-3A6A; [26-74]
+	)
+       ((===ucs@unicode	    . #x5825)	; &R-UU+5825;
+	))
+      )
+     ((==koseki		  . 060040)	; &g2-DJT-01784;
+      (==daijiten	  . 01784)	; &g2-DJT-01784;
+      ))
     ))
 (define-char
   '((ideographic-radical . 32)	; ⼟
@@ -46537,6 +46609,10 @@
     ))
 (define-char
   '((ideographic-radical . 32)	; ⼟
+    (==>daijiten	. 01784)	; &A2-DJT-01784;
+    ))
+(define-char
+  '((ideographic-radical . 32)	; ⼟
     (==>ucs@bucs	. #x582F)	; &BUCS+582F;
     (==>daijiten	. 01793)	; &BUCS+582F;
     ))
-- 
1.7.10.4