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

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

Parent Directory | Revision Log

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 :    

ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help