[wadalabfont-kit] / renderer / gothic.l  

Diff of /renderer/gothic.l

Parent Directory | Revision Log

version 1.1, Thu Jun 19 08:15:19 2003 UTC version 1.6, Tue Aug 26 07:06:51 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)
Line 413 
Line 413 
          (p10 (cond ((lessp w2 (metric2 p0 p1))           (p10 (cond ((lessp w2 (metric2 p0 p1))
                      (plus2 p1 (normlen2 w2 (diff2 p0 p1))))                       (plus2 p1 (normlen2 w2 (diff2 p0 p1))))
                     (t p0)))                      (t p0)))
          (p12 (plus2 p1 (normlen2 w2 (diff2 p2 p1))))           (p12 (cond ((lessp w2 (metric2 p2 p1))
                        (plus2 p1 (normlen2 w2 (diff2 p2 p1))))
                       (t (inter2 p1 p2 0.9))))
          (out1 (cond ((not (eq p0 p10)) (gothic2 p0 p10 w))(t '(nil nil))))           (out1 (cond ((not (eq p0 p10)) (gothic2 p0 p10 w))(t '(nil nil))))
          (out2 (gothiccurve p10 p1 p12 w circle-ratio))           (out2 (gothiccurve p10 p1 p12 w circle-ratio))
          (out3 (gothic2 p12 p2 w)))           (out3 (gothic2 p12 p2 w)))

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

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help