[wadalabfont-kit] / renderer / gothic.l  

Diff of /renderer/gothic.l

Parent Directory | Revision Log

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 
 ;(cond ((definedp 'kanjilib))  ;(cond ((definedp 'kanjilib))
 ;      (t (exfile 'lib.l)))  ;      (t (exfile 'lib.l)))
   (declare (local_gothicwidth) special)
 (defun gothic2 (p1 p2 w)  (defun gothic2 (p1 p2 w)
   (lets ((p12 (diff2 p2 p1))    (lets ((p12 (diff2 p2 p1))
          (l1 (normlen2 w (rot270 p12))))           (l1 (normlen2 w (rot270 p12))))
Line 74 
Line 75 
          (b2 (plus2 p2 (normlen2 w1 (diff2 p1 p2))(normlen2 w1 (diff2 p3 p2))))           (b2 (plus2 p2 (normlen2 w1 (diff2 p1 p2))(normlen2 w1 (diff2 p3 p2))))
          (b3 (diff2 p3 l3)))           (b3 (diff2 p3 l3)))
 ;    (break)  ;    (break)
     (setq test 'bezier)  ;    (setq test 'bezier)
     `(((angle .,a1)      `(((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 .,a3))
       ((angle .,b1)        ((angle .,b1)
        (,test .,(inter2 b1 b2 ratio))         (bezier .,(inter2 b1 b2 ratio))
        (,test .,(inter2 b3 b2 ratio))         (bezier .,(inter2 b3 b2 ratio))
        (angle .,b3)))))         (angle .,b3)))))
   
   
 (setq gothicwidth 13.0)  
 ;  ;
 (defkazari gothic ((tate hidari tatehidari tatehane kokoro tasuki magaritate) 0  (defkazari gothic ((tate hidari tatehidari tatehane kokoro tasuki magaritate) 0
             (tate hidari tatehidari tatehane kokoro tasuki magaritate) 1)              (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

ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help