[wadalabfont-kit] / lisp / test / jis3ku.l  

Diff of /lisp/test/jis3ku.l

Parent Directory | Revision Log

version 1.1, Thu Dec 28 08:54:19 2000 UTC version 1.2, Fri Jun 20 11:40:23 2003 UTC
Line 4 
Line 4 
         (scale (fix (times 160.0 (max (//$ 9.0 (float col))          (scale (fix (times 160.0 (max (//$ 9.0 (float col))
                                       (//$ 6.0 (float line))))))                                        (//$ 6.0 (float line))))))
         (i nil)(j nil)(page nil)(last nil)(outlines)          (i nil)(j nil)(page nil)(last nil)(outlines)
         (next nil)(nextnext nil)(x1 nil)(y1 nil)(x2 nil)(y2 nil)(skelton)          (next nil)(nextnext nil)(x1 nil)(y1 nil)(x2 nil)(y2 nil)(skeleton)
         (minchowidth  10.0)          (minchowidth  10.0)
         (tateyokoratio 0.3)          (tateyokoratio 0.3)
         (hirawidth 0.35)          (hirawidth 0.35)
Line 60 
Line 60 
                  (err:undefined-function #'(lambda (x (y))(throw 'err)))                   (err:undefined-function #'(lambda (x (y))(throw 'err)))
                  (err:zero-division #'(lambda (x (y))(throw 'err))))                   (err:zero-division #'(lambda (x (y))(throw 'err))))
               (catch 'err                (catch 'err
                 (skelton2list (setq skelton (normkanji (rm-limit (applykanji (car ol) tag)))) tag))))                  (skeleton2list (setq skeleton (normkanji (rm-limit (applykanji (car ol) tag)))) tag))))
      (cond       (cond
       ((atom l)        ((atom l)
        (format "0 setlinewidth newpath 0 0 moveto 400 0 lineto/n")         (format "0 setlinewidth newpath 0 0 moveto 400 0 lineto/n")
Line 68 
Line 68 
       (t        (t
        (format "0 setlinewidth newpath 0 0 moveto 400 0 lineto/n")         (format "0 setlinewidth newpath 0 0 moveto 400 0 lineto/n")
        (format "400 400 lineto 0 400 lineto 0 0 lineto stroke/n")         (format "400 400 lineto 0 400 lineto 0 0 lineto stroke/n")
         (setq hints (type1hints skelton tag))          (setq hints (type1hints skeleton tag))
         (setq type1 (out2type1 l hints))          (setq type1 (out2type1 l hints))
         (cond ((and (= 2 (string-length (car ol)))          (cond ((and (= 2 (string-length (car ol)))
                     (logand 128 (sref (car ol) 0)))                      (logand 128 (sref (car ol) 0)))

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

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help