[wadalabfont-kit] / build / outline / wadalab-mincho-0-10 / makeall.l  

View of /build/outline/wadalab-mincho-0-10/makeall.l

Parent Directory | Revision Log
Revision: 1.1 - (download) (annotate)
Mon Jun 30 13:24:32 2003 UTC (21 years, 5 months ago) by ktanaka
Branch: MAIN
CVS Tags: SNAP-20040518, SNAP-20030702, SNAP-20030630, HEAD
*** empty log message ***
#!/usr/local/bin/utilisp 
(defun load-directory (dir)
  (lets ((base-directory dir))
	(exfile (string-append base-directory "/" "load.l"))))
; コンパイラが通らない時は次の行をコメントアウト
(setq source-load t)
;
(load-directory "../../../renderer/")
(load-directory "../../../primdata/")
(load-directory "../../../jointdata/")
(load-directory "../../../kanjidata/")

(setq minchowidth 10.0)
(setq hirawidth (times minchowidth 0.05))
(setq prefix "min-")

(mapc allku
      #'(lambda (ku)
	  (out-to-ps-all (eval (intern (string-append "jis" ku)))
			 'mincho
			 (string-append prefix ku ".ps"))))


ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help