View of /lisp/samples/mihon.l

Parent Directory

Revision Log

Initial revision

(setq minchowidth  10.0 tateyokoratio 0.3 hirawidth 0.35 tatekazari 1.8 
      kazariheight 1.8 tomeheight 2.4)
(setq sampledata 
      '(É÷ ¸÷ ι ½ñ ¿ ̵ Ä« Ä» ¼ù ¶â ¹ä Èô ¿å ·ã ή »í ´¿ À® °¦
	·î µ¨ ´Ë ½÷ È×))
(out-to-ps-all sampledata 'mincho-patch "/tmp/mincho-mihon.ps" nil 3 8 nil)
(setq tateyokoratio 0.2)
(setq minchowidth 20.0)
(setq tomeheight 1.5)
(setq tatekazari 1.0)
(setq kazariheight 1.0)
(out-to-ps-all sampledata 'mincho-patch "/tmp/mincho-mihon1.ps" nil 3 8 nil)
(setq gothicwidth 15.0)
(out-to-ps-all sampledata 'gothic "/tmp/gothic-mihon.ps" nil 3 8 nil)
(setq gothicwidth 8.0)
(out-to-ps-all sampledata 'naal "/tmp/naal-mihon.ps" nil 3 8 nil)