Re: w32-logfont

[TAMURA Kent <kent@xxxxxxxxxxxxx>]

たむらです。

> >   '(w32-logfont "ＭＳ ゴシック" 0 -14 400 0 nil nil nil 128 1 3 49)
> >   たとえば、これでひとつのLogfontを表現してます。
>   あ、関数ではないリストなんですね。納得です。

  ↓これは create-font-from-logfont-list ですねたぶん。
> >   (create-font-from-logfont
> >    font 
> >    (list logfont
> > 	 (w32-change-logfont-weight logfont 300)
> > 	 logfonti
> > 	 (w32-change-logfont-weight logfonti 300))
> >    4))

  けっきょく、
	・logfont もしくは BDF font を用意する
	・↑と property をからめつつ `font' を作る
	・`font' と文字セットをからめつつ `fontset' を作る
というのが必要なのですね。

  README.Meadow に
>	3.2.2.3....(w32-change-font-logfont NAME LOGFONT PROPERTY)
とありますが、これは (w32-change-font-logfont NAME PROPERTY LOGFONT)
の間違いのようですね。


このようにしました:
	    (let ((font "POP3-19")
		  (logfont 
		   '(w32-logfont "ＤＦPOP1体W3" 0 -19 400 0 nil nil nil 128 1 3 1))
		  (logfonti
		   '(w32-logfont "ＭＳ 明朝" 0 -19 400 0 nil nil nil 128 1 3 17)))
	      (w32-add-font font '((width . 10)
				   (height . 20)
				   (base . 16)
				   (overhang . 0)
				   (encoding-type . 4)))
	      (w32-change-font-logfont font 0 logfont)
	      (w32-change-font-logfont font 1 (w32-change-logfont-weight logfont 700))
	      (w32-change-font-logfont font 2 logfonti)
	      (w32-change-font-logfont font 3 (w32-change-logfont-weight logfonti 700))
	      (new-fontset "original" '((ascii . "POP3-19")
				       (japanese-jisx0208 . "POP3-19")
				       (katakana-jisx0201 . "POP3-19")))
	      (set-default-font "original"))

-- 
田村健人 (TAMURA Kent) @ Tokyo Research Laboratory, IBM Japan