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

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

Revision: 1.1 - (view) (download)

1 :	ktanaka	1.1	#!/usr/local/bin/utilisp
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-")
16 :
17 :			(mapc allku
18 :			#'(lambda (ku)
19 :			(out-to-ps-all (eval (intern (string-append "jis" ku)))
20 :			'gothic
21 :			(string-append prefix ku ".ps"))))
22 :