[wadalabfont-kit] / renderer / gothic.l  

Diff of /renderer/gothic.l

Parent Directory | Revision Log

version 1.4, Tue Jul 1 08:46:45 2003 UTC version 1.6, Tue Aug 26 07:06:51 2003 UTC
Line 86 
Line 86 
        (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 414 
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.4  
changed lines
  Added in v.1.6
ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help