| 1 : |
ktanaka |
1.1 |
(setq minchowidth 10.0 tateyokoratio 0.3 hirawidth 0.35 tatekazari 1.8 |
| 2 : |
|
|
kazariheight 1.8 tomeheight 2.4) |
| 3 : |
|
|
(setq sampledata |
| 4 : |
|
|
'(É÷ ¸÷ ι ½ñ ¿ ̵ Ä« Ä» ¼ù ¶â ¹ä Èô ¿å ·ã ή »í ´¿ À® °¦ |
| 5 : |
|
|
·î µ¨ ´Ë ½÷ È×)) |
| 6 : |
|
|
(out-to-ps-all sampledata 'mincho-patch "/tmp/mincho-mihon.ps" nil 3 8 nil) |
| 7 : |
|
|
(setq tateyokoratio 0.2) |
| 8 : |
|
|
(setq minchowidth 20.0) |
| 9 : |
|
|
(setq tomeheight 1.5) |
| 10 : |
|
|
(setq tatekazari 1.0) |
| 11 : |
|
|
(setq kazariheight 1.0) |
| 12 : |
|
|
(out-to-ps-all sampledata 'mincho-patch "/tmp/mincho-mihon1.ps" nil 3 8 nil) |
| 13 : |
|
|
(setq gothicwidth 15.0) |
| 14 : |
|
|
(out-to-ps-all sampledata 'gothic "/tmp/gothic-mihon.ps" nil 3 8 nil) |
| 15 : |
|
|
(setq gothicwidth 8.0) |
| 16 : |
|
|
(out-to-ps-all sampledata 'naal "/tmp/naal-mihon.ps" nil 3 8 nil) |
| 17 : |
|
|
|
Annotation of /lisp/samples/mihon.l
Parent Directory
| 
Revision Log