; 単位は400*400の座標系 |
; 単位は400*400の座標系 |
; 縦線の太さ |
(declare (minchowidth tateyokoratio minchoheight tatekazari tome1 kazariheight tomeheight meshsize mw) special) |
(declare (minchowidth tateyokoratio minchoheight kazariheight tomeheight meshsize mw) special) |
; mwはmincho-primの中で設定される |
; 縦線に対する横線の太さの比 |
; (setq mw minchowidth) |
(setq tateyokoratio 0.3) |
|
|
|
; 縦線と横線の連結の高さの縦線に対する比 |
|
(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)) |
(ylen) |
(ylen) |
(minylen) |
(minylen) |
) |
) |
(do ((l elements (cdr l))(element)) |
(do ((l elements (cdr l))(element)(link)) |
((atom l)) |
((atom l)) |
(setq element (car l)) |
(setq element (car l)) |
(do ((ll (cadr element)(cdr ll))(ass)) |
(do ((ll (cadr element)(cdr ll))(ass)) |