[wadalabfont-kit] / renderer / type1.l

Diff of /renderer/type1.l

-version 1.1, Thu Jun 19 08:15:20 2003 UTC
+version 1.2, Fri Jun 20 11:40:23 2003 UTC
  Line 49
  Line 49
  Line 49
                (long-hex-image (logand 127 (sref kanji 1)))
                kanji)
        (princ (out2type1 (makeoutline
-                          (skelton2list (applykanji (car l)) tag)))))))
+                          (skeleton2list (applykanji (car l)) tag)))))))
  (setq type1max 1000)
  (setq type1ratio 2.5)
- (defun skelton2type1 (kanji type)
+ (defun skeleton2type1 (kanji type)
    (lets ((meshsize 0.4)
-          (skelton (normkanji (applykanji kanji type)))
+          (skeleton (normkanji (applykanji kanji type)))
-          (outline (skelton2list skelton type))
+          (outline (skeleton2list skeleton type))
-          (hints (type1hints skelton type)))
+          (hints (type1hints skeleton type)))
      (out2type1 outline hints)))
  (defun out2type1 (outline (hints))
    (cond
  Line 163
  Line 163
  Line 163
                     (putc_crypt 9)(putc_crypt 14)">")))))
  ;
- (defun type1hints (skelton type)
+ (defun type1hints (skeleton type)
-   (lets ((points (car skelton))
+   (lets ((points (car skeleton))
-          (elements (cadr skelton))
+          (elements (cadr skeleton))
           (hints))
      (do ((l elements (cdr l))(element)(eltype)(elpoints nil nil))
        ((atom l))

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



Removed from v.1.1
 


changed lines


 
Added in v.1.2
 Legend:



Removed from v.1.1
 


changed lines


 
Added in v.1.2
-Removed from v.1.1
+Added in v.1.2