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

Diff of /lisp/test/lowdev.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 2 
Line 2 
 (defun filltest1 (l tag size (meshsize size))  (defun filltest1 (l tag size (meshsize size))
   (setq m (1+ (fix size)))    (setq m (1+ (fix size)))
   (init_window 400 400)    (init_window 400 400)
   (setq outline (skelton2list (normkanji (applykanji l tag)) tag))    (setq outline (skeleton2list (normkanji (applykanji l tag)) tag))
   (mapcar outline    (mapcar outline
     (function (lambda (x)(fillpolygon (setpart1 x)))))      (function (lambda (x)(fillpolygon (setpart1 x)))))
   (getimage)    (getimage)
Line 67 
Line 67 
                  (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 (applykanji (car ol) tag) tag))))                 (skeleton2list (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")

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