From 9aa41d4511cdf767c6b969dcd29138d74d19720c Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 1 Feb 2000 06:23:48 +0000 Subject: [PATCH] New file. --- lisp/utf-2000/mojikyo.el | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 lisp/utf-2000/mojikyo.el diff --git a/lisp/utf-2000/mojikyo.el b/lisp/utf-2000/mojikyo.el new file mode 100644 index 0000000..62709bb --- /dev/null +++ b/lisp/utf-2000/mojikyo.el @@ -0,0 +1,33 @@ +(defun allocate-mojikyo-chars (name plane) + (let ((ucs (+ #xE00001 + (* (1- plane) + (eval-when-compile (* 94 60))))) + (r 0) + char c) + (while (< r 30) + (setq c 0) + (while (< c 94) + (setq char (int-char ucs)) + (put-char-attribute + char name (list (+ r (eval-when-compile (+ 16 32))) + (+ c 33))) + (setq c (1+ c) + ucs (1+ ucs))) + (setq r (1+ r))) + (setq r 30) + (while (< r 60) + (setq c 0) + (while (< c 94) + (setq char (int-char ucs)) + (put-char-attribute + char name (list (+ r (eval-when-compile (+ 18 32))) + (+ c 33))) + (setq c (1+ c) + ucs (1+ ucs))) + (setq r (1+ r))) + )) + +(let ((p 1)) + (while (<= p 21) + (allocate-mojikyo-chars (intern (format "mojikyo-pj-%d" p)) p) + (setq p (1+ p)))) -- 1.7.10.4