[wadalabfont-kit] / lisp / skeledit.l  

Diff of /lisp/skeledit.l

Parent Directory | Revision Log

version 1.1, Thu Dec 28 08:54:18 2000 UTC version 1.2, Fri Jun 20 11:40:23 2003 UTC
Line 266 
Line 266 
                        (#\n (newpart 'shin-nyuu))                         (#\n (newpart 'shin-nyuu))
                        (#\c (concat))                         (#\c (concat))
                        (#\q (close_window)                         (#\q (close_window)
                            (prind `(setq ,symbol ',(convskelton1 (convskelton (add-link partlist)))))(exit))                             (prind `(setq ,symbol ',(convskeleton1 (convskeleton (add-link partlist)))))(exit))
 ;                      (#\r (reset))  ;                      (#\r (reset))
                        (#\i (setq partlist nil linkpoints nil)                         (#\i (setq partlist nil linkpoints nil)
                            (setq  nolinkpoints nil linknumber 0))                             (setq  nolinkpoints nil linknumber 0))
Line 283 
Line 283 
               (movepoint curx cury x y)))                (movepoint curx cury x y)))
       (disp)))        (disp)))
 (defun showfill (fonttype)  (defun showfill (fonttype)
   (fill1 (convskelton1 (convskelton (add-link partlist))) fonttype))    (fill1 (convskeleton1 (convskeleton (add-link partlist))) fonttype))
 (defun fill1 (l tag)  (defun fill1 (l tag)
   (let ((outline nil))    (let ((outline nil))
     (setq outline (skelton2list (applykanji l) tag))      (setq outline (skeleton2list (applykanji l) tag))
     (mapcar outline '(lambda (x)(fillpolygon (setpart1 x))))      (mapcar outline '(lambda (x)(fillpolygon (setpart1 x))))
     (redraw)      (redraw)
     (checkevent)))      (checkevent)))
Line 310 
Line 310 
 (defprop kagi 3 npoint)  (defprop kagi 3 npoint)
 (defprop shin-nyuu 3 npoint)  (defprop shin-nyuu 3 npoint)
   
 (defun convskelton (prim)  (defun convskeleton (prim)
   (let ((linkpoints nil)    (let ((linkpoints nil)
         (points nil)          (points nil)
         (linkcount 0)          (linkcount 0)
Line 355 
Line 355 
               (t                (t
                (push pointnmb line)))))))                 (push pointnmb line)))))))
   
 (defun convskelton1(prim)  (defun convskeleton1(prim)
   (cond    (cond
    ((atom prim)prim)     ((atom prim)prim)
    (t     (t

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