市川＠ＥＳＤです。
;; 長いです。
>>>>> In <uen31gnfc.fsf@xxxxxxxxxxxxxxxxxxxxxxxxxx>
>>>>> "himi" = Miyashita Hisashi(宮下 尚:HIMI) <himi@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote:
himi> あれ、(width . 10)なんですか。
あ、これはごみが残らないように... と小関さんのページの設定を見てこうしま
したが (width . 8) でも問題なく表示はできます。
himi> BDF fontからの情報では、(width . 8)ですね。
himi> FONTBOUNDINGBOX 8 16 0 -2
himi> ですから。これを
himi> FONTBOUNDINGBOX 10 16 0 -2
himi> にすれば、
これにしなくても ... これより上に typo があってだめだったようです。
himi> (load "bitmap")
himi> (w32-auto-regist-bdf-font "Bitmap-16" "c:/meadow/bdf/etl8x16-bitmapl.bdf")
himi> (set-fontset-font "private-fontset" 'bitmap "Bitmap-16")
himi> で、OKだと思います。
これで OK です。
himi> うーん、ものによりでしょうが、
himi> (create-fontset-from-request "private-fontset"
himi> '((width . 8)
himi> (height . 12)
himi> (fixed . t)
himi> (italic . nil))
himi> '((family . "ＭＳ ゴシック")
himi> (family . "Courier New")))
(create-fontset-from-request "private-fontset"
'((width . 7)
(height . 14)
(fixed . t)
(italic . nil))
'((family . "ＭＳ ゴシック")
(family . "Courier New")))
が一番近い表示ですね
けど、日本語のフォントがどぉしてもこれだと英字に比べて大きくなるので...
(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-list
font
(list logfont
(w32-change-logfont-weight logfont 300)
logfonti
(w32-change-logfont-weight logfonti 300))
4))
(set-fontset-font "private-fontset" 'katakana-jisx0201 "Nihongo-12")
(set-fontset-font "private-fontset" 'japanese-jisx0208 "Nihongo-12")
(set-fontset-font "private-fontset" 'latin-jisx0201 "Nihongo-12")
を入れています。(結局 High level + Low Level の Mix に落ち着いている...)
himi> ## でも、面倒くさいでしょう？^_^;;;
結構...
High Level でできるところをやって、気にくわない部分を Low Level でかいてや
るのが better かと思います。
himi> そうですね。できればおねがいできませんか？
himi> 私は暇を見つけてVariable Width and Heightの方の開発を行いますので。
ちょっと作ってみました。
Mule for Win32 に流す前にここで皆さんに見てもらおうかと思います。
ベースは原さんのページで紹介してあるものです。
ispell とかまったく通していませんのでおかしな所があったらつついてください。
Attachment:
_font-setup-050.el
Description: Binary data
--
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>