[wadalabfont-kit] / renderer / gothic.l

Diff of /renderer/gothic.l

-version 1.3, Mon Jun 30 13:27:02 2003 UTC
+version 1.5, Thu Jul  3 11:42:38 2003 UTC
  Line 1
  Line 1
  Line 1
  ;(cond ((definedp 'kanjilib))
  ;      (t (exfile 'lib.l)))
+ (declare (local_gothicwidth) special)
  (defun gothic2 (p1 p2 w)
    (lets ((p12 (diff2 p2 p1))
           (l1 (normlen2 w (rot270 p12))))
- Line 74
+ Line 75
  Line 74
  Line 75
           (b2 (plus2 p2 (normlen2 w1 (diff2 p1 p2))(normlen2 w1 (diff2 p3 p2))))
           (b3 (diff2 p3 l3)))
  ;    (break)
-     (setq test 'bezier)
+ ;    (setq test 'bezier)
      `(((angle .,a1)
-        (,test .,(inter2 a1 a2 ratio))
+        (bezier .,(inter2 a1 a2 ratio))
-        (,test .,(inter2 a3 a2 ratio))
+        (bezier .,(inter2 a3 a2 ratio))
         (angle .,a3))
        ((angle .,b1)
-        (,test .,(inter2 b1 b2 ratio))
+        (bezier .,(inter2 b1 b2 ratio))
-        (,test .,(inter2 b3 b2 ratio))
+        (bezier .,(inter2 b3 b2 ratio))
         (angle .,b3)))))
- (setq gothicwidth 13.0)
  ;
  (defkazari gothic ((tate hidari tatehidari tatehane kokoro tasuki magaritate) 0
              (tate hidari tatehidari tatehane kokoro tasuki magaritate) 1)

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



Removed from v.1.3
 


changed lines


 
Added in v.1.5
 Legend:



Removed from v.1.3
 


changed lines


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