[wadalabfont-kit] / renderer / mincho.l  

Diff of /renderer/mincho.l

Parent Directory | Revision Log

version 1.4, Tue Jul 1 08:46:45 2003 UTC version 1.6, Thu Jul 3 13:38:09 2003 UTC
Line 1 
Line 1 
 ; 単位は400*400の座標系  ; 単位は400*400の座標系
 ; 縦線の太さ  
 (declare (minchowidth tateyokoratio minchoheight tatekazari tome1 kazariheight tomeheight meshsize mw) special)  (declare (minchowidth tateyokoratio minchoheight tatekazari tome1 kazariheight tomeheight meshsize mw) special)
 ; 縦線に対する横線の太さの比  ; mwはmincho-primの中で設定される
 (setq tateyokoratio 0.3)  ; (setq mw minchowidth)
   
 ; 縦線と横線の連結の高さの縦線に対する比  
 (setq minchowidth 10.0)  
   
 ; 横線の止めの縦線に対する比  
 (setq tomeheight 2.2)  
   
 ; 縦棒の始点の飾り  
 (setq tatekazari 1.5)  
   
 ; 縦棒と横棒の交点の飾り  
 (setq kazariheight 1.5)  
 ;  
 (setq minchowidth  22.0 tateyokoratio 0.3 hirawidth 0.35 tatekazari 0.9  
       kazariheight 0.7 tomeheight 1.8)  
 ; 細明朝  
 ;(setq minchowidth  10.0 tateyokoratio 0.3 hirawidth 0.35 tatekazari 1.8  
 ;      kazariheight 1.8 tomeheight 2.4)  
 (setq minchowidth  8.0 tateyokoratio 0.2 hirawidth 0.35 tatekazari 1.8  
       kazariheight 1.8 tomeheight 2.4)  
 ; 中明朝  
 (setq minchowidth  12.0 tateyokoratio 0.4 ; hirawidth 0.35  
       hirawidth 0.6  
       tatekazari 1.5  
       kazariheight 1.4 tomeheight 1.8)  
   
 ;  
 (setq mw minchowidth)  
 ; デフォルトのmeshsizeを十分小さくすると害がない.  
 ;(setq meshsize 6.618290)  
 (setq meshsize 0.01)  
 ;  ;
 ; ライブラリをexfileする  ; ライブラリをexfileする
 (cond ((definedp 'kanjilib))  (cond ((definedp 'kanjilib))
Line 559 
Line 527 
          (b3 (diff2 b2 (normlen2 w0 d1)))           (b3 (diff2 b2 (normlen2 w0 d1)))
          (bez0 (newbez b3 (plus2 b3 l1)           (bez0 (newbez b3 (plus2 b3 l1)
                        b0                         b0
                        (inter2 b0 b1 0.7)                         (inter2 b0 b1 0.8)
                        (inter2 (diff2 a4 l1) b1 0.7)                         (inter2 (diff2 a4 l1) b1 0.8)
                        (diff2 a4 l1)))                         (diff2 a4 l1)))
          (b3 (fourth bez0))           (b3 (fourth bez0))
          (b2 (cross2 b3 p3 (diff2 (third bez0) b3) (diff2 h0 p3)))           (b2 (cross2 b3 p3 (diff2 (third bez0) b3) (diff2 h0 p3)))
Line 850 
Line 818 
 ;    (break)  ;    (break)
     `(((angle .,a0)      `(((angle .,a0)
        (bezier .,(inter2 a0 a1 rate0))         (bezier .,(inter2 a0 a1 rate0))
        (bezier .,(inter2 p2 a1 0.9))         (bezier .,(inter2 p2 a1 0.95))
        (angle .,a2))         (angle .,a2))
       ((angle .,b0)        ((angle .,b0)
        (bezier .,(inter2 b0 b1 rate0))         (bezier .,(inter2 b0 b1 rate0))
        (bezier .,(inter2 p2 b1 0.8))         (bezier .,(inter2 p2 b1 0.95))
        (angle .,b2)))))         (angle .,b2)))))
 ;  ;
 (defun last-joint (prim)  (defun last-joint (prim)

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