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

Diff of /lisp/test/toukei.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 189 
Line 189 
          (body (cadr (caddr x)))           (body (cadr (caddr x)))
          (points (car body))           (points (car body))
          (elements (cadr body))           (elements (cadr body))
          (outline-mincho (skelton2list (applykanji body 'mincho-patch) 'mincho-patch))           (outline-mincho (skeleton2list (applykanji body 'mincho-patch) 'mincho-patch))
          (outline-gothic (skelton2list (applykanji body 'gothic) 'gothic)))           (outline-gothic (skeleton2list (applykanji body 'gothic) 'gothic)))
     (format "((sym /c)(points /c)(elements /c)(min-points /c)(min-elements /c)(goth-points /c)(goth-elements /c))/n"      (format "((sym /c)(points /c)(elements /c)(min-points /c)(min-elements /c)(goth-points /c)(goth-elements /c))/n"
             sym (length points)(length elements)              sym (length points)(length elements)
             (outpoints outline-mincho)(outelements outline-mincho)              (outpoints outline-mincho)(outelements outline-mincho)

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