Re: Meadow で Windows font + x-face は可能 ?

[Naoyuki Iso <iso@xxxxxxxxxxxxxx>]

磯と申します。
Meadowのフォント設定、大分以前ですが悩みました。

> ただし、そのままでは x-face が表示できませんでした。「豆腐」になります。
> shinonome16-fontset.el などの設定に bitmap の設定を加えないといけない
> のでしょうね。西山さんのやり方を勉強して、東雲+bitmapというのも検討し
> てみます。

これは、西山さんが言っているように、

(set-fontset-font "shinonome14-fontset" 'bitmap "Bitmap-16")
(set-fontset-font "shinonome16-fontset" 'bitmap "Bitmap-16")

なんてことをやればいいです。


> でも、なぜ TrueType の時には ASCII が小さくなっちゃうのでしょうか?  日
> を追って見慣れてきたのですが、Windows でよくある全部“ＭＳ ゴシック”
> とか全部“FixedSys”にはできないのでしょうか?

MSゴシックのasciiフォントが定義から抜けてるからでしょうきっと。

どなたかのWEBページにあったwindowsフォントをmeadowで使うための手順をご
紹介します。私の.emacsに書いてありました :-)。

;; Meadowでのフォント設定方法
;; 
;; 1. (w32-query-get-logfont)で好みの LOGFONTを得る。
;;    例： (w32-query-get-logfont)o C-j
;; 2. 1で得た LOGFONTの詳細を (w32-get-logfont-info)で得る。
;;    例： (w32-get-logfont-info 
;;          '(w32-logfont "ＭＳ 明朝" 0 -19 400 0 nil nil nil 128 1 3 17)
;;          ) C-j
;; 3. 2で得た LOGFONTの詳細をもとに、(w32-add-font)でフォントを登録する。
;;    ここでは overhang、base、height、width等を設定する。
;; 4. (w32-change-font-logfont)でフォントのプロパティを設定する。
;; 5. (new-fontset)で新たにフォントセットを作成する。
;; 6. フレームに使用するフォントセットを設定する。
;;
;; (w32-change-font-logfont FONT NUMBER LOGFONT)
;; NUMBER  0: normal   1: bold   2: italic   3: bold-italic

順にやっていけば、だいたいうまくいくでしょう。
3 で微調整が入るかな。

MSゴシック 9ポイント の設定は、私の.emacsによるとこんな感じです。
ms-gotic-9-fontset という新たなフォントセットを定義してます。shift+マ
ウス右クリックで出てくるメニューのfontsetにこいつが加わります。
default-frame-alistに加えれば起動時のフォントになります。

## 私は普段は東雲を使っています。

;; MSゴシックフォント9ポイントの設定
(w32-add-font "ms-gotic-9-ascii"
	      '((default-ascent . 0)
		(relative-compose . 0)
		(encoding-type . 0)
		(overhang . 0)
		(base   . 13)
		(height . 16)
		(width  . 8)))
(w32-change-font-logfont "ms-gotic-9-ascii" 0
			 '(w32-logfont "ＭＳ ゴシック" 0 -15 400 0 nil nil nil 128 1 3 49))
(w32-change-font-logfont "ms-gotic-9-ascii" 2
			 '(w32-logfont "ＭＳ ゴシック" 0 -15 400 0 t nil nil 128 1 3 49))
(w32-change-font-logfont "ms-gotic-9-ascii" 1
			 '(w32-logfont "ＭＳ ゴシック" 0 -15 700 0 nil nil nil 128 1 3 49))
(w32-change-font-logfont "ms-gotic-9-ascii" 3
			 '(w32-logfont "ＭＳ ゴシック" 0 -15 700 0 t nil nil 128 1 3 49))

(w32-add-font "ms-gotic-9-jisx201"
	      '((default-ascent . 0)
		(relative-compose . 0)
		(encoding-type . 1)
		(overhang . 0)
		(base   . 13)
		(height . 16)
		(width  . 8)))
(w32-change-font-logfont "ms-gotic-9-jisx201" 0 
			 '(w32-logfont "ＭＳ ゴシック" 0 -15 400 0 nil nil nil 128 1 3 49))
(w32-change-font-logfont "ms-gotic-9-jisx201" 2 
			 '(w32-logfont "ＭＳ ゴシック" 0 -15 400 0 t nil nil 128 1 3 49))
(w32-change-font-logfont "ms-gotic-9-jisx201" 1
			 '(w32-logfont "ＭＳ ゴシック" 0 -15 700 0 nil nil nil 128 1 3 49))
(w32-change-font-logfont "ms-gotic-9-jisx201" 3 
			 '(w32-logfont "ＭＳ ゴシック" 0 -15 700 0 t nil nil 128 1 3 49))

(w32-add-font "ms-gotic-9-jisx208"
	      '((default-ascent . 0)
		(relative-compose . 0)
		(encoding-type . 4)
		(overhang . 0)
		(base   . 13)
		(height . 16)
		(width  . 8)))
(w32-change-font-logfont "ms-gotic-9-jisx208" 0 
			 '(w32-logfont "ＭＳ ゴシック" 0 -15 400 0 nil nil nil 128 1 3 49))
(w32-change-font-logfont "ms-gotic-9-jisx208" 2 
			 '(w32-logfont "ＭＳ ゴシック" 0 -15 400 0 t nil nil 128 1 3 49))
(w32-change-font-logfont "ms-gotic-9-jisx208" 1
			 '(w32-logfont "ＭＳ ゴシック" 0 -15 700 0 nil nil nil 128 1 3 49))
(w32-change-font-logfont "ms-gotic-9-jisx208" 3 
			 '(w32-logfont "ＭＳ ゴシック" 0 -15 700 0 t nil nil 128 1 3 49))

(new-fontset "ms-gotic-9-fontset" 
  '((ascii . "ms-gotic-9-ascii")
    (katakana-jisx0201 . "ms-gotic-9-jisx201")
    (japanese-jisx0208 . "ms-gotic-9-jisx208")))

; font: Bitmap-16 の登録
(require 'bitmap)
(w32-auto-regist-bdf-font "Bitmap-16"
			  (expand-file-name "Misc/bmp16-etl.bdf" bdf-font-directory-int) 0)

(set-fontset-font "ms-gotic-9-ontset"  'bitmap "Bitmap-16")

--
=======================================================================
 ┰　┰　磯　直行 / いそ　なおゆき  iso@xxxxxxxxxxxxxx
 　∪　　セントラル・コンピュータ・サービス(株) ビジネスシステム第5部
 　〜　　勤務地:(株)ジャパンエナジー システム企画担当  Tel:03-5573-6237