[wadalabfont-kit] / renderer / yokosort.l  

Diff of /renderer/yokosort.l

Parent Directory | Revision Log

version 1.1, Thu Jun 19 08:15:20 2003 UTC version 1.5, Thu Jul 3 02:01:26 2003 UTC
Line 26 
Line 26 
             (t (push (car l) otherlines))))              (t (push (car l) otherlines))))
     (setq yokolines (sort yokolines      (setq yokolines (sort yokolines
                       (function (lambda (x y)                        (function (lambda (x y)
   ;                                 (prind `(x ,x))
   ;                                 (prind `(y ,y))
                                   (lets ((p0 (nth (caadr x) points))                                    (lets ((p0 (nth (caadr x) points))
                                          (p1 (nth (caadr y) points)))                                           (p1 (nth (caadr y) points)))
                                     (lessp (cadr p0) (cadr p1)))))))                                      (lessp (cadr p0) (cadr p1)))))))
Line 239 
Line 241 
 ;  ;
 ; child-of  ; child-of
 ;  ;
   (declare (eps) special)
 (setq eps 10^-5)  (setq eps 10^-5)
 (defun child-of (line0 line1 points)  (defun child-of (line0 line1 points)
   (lets ((x00 (car (nth (caadr line0) points)))    (lets ((x00 (car (nth (caadr line0) points)))

Generate output suitable for use with a patch program
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.5
ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help