[wadalabfont-kit] / renderer / type1.l

Diff of /renderer/type1.l

-version 1.4, Mon Jun 30 13:27:02 2003 UTC
+version 1.5, Thu Jul  3 02:01:26 2003 UTC
  Line 50
  Line 50
  Line 50
                kanji)
        (princ (out2type1 (makeoutline
                           (skeleton2list (applykanji (car l)) tag)))))))
+ (declare (type1max type1ratio) special)
  (setq type1max 1000)
  (setq type1ratio 2.5)
  (defun skeleton2type1 (kanji type)
- Line 167
+ Line 168
  Line 167
  Line 168
    (lets ((points (car skeleton))
           (elements (cadr skeleton))
           (hints))
-     (do ((l elements (cdr l))(element)(eltype)(elpoints nil nil))
+     (do ((l elements (cdr l))(element)(eltype)(elpoints nil nil)(type1list)(elhint)(hint))
        ((atom l))
        (setq element (car l))
        (setq eltype (car element))
- Line 176
+ Line 177
  Line 176
  Line 177
                            ((null ll))
                            (and (setq ret (assq ll type1list))(exit ret)))))
        (cond (elhint
-              (do ((ll (cadr element)(cdr ll))(hint))
+              (do ((ll (cadr element)(cdr ll)))
                 ((atom ll)(setq elpoints (nreverse elpoints)))
                 (push (nth (car ll) points) elpoints))
               (setq hint (funcall (cdr elhint) elpoints))

-Generate output suitable for use with a patch program
+Legend:



Removed from v.1.4
 


changed lines


 
Added in v.1.5
 Legend:



Removed from v.1.4
 


changed lines


 
Added in v.1.5
-Removed from v.1.4
+Added in v.1.5