From 72fce6fc1e4600416716fe5a0f64826daae31e4c Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 24 Jun 2023 14:46:44 +0900
Subject: [PATCH] (U-0002001B): Apply new conventions for glyph granularity.

---
 lisp/utf-2000/Ideograph-R001-One.el |  118 +++++++++++++++++++++++++----------
 1 file changed, 85 insertions(+), 33 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index da5775c..dfc7671 100644
--- a/lisp/utf-2000/Ideograph-R001-One.el
+++ b/lisp/utf-2000/Ideograph-R001-One.el
@@ -5638,39 +5638,6 @@
 (define-char
   '((ideographic-radical@ucs . 1)	; ⼀
     (ideographic-strokes@ucs . 5)
-    (ideographic-radical@daikanwa . 37)	; ⼤
-    (ideographic-strokes@daikanwa . 3)
-    (total-strokes	 . 6)
-    (=ucs		. #x2001B)	; 𠀛
-    (->subsumptive
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	(=ucs		    . #x2FF1)	; ⿱
-	)
-       ((=ucs		    . #x4E00)	; 一
-	)
-       ((=daikanwa	    . 05847)	; &M-05847;
-	))
-      (=daikanwa	  . 05861)	; &M-05861;
-      )
-     ((hanyu-dazidian	  1 17 9)
-      (ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	(=ucs		    . #x2FF1)	; ⿱
-	)
-       ((=ucs		    . #x4E00)	; 一
-	)
-       ((=ucs@iso	    . #x215DA)	; &CDP-877C;
-	(=big5-cdp	    . #x877C)	; &CDP-877C;
-	))
-      (=ucs@iso		  . #x2001B)	; &CDP-87EE;
-      (=big5-cdp	  . #x87EE)	; &CDP-87EE;
-      (=hanziku-1	  . #xA7B3)	; &I-HZK01-A7B3;
-      ))
-    ))
-(define-char
-  '((ideographic-radical@ucs . 1)	; ⼀
-    (ideographic-strokes@ucs . 5)
     (ideographic-radical@cns . 55)	; ⼶
     (ideographic-strokes@cns . 3)
     (ideographic-radical@cns*sources
@@ -5895,6 +5862,91 @@
     (=ucs-var-002	. #x20017)	; &U-v002+20017;
     ))
 (define-char
+  '((ideographic-radical@ucs . 1)	; ⼀
+    (ideographic-strokes@ucs . 5)
+    (ideographic-radical@daikanwa . 37)	; ⼤
+    (ideographic-strokes@daikanwa . 3)
+    (total-strokes	 . 6)
+    (ideographic-structure
+     ((name		  . "IDEOGRAPHIC DESCRIPTION CHARACTER OVERLAID")
+      (=ucs		  . #x2FFB)	; â¿»
+      )
+     ((=>ucs@iwds-1	  . #x5929)	; &A-IWDSU+5929;
+      (=>iwds-1		  .  0008)	; &A-IWDSU+5929;
+      )
+     ((=ucs		  . #x5182)	; 冂
+      ))
+    (sound@ja/on	"gyoku")
+    (=ucs		. #x2001B)	; 𠀛
+    (<-ancient
+     ((=ucs		  . #x7389)	; 玉
+      ))
+    (<-ancient$_1*sources
+     shuowen)
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2001B)	; 𠀛
+      ))
+    (ideographic-radical@ucs . 1)	; ⼀
+    (ideographic-strokes@ucs . 5)
+    (ideographic-radical@daikanwa . 37)	; ⼤
+    (ideographic-strokes@daikanwa . 3)
+    (total-strokes	 . 6)
+    (hanyu-dazidian	1 17 9)
+    (ideographic-structure
+     ((name		  . "IDEOGRAPHIC DESCRIPTION CHARACTER OVERLAID")
+      (=ucs		  . #x2FFB)	; â¿»
+      )
+     ((=ucs		  . #x5929)	; 天
+      )
+     ((=ucs		  . #x5182)	; 冂
+      ))
+    (ideographic-structure@apparent
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x4E00)	; 一
+      )
+     ((=ucs@iso		  . #x215DA)	; &MJ033413;
+      (=big5-cdp	  . #x877C)	; &I-CDP-877C;
+      (=daikanwa	  . 05847)	; &I-M-05847;
+      ))
+    (ideographic-structure@apparent/leftmost
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs@unicode	  . #x5DE5)	; &AJ1-01979;
+      )
+     ((=ucs		  . #x5185)	; 内
+      ))
+    (=ucs@iso		. #x2001B)	; &MJ030331;
+    (=mj		. 030331)	; &MJ030331;
+    (=big5-cdp		. #x87EE)	; &I-CDP-87EE;
+    (=koseki		. 067140)	; &MJ030331;
+    (=daikanwa		. 05861)	; &I-M-05861;
+    (->subsumptive
+     ((==mj		  . 030331)	; &g2-MJ030331;
+      (==koseki		  . 067140)	; &g2-MJ030331;
+      (==daikanwa	  . 05861)	; &g2-MJ030331;
+      (->subsumptive
+       ((===daikanwa	    . 05861)	; &R-M-05861;
+	)
+       ((===mj		    . 030331)	; &R-MJ030331;
+	))
+      )
+     ((==ucs@iso	  . #x2001B)	; &g2-CDP-87EE;
+      (==big5-cdp	  . #x87EE)	; &g2-CDP-87EE;
+      (->subsumptive
+       ((===big5-cdp	    . #x87EE)	; &R-CDP-87EE;
+	)
+       ((===ucs@iso	    . #x2001B)	; &R-U-0002001B;
+	)
+       ((=hanziku-1	    . #xA7B3)	; &HZK01-A7B3;
+	))
+      ))
+    ))
+(define-char
   '((ideographic-radical . 1)	; ⼀
     (ideographic-strokes . 5)
     (total-strokes	 . 6)
-- 
1.7.10.4