[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.4, Thu Jul 3 01:33:28 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)))))))


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

ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help