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

Diff of /lisp/tools/addhira.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 54 
Line 54 
                                      (ncons *default-hirawidth*))))))))                                       (ncons *default-hirawidth*))))))))
                 (t (beep win))))                  (t (beep win))))
       (beep win))        (beep win))
     (setq ret (shapeup-skelton (cons points (cons lines aux-info))))      (setq ret (shapeup-skeleton (cons points (cons lines aux-info))))
     (clear-win win)      (clear-win win)
     (if grid (grid-win win))      (if grid (grid-win win))
     (draw-skelton-win win ret)      (draw-skeleton-win win ret)
     (redraw-win win)      (redraw-win win)
     ret))      ret))
   
Line 100 
Line 100 
                              (reverse (cdr (reverse hira-w)))))))))                               (reverse (cdr (reverse hira-w)))))))))
                 (t (beep win))))                  (t (beep win))))
       (beep win))        (beep win))
     (setq ret (shapeup-skelton (cons points (cons lines aux-info))))      (setq ret (shapeup-skeleton (cons points (cons lines aux-info))))
     (clear-win win)      (clear-win win)
     (if grid (grid-win win))      (if grid (grid-win win))
     (draw-skelton-win win ret)      (draw-skeleton-win win ret)
     (redraw-win win)      (redraw-win win)
     ret))      ret))

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