From c6b9d0d45dec70b55db1e6f41aeadb6d31b55470 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 6 Dec 2023 17:17:31 +0900
Subject: [PATCH] (U+4E09): Apply new conventions for glyph granularity.
 (U+4E09-var-002): New character; use `<-denotational' for
 U+4E09. (U-00020027): New character.

---
 lisp/utf-2000/Ideograph-R001-One.el |   73 +++++++++++++++++++++++++++++++++--
 1 file changed, 69 insertions(+), 4 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index 0ca1b45..a186c82 100644
--- a/lisp/utf-2000/Ideograph-R001-One.el
+++ b/lisp/utf-2000/Ideograph-R001-One.el
@@ -1024,7 +1024,16 @@
     (sound@ja/name	"zou")
     (sound@ja/on	"san")
     (=ucs		. #x4E09)	; 三
-    (=adobe-japan1-0	. 02174)	; &I-AJ1-02174;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x4E09)	; 三
+      ))
+    (ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 2)
+    (total-strokes	 . 3)
+    (=ucs@unicode	. #x4E09)	; &AJ1-02174;
+    (=adobe-japan1-0	. 02174)	; &AJ1-02174;
     (=jis-x0208		. #x3B30)	; &I-J90-3B30; [27-16]
     (=gb2312		. #x487D)	; &I-G0-487D; [40-93]
     (=ks-x1001		. #x5F32)	; &I-K0-5F32; [63-18]
@@ -1036,7 +1045,7 @@
     (=gt-pj-1		. #x3B30)	; &I-GT-00017; [27-16]
     (=daikanwa		. 00012)	; &I-M-00012;
     (=daijiten		. 00007)	; &I-DJT-00007;
-    (=shinjigen		.  0006)	; 三
+    (=shinjigen		.  0006)	; &AJ1-02174;
     (->subsumptive
      ((=decomposition@cid
        ((=ucs		    . #x4E09)	; 三
@@ -1142,6 +1151,28 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x4E09)	; 三
+      ))
+    (ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 2)
+    (total-strokes	 . 3)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
+      (=ucs		  . #x2FF3)	; ⿳
+      )
+     ((=ucs		  . #x4E00)	; 一
+      )
+     ((=ucs		  . #x4E00)	; 一
+      )
+     ((=ucs		  . #x4E00)	; 一
+      ))
+    (=ucs-var-002	. #x4E09)	; &U-v002+4E09;
+    (->subsumptive
+     ((==ucs-var-002	  . #x4E09)	; &g2-U-v002+4E09;
+      ))
+    ))
+(define-char
   '((<-denotational@component
      ((=>ucs@component	  . #x4E0A)	; &A-compU+4E0A;
       )
@@ -1509,7 +1540,7 @@
       )
      ((==>ucs@bucs	  . #x6167)	; &BUCS+6167;
       )
-     ((==>daijiten	  . 10630)	; &A2-DJT-10630;
+     ((==>ucs@bucs	  . #x885B)	; &BUCS+885B;
       ))
     (ideographic-radical . 1)	; ⼀
     (ideographic-strokes . 2)
@@ -1522,7 +1553,8 @@
       (=daikanwa	  . 00017)	; &I-M-00017;
       (=daijiten	  . 00012)	; &I-DJT-00012;
       (<-interchangeable
-       ((=ucs		    . #x885E)	; 衞
+       ((=ucs@unicode	    . #x885E)	; &AJ1-06577;
+	(=adobe-japan1-0    . 06577)	; &AJ1-06577;
 	(=daijiten	    . 10630)	; &I-DJT-10630;
 	))
       (<-interchangeable$_1*sources
@@ -7120,6 +7152,39 @@
     (=ucs@unicode	. #x9FD6)	; &UU+9FD6;
     ))
 (define-char
+  '((ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 6)
+    (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER LEFT")
+      (=ucs		  . #x2FFA)	; ⿺
+      )
+     ((=ucs		  . #x5DF4)	; å·´
+      )
+     ((=ucs		  . #x4E09)	; 三
+      ))
+    (=ucs		. #x20027)	; 𠀧
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x20027)	; 𠀧
+      ))
+    (ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 6)
+    (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER LEFT")
+      (=ucs		  . #x2FFA)	; ⿺
+      )
+     ((=ucs@unicode	  . #x5DF4)	; &AJ1-03321;
+      (=adobe-japan1-0	  . 03321)	; &AJ1-03321;
+      )
+     ((=ucs@unicode	  . #x4E09)	; &AJ1-02174;
+      (=adobe-japan1-0	  . 02174)	; &AJ1-02174;
+      ))
+    (=ucs@iso		. #x20027)	; &U-00020027;
+    ))
+(define-char
   '((<-denotational
      ((=ucs		  . #x277E1)	; 𧟡
       ))
-- 
1.7.10.4