[wadalabfont-kit] / renderer / unit.l

Diff of /renderer/unit.l

-version 1.3, Mon Jun 30 13:27:02 2003 UTC
+version 1.4, Thu Jul  3 02:01:26 2003 UTC
  Line 1
  Line 1
  Line 1
  ;
+ (declare (ylimitval) special)
  (setq ylimitval 0.15)
  (defun add-ylimit (prim)
    (cond ((assq 'ylimit (cddr prim))
- Line 542
+ Line 543
  Line 542
  Line 543
           (elementunit (caddr findunit))
           (yokosort (yokosort prim))
           (nocrossx)(nocrossx1)
-          (nocrossy)(nocrossy1))
+          (nocrossy)(nocrossy1)(newxunit)(newyunit))
      (do ((l nocrossunit (cdr l)))
        ((atom l))
        (and (caaar l)(push `(,(caaar l) .,(cdar l)) nocrossx))
- Line 762
+ Line 763
  Line 762
  Line 763
      `(,cross ,start ,end)))
+ ;
+ (declare (defnocrossunit defcrossunit defelementunit) special)
  ;
  (setq defnocrossunit
        '(

-Generate output suitable for use with a patch program
+Legend:



Removed from v.1.3
 


changed lines


 
Added in v.1.4
 Legend:



Removed from v.1.3
 


changed lines


 
Added in v.1.4
-Removed from v.1.3
+Added in v.1.4