[wadalabfont-kit] / renderer / type1.l  

Diff of /renderer/type1.l

Parent Directory | Revision Log

version 1.1, Thu Jun 19 08:15:20 2003 UTC version 1.5, Thu Jul 3 02:01:26 2003 UTC
Line 49 
Line 49 
               (long-hex-image (logand 127 (sref kanji 1)))                (long-hex-image (logand 127 (sref kanji 1)))
               kanji)                kanji)
       (princ (out2type1 (makeoutline        (princ (out2type1 (makeoutline
                          (skelton2list (applykanji (car l)) tag)))))))                           (skeleton2list (applykanji (car l)) tag)))))))
   (declare (type1max type1ratio) special)
 (setq type1max 1000)  (setq type1max 1000)
 (setq type1ratio 2.5)  (setq type1ratio 2.5)
 (defun skelton2type1 (kanji type)  (defun skeleton2type1 (kanji type)
   (lets ((meshsize 0.4)    (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)))      (out2type1 outline hints)))
 (defun out2type1 (outline (hints))  (defun out2type1 (outline (hints))
   (cond    (cond
Line 163 
Line 164 
                    (putc_crypt 9)(putc_crypt 14)">")))))                     (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))           (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))        ((atom l))
       (setq element (car l))        (setq element (car l))
       (setq eltype (car element))        (setq eltype (car element))
Line 176 
Line 177 
                           ((null ll))                            ((null ll))
                           (and (setq ret (assq ll type1list))(exit ret)))))                            (and (setq ret (assq ll type1list))(exit ret)))))
       (cond (elhint        (cond (elhint
              (do ((ll (cadr element)(cdr ll))(hint))               (do ((ll (cadr element)(cdr ll)))
                ((atom ll)(setq elpoints (nreverse elpoints)))                 ((atom ll)(setq elpoints (nreverse elpoints)))
                (push (nth (car ll) points) elpoints))                 (push (nth (car ll) points) elpoints))
              (setq hint (funcall (cdr elhint) elpoints))               (setq hint (funcall (cdr elhint) elpoints))

Generate output suitable for use with a patch program
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.5
ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help