(A-BC-8565): New abstract node.
authorMORIOKA Tomohiko <tomo.git@chise.org>
Sat, 31 Aug 2024 11:52:11 +0000 (20:52 +0900)
committerMORIOKA Tomohiko <tomo.git@chise.org>
Sat, 31 Aug 2024 16:15:04 +0000 (01:15 +0900)
(BC-8565): New character; use `<-denotational' for A-BC-8565.

lisp/utf-2000/Ideograph-R001-One.el

index 306ad28..9cbdccd 100644 (file)
   '((ideographic-radical . 1)  ; ⼀
     (ideographic-strokes . 4)
     (total-strokes      . 5)
+    (ideographic-structure@apparent
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs              . #x4E00)     ; 一
+      )
+     ((=>gt-k            . 00803)      ; &A-GT-K00803;
+      ))
+    (=>big5-cdp                . #x8565)       ; &A-CDP-8565;
+    ))
+(define-char
+  '((ideographic-radical . 1)  ; ⼀
+    (ideographic-strokes . 4)
+    (total-strokes      . 5)
     (=gt-k             . 01514)        ; &GT-K01514;
     (=gt-pj-k1         . #x432A)       ; &GT-K01514; [35-10]
     (<-formed@component
     ))
 (define-char
   '((<-denotational
+     ((=>big5-cdp        . #x8565)     ; &A-CDP-8565;
+      ))
+    (ideographic-radical . 1)  ; ⼀
+    (ideographic-strokes . 4)
+    (total-strokes      . 5)
+    (ideographic-structure@apparent
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs              . #x4E00)     ; 一
+      )
+     ((=gt-k             . 00803)      ; &GT-K00803;
+      ))
+    (=big5-cdp         . #x8565)       ; &CDP-8565;
+    ))
+(define-char
+  '((<-denotational
      ((=>ucs@component   . #x2000E)    ; &A-compU+2000E;
       ))
     (ideographic-radical . 1)  ; ⼀