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

Parent Directory

Revision Log

*** empty log message ***

#!/usr/local/bin/utilisp -ls 1024 -bs 1024 -cs 1024 -es 1024 -h 16384
(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 13.0)
(setq hirawidth (times minchowidth 0.05))
(setq prefix "goth-hojo-")

(setq gothicwidth 13.0)
(exfile "./allhojo.l")

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