View of /renderer/load.l

Parent Directory

Revision Log

*** empty log message ***

;; 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")))))))
;
; $B$R$i$,$J$NI}(B
;
(setq *default-hirawidth* 8)
;
; $BL@D+BN(B(mincho.l)
;

; $BL@D+BN$N=DK@$NI}(B
(setq minchowidth 8)
; $BL@D+BN$N=DK@$KBP$9$k2#K@$NHfN((B
(setq tateyokoratio 0.4)
; $B%G%6%$%s%5%$%:$KBP$9$kI}$N3HBgN((B
(setq hirawidth 0.6)
; $B=DK@$N;OE@$N>~$j(B
(setq tatekazari 1.5) 
; $B2#@~$N;_$a$N=D@~$KBP$9$kHf(B
(setq tomeheight 1.8)
; $B=DK@$H2#K@$N8rE@$N>~$j(B
(setq kazariheight 1.4)
; $B%G%U%)%k%H$N(Bmeshsize$B$r==J,>.$5$/$9$k$H32$,$J$$(B. 
;(setq meshsize 6.618290) 
(setq meshsize 0.01)

;
; $B%4%7%C%/BN(B(gothic.l, naal.l)
;
(setq gothicwidth 13.0)