;; load.l
(or (boundp 'base-directory)(setq base-directory "."))
(or (boundp 'source-load)(setq source-load nil))
(lets 
 ((source-files 
   '("pack.l"
     "lib.l"
     "yokosort.l"
     "mincho.l"
     "apply.l"
     "sym.l"
     "type1.l"
     "gothic.l"
     "newjoint.l"
     "center.l"
     "limit.l"
     "limitrule.l"
     "unit.l"
     "transform.l"
     "naal.l"
     "hiranew.l"
     "region.l"
     "out2ps.l"
     "outline.l")))
 (cond (source-load
	(mapc source-files
	      #'(lambda (file) 
		  (exfile (string-append base-directory "/" file)))))
       (t
	(code-load 
	 (mapcar source-files
		 #'(lambda (file)
		     (string-append 
		      base-directory "/"
		      (substring file 0 (1- (string-length file)))
		      "o")))))))
;
; ひらがなの幅
;
(setq *default-hirawidth* 8)
;
; 明朝体(mincho.l)
;

; 明朝体の縦棒の幅
(setq minchowidth 8)
; 明朝体の縦棒に対する横棒の比率
(setq tateyokoratio 0.4)
; デザインサイズに対する幅の拡大率
(setq hirawidth 0.6)
; 縦棒の始点の飾り
(setq tatekazari 1.5) 
; 横線の止めの縦線に対する比
(setq tomeheight 1.8)
; 縦棒と横棒の交点の飾り
(setq kazariheight 1.4)
; デフォルトのmeshsizeを十分小さくすると害がない. 
;(setq meshsize 6.618290) 
(setq meshsize 0.01)

;
; ゴシック体(gothic.l, naal.l)
;
(setq gothicwidth 13.0)