[wadalabfont-kit] / build / outline / wadalab-hojo-gothic-0-13 / makehojo.l

Annotation of /build/outline/wadalab-hojo-gothic-0-13/makehojo.l

Revision: 1.1 - (view) (download)

1 :	ktanaka	1.1	#!/usr/local/bin/utilisp -ls 1024 -bs 1024 -cs 1024 -es 1024 -h 16384
2 :			(defun load-directory (dir)
3 :			(lets ((base-directory dir))
4 :			(exfile (string-append base-directory "/" "load.l"))))
5 :			; コンパイラが通らない時は次の行をコメントアウト
6 :			(setq source-load t)
7 :			;
8 :			(load-directory "../../../renderer/")
9 :			(load-directory "../../../primdata/")
10 :			(load-directory "../../../jointdata/")
11 :			(load-directory "../../../kanjidata/")
12 :
13 :			(setq minchowidth 13.0)
14 :			(setq hirawidth (times minchowidth 0.05))
15 :			(setq prefix "goth-hojo-")
16 :
17 :			(setq gothicwidth 13.0)
18 :			(exfile "./allhojo.l")
19 :
20 :			(mapc allku-hojo
21 :			#'(lambda (ku)
22 :			(out-to-ps-all (eval (intern (string-append "hojo" ku)))
23 :			'gothic
24 :			(string-append prefix ku ".ps"))))