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

Diff of /lisp/tools/edprim.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 17 
Line 17 
       nil        nil
     (car l)))      (car l)))
   
 (defun draw-skelton-win (win prim (mode 'black))  (defun draw-skeleton-win (win prim (mode 'black))
   (if (eq (car prim) 'joint)    (if (eq (car prim) 'joint)
       (draw-jointed-primitive-win win prim)        (draw-jointed-primitive-win win prim)
     (draw-simple-skelton-win win prim mode)))      (draw-simple-skeleton-win win prim mode)))
   
 (defun draw-simple-skelton-win (win prim (mode 'black))  (defun draw-simple-skeleton-win (win prim (mode 'black))
   (let ((points (get-points prim))    (let ((points (get-points prim))
         (lines  (get-lines prim)))          (lines  (get-lines prim)))
     (mapcar points      (mapcar points
Line 49 
Line 49 
     (mapcar lines      (mapcar lines
             #'(lambda (l)              #'(lambda (l)
                 (let ((elmname (first l)))                  (let ((elmname (first l)))
                   (let ((draw-func (get elmname 'skelton-edit-draw-optional)))                    (let ((draw-func (get elmname 'skeleton-edit-draw-optional)))
                     (if draw-func                      (if draw-func
                         (funcall draw-func win l points))))))                          (funcall draw-func win l points))))))
   
Line 132 
Line 132 
       nil        nil
     (third l)))      (third l)))
   
 (defun move-skelton-point (win code x y prim)  (defun move-skeleton-point (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 167 
Line 167 
     (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))

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