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

[Tatsuya Ichikawa <ichikawa@xxxxxxxxxxxxxx>]

>>>>> In <ug1njoyiw.fsf@xxxxxxxxxxxxxxxxxxxxxxxxxx> 
>>>>>	"himi" = Miyashita Hisashi(宮下 尚:HIMI) <himi@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote:

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")

  として表示させる事ができました。
  あとは日本語のフォントさえ葵のときの 12pt が表示されれば...

(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 を使って表示させるにはどうすればいいのでしょうか ??
  皆さん、どうされてますか??

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

-- 
Tatsuya Ichikawa : Epson Software Development Lab, Inc. Nagano , Japan.
# PGP Public Key : See below url. ;-)
  http://www.icat.or.jp/cgi-bin/pgpsearchkey.pl?op=get&search=0x0A2D6599
       E-mail    : <ichikawa@xxxxxxxxxxxxxx><t-ichi@xxxxxxxxxxxxxxxxx>