[wadalabfont-kit] / lisp / demo / kanjidemo.l  

Diff of /lisp/demo/kanjidemo.l

Parent Directory | Revision Log

version 1.1, Thu Dec 28 08:54:20 2000 UTC version 1.2, Fri Jun 20 11:40:23 2003 UTC
Line 352 
Line 352 
 ;; 漢字フォントを表示してみる  ;; 漢字フォントを表示してみる
   
 (defun smallwindow-display-kanji-font (sw l tag)  (defun smallwindow-display-kanji-font (sw l tag)
   (let ((outline (skelton2list (applykanji l) tag)))    (let ((outline (skeleton2list (applykanji l) tag)))
     (smallwindow-clear sw)      (smallwindow-clear sw)
     (mapcar outline '(lambda (x) (smallwindow-fillpolygon sw (setpart1 x))))      (mapcar outline '(lambda (x) (smallwindow-fillpolygon sw (setpart1 x))))
     (smallwindow-redraw sw)))      (smallwindow-redraw sw)))


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