[wadalabfont-kit] / renderer / load.l

Annotation of /renderer/load.l

Revision: 1.4 - (view) (download)

1 :	ktanaka	1.1	;; load.l
2 :	ktanaka	1.3	(or (boundp 'base-directory)(setq base-directory "."))
3 :			(or (boundp 'source-load)(setq source-load nil))
4 :			(lets
5 :			((source-files
6 :			'("pack.l"
7 :			"lib.l"
8 :			"yokosort.l"
9 :			"mincho.l"
10 :			"apply.l"
11 :			"sym.l"
12 :			"type1.l"
13 :			"gothic.l"
14 :			"newjoint.l"
15 :			"center.l"
16 :			"limit.l"
17 :			"limitrule.l"
18 :			"unit.l"
19 :			"transform.l"
20 :			"naal.l"
21 :			"hiranew.l"
22 :			"region.l"
23 :			"out2ps.l"
24 :			"outline.l")))
25 :			(cond (source-load
26 :			(mapc source-files
27 :			#'(lambda (file)
28 :			(exfile (string-append base-directory "/" file)))))
29 :			(t
30 :			(code-load
31 :			(mapcar source-files
32 :			#'(lambda (file)
33 :			(string-append
34 :			base-directory "/"
35 :			(substring file 0 (1- (string-length file)))
36 :			"o")))))))
37 :	ktanaka	1.4	;
38 :			; $B$R$i$,$J$NI}(B
39 :			;
40 :			(setq default-hirawidth 8)
41 :			;
42 :			; $BL@D+BN(B(mincho.l)
43 :			;
44 :
45 :			; $BL@D+BN$N=DK@$NI}(B
46 :			(setq minchowidth 8)
47 :			; $BL@D+BN$N=DK@$KBP$9$k2#K@$NHfN((B
48 :			(setq tateyokoratio 0.4)
49 :			; $B%G%6%$%s%5%$%:$KBP$9$kI}$N3HBgN((B
50 :			(setq hirawidth 0.6)
51 :			; $B=DK@$N;OE@$N>~$j(B
52 :			(setq tatekazari 1.5)
53 :			; $B2#@~$N;_$a$N=D@~$KBP$9$kHf(B
54 :			(setq tomeheight 1.8)
55 :			; $B=DK@$H2#K@$N8rE@$N>~$j(B
56 :			(setq kazariheight 1.4)
57 :			; $B%G%U%)%k%H$N(Bmeshsize$B$r==J,>.$5$/$9$k$H32$,$J$$(B.
58 :			;(setq meshsize 6.618290)
59 :			(setq meshsize 0.01)
60 :
61 :			;
62 :			; $B%4%7%C%/BN(B(gothic.l, naal.l)
63 :			;
64 :			(setq gothicwidth 13.0)
65 :