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

Diff of /lisp/tools/edjoint.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 67 
Line 67 
      (let ((v (car vecs))       (let ((v (car vecs))
            (s (applykanji (car subs))))             (s (applykanji (car subs))))
        (if grid (grid-win win))         (if grid (grid-win win))
        (draw-skelton-win win (affine-translate-pure-primitive s v))         (draw-skeleton-win win (affine-translate-pure-primitive s v))
        (draw-frame-of-primitive-win win s v)         (draw-frame-of-primitive-win win s v)
        (setq vecs (cdr vecs)         (setq vecs (cdr vecs)
              subs (cdr subs))               subs (cdr subs))
Line 88 
Line 88 
      (let ((v (car vecs))       (let ((v (car vecs))
            (s (car subs)))             (s (car subs)))
   
        (draw-nikuduked-skelton-win!         (draw-nikuduked-skeleton-win!
         win          win
         (affine-translate-pure-primitive (applykanji s) v)          (affine-translate-pure-primitive (applykanji s) v)
         'mincho)          'mincho)

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