[meadow-develop:1997/358]Package SEMI Gnus for Meadow?

[Miyashita Hisashi(宮下 尚:HIMI) <himi@xxxxxxxxxxxxxxxxxxxxxxxxx>]

確信はないので、推測です。

Tatsuya Ichikawa <ichikawa@xxxxxxxxxxxxxx> writes:

> himi> 加えること 
> himi> (set-fontset-font "private-fontset 'greek-iso8859-7 "etl16-greek")
> 
>   これで OK です。
>   ただ bitmap だけは
> 
>   (load "bitmap")
>   (w32-auto-regist-bdf-font "Bitmap-16" "c:/meadow/bdf/etl8x16-bitmapl.bdf")
>   (set-fontset-font "private-fontset" 'bitmap "Bitmap-16")
> 
>   ではだめで
> 
> (load "bitmap")
> (w32-add-font "Bitmap-16"
> 	      '((default-ascent . 0)
> 		(relative-compose . 0)
> 		(overhang . 0)
> 		(base . 14)
> 		(height . 16)
> 		(width . 10)
> 		(encoding-type . 0)))
> (w32-change-font-logfont 
>  "Bitmap-16" 0 
>  (list 'bdf-font "c:/meadow/bdf/etl8x16-bitmap.bdf"))
> (set-fontset-font "private-fontset" 'bitmap "Bitmap-16")
> 
>   として表示させる事ができました。

あれ、(width . 10)なんですか。
BDF fontからの情報では、(width . 8)ですね。
FONTBOUNDINGBOX 8 16 0 -2
ですから。これを
FONTBOUNDINGBOX 10 16 0 -2
にすれば、
   (load "bitmap")
   (w32-auto-regist-bdf-font "Bitmap-16" "c:/meadow/bdf/etl8x16-bitmapl.bdf")
   (set-fontset-font "private-fontset" 'bitmap "Bitmap-16")
で、OKだと思います。

>   あとは日本語のフォントさえ葵のときの 12pt が表示されれば...

これ、12 dot(pixel)ですね。

> (let ((font "Nihongo-12")
>       (logfont 
>        '(w32-logfont "ＭＳ ゴシック" 0 -12 400 0 nil nil nil 128 1 3 49))
>       (logfonti
>        '(w32-logfont "ＭＳ 明朝" 0 -12 400 0 nil nil nil 128 1 3 17)))
>   (create-font-from-logfont
>    font
>    (list logfont
> 	 (w32-change-logfont-weight logfont 300)
> 	 logfonti
> 	 (w32-change-logfont-weight logfonti 300))
>    4))
> 
> (let ((font "Courier-12"))
>   (create-font-from-logfont
>    font
>    '((w32-logfont "Courier New" 0 -12 400 0 nil nil nil 0 1 3 49)
>      (w32-logfont "Courier New" 0 -12 600 0 nil nil nil 0 1 3 49)
> ;;     (w32-logfont "Courier New" 0 -12 400 0 t nil nil 0 1 3 49)
> ;;     (w32-logfont "Courier New" 0 -12 700 0 t nil nil 0 1 3 49))))
>      (w32-logfont "Courier New" 0 -12 400 0 nil nil nil 0 1 3 49)
>      (w32-logfont "Courier New" 0 -12 600 0 nil nil nil 0 1 3 49))))
> 
> (let ((font "Courier-12-ISO-8859-1"))
>   (create-font-from-logfont
>    font
>    '((w32-logfont "Courier New" 0 -12 400 0 nil nil nil 0 1 3 49)
>      (w32-logfont "Courier New" 0 -12 600 0 nil nil nil 0 1 3 49)
> ;;     (w32-logfont "Courier New" 0 -12 400 0 t nil nil 0 1 3 49)
> ;;     (w32-logfont "Courier New" 0 -12 700 0 t nil nil 0 1 3 49))
>      (w32-logfont "Courier New" 0 -12 400 0 nil nil nil 0 1 3 49)
>      (w32-logfont "Courier New" 0 -12 600 0 nil nil nil 0 1 3 49))
>    1))
> 
>   を High level API を使って表示させるにはどうすればいいのでしょうか ??
>   皆さん、どうされてますか??

うーん、ものによりでしょうが、

(create-fontset-from-request "private-fontset"
			     '((width . 8)
			       (height . 12)
			       (fixed . t)
			       (italic . nil))
			     '((family . "ＭＳ ゴシック")
			       (family . "Courier New")))

が、近いでしょうね。
でも、細かい設定の出来る人にはHigh level APIは使わなくても
よいと思います。これは、ある意味でお任せ設定です。

細かく設定したい人にはLow levelがおすすめです。
## でも、面倒くさいでしょう？^^;;;

もちろん、Backendを書けばもっと柔軟に出来ますけど。

>   ここいらで、Mule for Win32 ML でも User が出てきていますので推奨 Font
>   Setting を作ってみませんか??

そうですね。できればおねがいできませんか？
私は暇を見つけてVariable Width and Heightの方の開発を行いますので。

From himi