[wadalabfont-kit] / renderer / out2ps.l  

Diff of /renderer/out2ps.l

Parent Directory | Revision Log

version 1.1, Thu Jun 19 08:15:20 2003 UTC version 1.4, Mon Jun 30 13:27:02 2003 UTC
Line 11 
Line 11 
         (scale (fix (times 160.0 (min (//$ 9.0 (float col))          (scale (fix (times 160.0 (min (//$ 9.0 (float col))
                                       (//$ 6.0 (float line))))))                                        (//$ 6.0 (float line))))))
         (ii nil)(jj nil)(page nil)(last nil)          (ii nil)(jj nil)(page nil)(last nil)
         (skelton)(hints)(type1)(kstr)          (skeleton)(hints)(type1)(kstr)
         (next nil)(nextnext nil)(x1 nil)(y1 nil)(x2 nil)(y2 nil)          (next nil)(nextnext nil)(x1 nil)(y1 nil)(x2 nil)(y2 nil)
         (date (date-time)))          (date (date-time)))
     (format "%!/n%%BoundingBox: 45 45 /c /c/n"      (format "%!/n%%BoundingBox: 45 45 /c /c/n"
Line 45 
Line 45 
                   (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 54 
Line 54 
        (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 (makeoutline l) hints))          (setq type1 (out2type1 (makeoutline 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.4

ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help