From ff2167ef0e1ccdcc7f78fe84937e342164a78b4b Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 9 Jun 2019 13:30:51 +0900
Subject: [PATCH] (U+3C20): Apply new conventions for glyph granularity.
 (U+3C20-var-001): New character; use `<-denotational' for
 U+3C20.

---
 lisp/utf-2000/Ideograph-R076-Lack.el |   49 ++++++++++++++++++++++++++++------
 1 file changed, 41 insertions(+), 8 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R076-Lack.el b/lisp/utf-2000/Ideograph-R076-Lack.el
index 2e2e3f8..f01c5fe 100644
--- a/lisp/utf-2000/Ideograph-R076-Lack.el
+++ b/lisp/utf-2000/Ideograph-R076-Lack.el
@@ -767,6 +767,24 @@
     (ideographic-strokes . 4)
     (total-strokes	 . 8)
     (ideographic-structure
+     ((=>ucs@iwds-1	  . #x2FFA)	; &A-IWDSU+2FFA;
+      (=>iwds-1		  .  0307)	; &A-IWDSU+2FFA;
+      )
+     ((=ucs		  . #x4EA2)	; 亢
+      )
+     ((=ucs		  . #x6B20)	; 欠
+      ))
+    (sound@ja/on	"kAu")
+    (=ucs		. #x3C20)	; ã° 
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x3C20)	; ã° 
+      ))
+    (ideographic-radical . 76)	; ⽋
+    (ideographic-strokes . 4)
+    (total-strokes	 . 8)
+    (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs		  . #x2FF0)	; â¿°
       )
@@ -774,8 +792,8 @@
       )
      ((=ucs		  . #x6B20)	; 欠
       ))
-    (=ucs		. #x3C20)	; ã° 
-    (=cns11643-5	. #x2656)	; &I-C5-2656; [06-54]
+    (=ucs@unicode	. #x3C20)	; &C5-2656;
+    (=cns11643-5	. #x2656)	; &C5-2656; [06-54]
     (=daikanwa		. 16014)	; &I-M-16014;
     (=cbeta		. 00780)	; &I-CB00780;
     (->subsumptive
@@ -796,14 +814,29 @@
        ((===cbeta	    . 00780)	; &R-CB00780;
 	))
       )
+     ((==ucs@cns	  . #x3C20)	; &g2-CU+3C20;
+      (==cns11643-5	  . #x2656)	; &g2-CU+3C20; [06-54]
+      )
      ((==ucs@unicode	  . #x3C20)	; &g2-UU+3C20;
-      (==cns11643-5	  . #x2656)	; &g2-UU+3C20; [06-54]
-      (->subsumptive
-       ((===cns11643-5	    . #x2656)	; &R-C5-2656; [06-54]
-	)
-       ((===ucs@unicode	    . #x3C20)	; &R-UU+3C20;
-	))
+      (==ucs@JP/hanazono  . nil)
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x3C20)	; ã° 
+      ))
+    (ideographic-radical . 76)	; ⽋
+    (ideographic-strokes . 4)
+    (total-strokes	 . 8)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER LEFT")
+      (=ucs		  . #x2FFA)	; ⿺
+      )
+     ((=ucs		  . #x4EA2)	; 亢
+      )
+     ((=ucs		  . #x6B20)	; 欠
       ))
+    (=ucs-var-001	. #x3C20)	; &U-v001+3C20;
     ))
 (define-char
   '((ideographic-radical . 76)	; ⽋
-- 
1.7.10.4