From 328f0981d7629c8aa00757cb50d1fc432365bcd4 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 13 Sep 2024 10:42:45 +0900
Subject: [PATCH] (U-0002237A): Apply new conventions for glyph granularity.

---
 lisp/utf-2000/Ideograph-R062-Halberd.el |   54 +++++++++++++++++--------------
 1 file changed, 29 insertions(+), 25 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R062-Halberd.el b/lisp/utf-2000/Ideograph-R062-Halberd.el
index 40da10a..aecdd05 100644
--- a/lisp/utf-2000/Ideograph-R062-Halberd.el
+++ b/lisp/utf-2000/Ideograph-R062-Halberd.el
@@ -63,34 +63,12 @@
     (ideographic-strokes@cns . 0)
     (total-strokes	 . 3)
     (=ucs		. #x2237A)	; 𢍺
-    (->subsumptive
-     ((ideographic-radical . 56)	; â¼·
-      (ideographic-strokes . 0)
-      (=daikanwa	  . 09657)	; &M-09657;
-      )
-     ((ideographic-radical . 56)	; â¼·
-      (ideographic-strokes . 0)
-      (=ucs@iso		  . #x2237A)	; &U-0002237A;
-      )
-     ((ideographic-radical . 62)	; â¼½
-      (ideographic-strokes . 0)
-      (=cns11643-6	  . #x2140)	; &C6-2140; [01-32]
-      ))
     ))
 (define-char
-  '((ideographic-radical . 62)	; â¼½
-    (ideographic-strokes . 0)
-    (total-strokes	 . 4)
-    (=ucs-itaiji-001	. #x6208)	; &U-i001+6208;
-    (<-formed@flipped-vertically
-     ((=ucs		  . #x6208)	; 戈
-      ))
-    (->subsumptive
-     ((==ucs-itaiji-001	  . #x6208)	; &g2-U-i001+6208;
+  '((<-denotational
+     ((=ucs		  . #x2237A)	; 𢍺
       ))
-    ))
-(define-char
-  '((ideographic-radical . 62)	; â¼½
+    (ideographic-radical . 62)	; â¼½
     (ideographic-strokes . 0)
     (total-strokes	 . 3)
     (ideographic-structure@apparent
@@ -107,6 +85,32 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x2237A)	; 𢍺
+      ))
+    (ideographic-radical . 62)	; â¼½
+    (ideographic-strokes . 0)
+    (total-strokes	 . 3)
+    (=ucs@cns		. #x2237A)	; &C6-2140;
+    (=cns11643-6	. #x2140)	; &C6-2140; [01-32]
+    (->subsumptive
+     ((==ucs@cns	  . #x2237A)	; &g2-CU+2237A;
+      (==cns11643-6	  . #x2140)	; &g2-CU+2237A; [01-32]
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 62)	; â¼½
+    (ideographic-strokes . 0)
+    (total-strokes	 . 4)
+    (=ucs-itaiji-001	. #x6208)	; &U-i001+6208;
+    (<-formed@flipped-vertically
+     ((=ucs		  . #x6208)	; 戈
+      ))
+    (->subsumptive
+     ((==ucs-itaiji-001	  . #x6208)	; &g2-U-i001+6208;
+      ))
+    ))
+(define-char
   '((ideographic-radical . 62)	; â¼½
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
-- 
1.7.10.4