From a27d4ac82fe828d8647036ec74d068273aa68330 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Tue, 22 Jun 2021 18:40:09 +0900 Subject: [PATCH] (U-0002008B): Add `ideographic-structure'. (U+2008B-itaiji-002): New character; use `<-subsumptive' for U-0002008B. (U-000200A0): Apply new conventions for glyph granularity. --- lisp/utf-2000/Ideograph-R004-Slash.el | 70 +++++++++++++++++++++++++++++---- 1 file changed, 63 insertions(+), 7 deletions(-) diff --git a/lisp/utf-2000/Ideograph-R004-Slash.el b/lisp/utf-2000/Ideograph-R004-Slash.el index 7f2dfe1..d3b41de 100644 --- a/lisp/utf-2000/Ideograph-R004-Slash.el +++ b/lisp/utf-2000/Ideograph-R004-Slash.el @@ -1818,6 +1818,14 @@ '((ideographic-radical . 4) ; ⼃ (ideographic-strokes . 2) (total-strokes . 3) + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT") + (=ucs . #x2FF8) ; ⿸ + ) + ((=>ucs@component . #x5382) ; &A-compU+5382; + ) + ((=ucs . #x4E00) ; 一 + )) (=ucs . #x2008B) ; 𠂋 (<-formed@component ((=ucs . #x4EBA) ; 人 @@ -1825,7 +1833,31 @@ ((=ucs . #x5C38) ; 尸 )) (->subsumptive - ((==ucs@iso . #x2008B) ; &g2-IU-0002008B; + ((ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT") + (=ucs . #x2FF8) ; ⿸ + ) + ((=ucs . #x20086) ; 𠂆 + ) + ((=ucs . #x4E00) ; 一 + )) + (=>>ucs@iso . #x2008B) ; &G-IU+2008B; + (->subsumptive + ((==ucs@iso . #x2008B) ; &g2-IU-0002008B; + )) + ) + ((ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT") + (=ucs . #x2FF8) ; ⿸ + ) + ((=ucs . #x5382) ; 厂 + ) + ((=ucs . #x4E00) ; 一 + )) + (=ucs-itaiji-002 . #x2008B) ; &U-i002+2008B; + (->subsumptive + ((==ucs-itaiji-002 . #x2008B) ; &g2-U-i002+2008B; + )) )) )) (define-char @@ -3118,22 +3150,46 @@ '((ideographic-radical . 4) ; ⼃ (hanyu-dazidian 1 37 2) (=ucs . #x200A0) ; 𠂠 + (<-ancient + ((=ucs . #x91C6) ; 釆 + )) + (<-ancient*sources + shuowen) (->subsumptive ((ideographic-strokes . 4) (total-strokes . 5) - (=big5-cdp . #x8674) ; >-00184; + (=ucs@cns . #x200A0) ; >-00184; + (=cns11643-6 . #x222E) ; >-00184; [02-14] + (=big5-cdp . #x8674) ; &I-CDP-8674; (=gt . 00184) ; &I-GT-00184; (=gt-pj-2 . #x312B) ; &I-GT-00184; [17-11] (=daikanwa . 48906) ; &I-M-48906; - ) - ((ideographic-strokes . 4) - (total-strokes . 5) - (=ucs@cns . #x200A0) ; &C6-222E; - (=cns11643-6 . #x222E) ; &C6-222E; [02-14] + (=cbeta . 08705) ; &I-CB08705; + (->subsumptive + ((==big5-cdp . #x8674) ; &g2-GT-00184; + (==gt . 00184) ; &g2-GT-00184; + (==daikanwa . 48906) ; &g2-GT-00184; + (==cbeta . 08705) ; &g2-GT-00184; + (->subsumptive + ((===daikanwa . 48906) ; &R-M-48906; + ) + ((===big5-cdp . #x8674) ; &R-CDP-8674; + ) + ((===cbeta . 08705) ; &R-CB08705; + ) + ((===gt . 00184) ; &R-GT-00184; + )) + ) + ((==ucs@cns . #x200A0) ; &g2-CU+200A0; + (==cns11643-6 . #x222E) ; &g2-CU+200A0; [02-14] + )) ) ((ideographic-strokes . 5) (total-strokes . 6) (=ucs@iso . #x200A0) ; &U-000200A0; + (->subsumptive + ((==ucs@iso . #x200A0) ; &g2-IU-000200A0; + )) )) )) (define-char -- 1.7.10.4