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

[Kazuhiro NISHIYAMA <zn@xxxxxxxxxxxxx>]

西山和広です。

In <20020910.230931.06260473.yokota-k@xxxxxxxxxxxxxxx>
On Tue, 10 Sep 2002 23:09:31 +0900 (JST)
YOKOTA Kazuya <yokota-k@xxxxxxxxxxxxxxx> wrote:
> kose> TrueType + bitmap(BDFでX-Face)は可能です。
> kose> あとは誰かがTrueTypeの研究成果を披露してくれるでしょう。
> 
> TrueType + x-face は可能なのですね! どなたかお手すきの時に教えて下さい
> ませ。

こんな感じで TrueType + bitmap が表示できてます。

結局、(set-fontset-font my-fontset-name 'bitmap "Bitmap-16")
のようにbitmapを加えればいいというだけだったのですが、
なかなかわからなくて苦労した覚えがあります。


(defun my-ttf-font (my-fontset-name my-logfont-info font-name)
  (let ((my-logfont-required (list
                              (assoc 'width my-logfont-info)
                              (assoc 'height my-logfont-info)
                              '(fixed . t)))
        (my-font-family
         '((family . font-name)
           ;;(family . "Courier New")
           (family . "Andale Mono")
           )))

    (create-fontset-from-request
     ;; NAME
     my-fontset-name
     ;; REQUIRED
     (append my-logfont-required
             '((italic . nil)))
     ;; RECOMMENDED
     my-font-family)

    (change-fontset-from-request
     my-fontset-name
     (append my-logfont-required
             '((weight . 400)
               (italic . nil)))
     my-font-family)

    (change-fontset-from-request
     my-fontset-name
     (append my-logfont-required
             '((weight . 700) ;; bold
               (italic . nil)))
     my-font-family
     1)

    (change-fontset-from-request
     my-fontset-name
     (append my-logfont-required
             '((weight . 400)
               (italic . t))) ;; italic
     my-font-family
     2)

    (change-fontset-from-request
     my-fontset-name
     (append my-logfont-required
             '((weight . 700) ;; bold
               (italic . t))) ;; italic
     my-font-family
     3)

    (modify-frame-parameters (selected-frame)
                             `((font . ,my-fontset-name)
                               (ime-font . ,(concat my-fontset-name
                                                    "-japanese-jisx0208"))
                               )
                             )

    (when (locate-library "bitmap")
      (set-fontset-font my-fontset-name 'bitmap "Bitmap-16"))
    ))

(when (locate-library "bitmap")
  (when (featurep 'un-define)
    (setq bitmap-alterable-charset 'tibetan-1-column))

  (require 'bitmap)
  (w32-auto-regist-bdf-font
   "Bitmap-16"
   "c:/Meadow/fonts/bdf/bitmap16.bdf"
   0))

(when ;; 時間がかかるので設定するかどうかを簡単に切り替えられるように。
    t
  (my-ttf-font "private-fontset"
               '((width . 8) (height . 16))
               "ＭＳ ゴシック"))
(when
    nil
  (my-ttf-font "mymsmin-fontset"
               '((width . 8) (height . 16))
               "ＭＳ 明朝")
  )


-- 
|ZnZ(ゼット エヌ ゼット)
|西山和広(Kazuhiro NISHIYAMA)