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

Diff of /lisp/tools/nolink.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 3 
Line 3 
 ;;  $Revision$  ;;  $Revision$
 ;;  ;;
   
 (defun toggle-skelton-link (win code x y prim)  (defun toggle-skeleton-link (win code x y prim)
   (lets ((ret nil)    (lets ((ret nil)
          (points    (get-points prim))           (points    (get-points prim))
          (lines     (get-lines  prim))           (lines     (get-lines  prim))
Line 21 
Line 21 
     (setq ret (cons points (cons lines aux-info)))      (setq ret (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 42 
Line 42 
          (print (list 'hatena s))           (print (list 'hatena s))
          s)))           s)))
   
 (defun shapeup-skelton (prim (leave nil))  (defun shapeup-skeleton (prim (leave nil))
   (cond ((null prim) '(nil nil))    (cond ((null prim) '(nil nil))
         ((and (listp prim) (eq (car prim) 'joint))          ((and (listp prim) (eq (car prim) 'joint))
          (recursive-copy prim))           (recursive-copy prim))
Line 105 
Line 105 
                                       (rem-info p 'link-ok))                                        (rem-info p 'link-ok))
                                     p)))                                      p)))
   
            ;; make skelton link             ;; make skeleton link
            (setq             (setq
             lines              lines
             (mapcar lines              (mapcar lines

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