[wadalabfont-kit] / lisp / tools / primdisp.l  

Diff of /lisp/tools/primdisp.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 6 
Line 6 
 (defun clear-win! (win)  (defun clear-win! (win)
   (clear-area win :x 0 :y 0 :width (width-win win) :height (height-win win)))    (clear-area win :x 0 :y 0 :width (width-win win) :height (height-win win)))
   
 (defun draw-nikuduked-skelton (win prim mincho-gothic)  (defun draw-nikuduked-skeleton (win prim mincho-gothic)
   (setq prim (shapeup-skelton prim))    (setq prim (shapeup-skeleton prim))
   (if (null (car prim))    (if (null (car prim))
       (beep win)        (beep win)
     (let ((outline (skelton2list (applykanji prim) mincho-gothic))      (let ((outline (skeleton2list (applykanji prim) mincho-gothic))
           (save (get-winprop win 'button-press-handler))            (save (get-winprop win 'button-press-handler))
           (loopend nil))            (loopend nil))
       (clear-win! win)        (clear-win! win)
Line 18 
Line 18 
               (function (lambda (x) (fill-polygon-win! win (setpart1 x)))))                (function (lambda (x) (fill-polygon-win! win (setpart1 x)))))
       (display-force-output (window-display win)))))        (display-force-output (window-display win)))))
   
 (defun show-nikuduked-skelton (win prim mincho-gothic)  (defun show-nikuduked-skeleton (win prim mincho-gothic)
   (setq prim (shapeup-skelton prim))    (setq prim (shapeup-skeleton prim))
   (if (null (car prim))    (if (null (car prim))
       (beep win)        (beep win)
     (let ((outline (skelton2list (applykanji prim) mincho-gothic))      (let ((outline (skeleton2list (applykanji prim) mincho-gothic))
           (save (get-winprop win 'button-press-handler))            (save (get-winprop win 'button-press-handler))
           (loopend nil))            (loopend nil))
       (clear-win! win)        (clear-win! win)
Line 30 
Line 30 
               (function (lambda (x) (show-polygon-win! win (setpart1 x)))))                (function (lambda (x) (show-polygon-win! win (setpart1 x)))))
       (display-force-output (window-display win)))))        (display-force-output (window-display win)))))
   
 (defun draw-nikuduked-skelton-win! (win prim mincho-gothic)  (defun draw-nikuduked-skeleton-win! (win prim mincho-gothic)
   (setq prim (shapeup-skelton prim))    (setq prim (shapeup-skeleton prim))
   (if (null (car prim))    (if (null (car prim))
       (beep win)        (beep win)
     (let ((outline (skelton2list (applykanji prim) mincho-gothic))      (let ((outline (skeleton2list (applykanji prim) mincho-gothic))
           (save (get-winprop win 'button-press-handler))            (save (get-winprop win 'button-press-handler))
           (loopend nil))            (loopend nil))
       (mapcar outline        (mapcar outline

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