Re: CLWFK の使い方 (Efont-devel) - efont

岩井です。さらに 2 点気になった事を。

1. アウトラインビューから[ファイル]->[書き出し] でフォーマットを
   Skeleton として出力したときに、グリフ名が UTF-8 で出力されますが、
   CLWFK で利用することを考えると EUC-JP で出力できた方が便利ではない
   でしょうか? (fontforge/prefs.c で EUC-JP がコメントアウトされている
   のは何故でしょう?)

2. prim-sample.l の「こざとへん」を CLWFK で肉付けしようとするとエラー
   になります。このとき生成された lisp code と backtrace を添付します。

regards,
--
 Hidetaka Iwai
 tyuyu****@debia*****

-------------- next part --------------
(defvar base-directory)
(defparameter source-load nil)
(defun load-directory (dir)
(let* ((base-directory dir))
	(load (concatenate 'string base-directory "/" "load.l"))))
(load-directory "/home/tyuyu/debworks/wadalab-fontkit/wadalab-fontkit/renderer/")
(defvar XXX)
(setq minchowidth 14.00)
(setq XXX
      '(((39 32)
        (39 388)
        (124 32)
        (106 98)
        (72 144 (link-ok t))
        (148 252)
        (88 322))
       ((tate (0 1))
        (hidari (2 3 4))
        (yoko (0 2))
        (kozato (4 5 6)))
))
(outline2eps (makeoutline (skeleton2list 
(rm-limit (applykanji XXX 'mincho))
 'mincho)))
(quit)
-------------- next part --------------
Argument X is not a NUMBER: NIL.
   [Condition of type SIMPLE-TYPE-ERROR]

Restarts:
  0: [CONTINUE] Return NIL from load of "kozato.l".
  1: [ABORT   ] Skip remaining initializations.

Debug  (type H for help)

(KERNEL:TWO-ARG-+ NIL 9.1103945)
Source: 
; File: target:code/numbers.lisp
(TWO-ARG-+/- TWO-ARG-+ + ADD-BIGNUMS)
0] backtrace

0: (KERNEL:TWO-ARG-+ NIL 9.1103945)
1: (_PLUS2 NIL (9.1103945 -10.626884))
2: (REDUCE #<Function _PLUS2 {58051C11}>
           (NIL (9.1103945 -10.626884))
           :KEY
           NIL
           ...)
3: ("DEFELEMENT MINCHO" ((72.0 144.0 #) (148.0 252.0) (88.0 322.0))
    #<unused-arg>)
4: (SKELETON2LIST #<unavailable-arg> MINCHO)
5: (EVAL (MAKEOUTLINE (SKELETON2LIST # 'MINCHO)))
6: (EVAL (OUTLINE2EPS (MAKEOUTLINE #)))
7: (LISP::SLOLOAD #<Stream for file "/home/tyuyu/kozato.l">)
8: (LISP::INTERNAL-LOAD #p"kozato.l" #p"/home/tyuyu/kozato.l" :ERROR :SOURCE)
9: (LISP::INTERNAL-LOAD #p"kozato.l" #p"/home/tyuyu/kozato.l" :ERROR NIL)
10: (LOAD "kozato.l" :VERBOSE NIL :PRINT ...)
11: (EXTENSIONS::INVOKE-SWITCH-DEMONS
     (#<Command Line Switch "load" -- ("kozato.l")>)
     (("quiet" . #) ("load" . #) ("eval" . #)))
12: ((LABELS LISP::%RESTART-LISP
       SAVE-LISP))
13: ((LABELS LISP::RESTART-LISP
       SAVE-LISP))

0] (quit)

efont

[Efont-devel] Re: CLWFK の使い方