multi-size bitmap-mule

[Keisuke Nishida]

こんにちは、西田と申します。

Lookup という辞書検索ソフトを作っています。電子辞書に含まれる外字の
表示に bitmap-mule を利用しているのですが、現在の bitmap-mule は
16 ドットのフォントサイズにしか対応していないようなので、これを
12, 14, 16, 24 の各フォントサイズに対応させるためのパッチを作って
みました。以下は bitmap-ci.el に対するもののみですが、bitmap-bi.el
も同様の方法で対応出来るのではないでしょうか。

--- bitmap-mule-8.0/bitmap-ci.el.orig	Tue Aug 24 09:06:34 1999
+++ bitmap-mule-8.0/bitmap-ci.el	Tue Dec 14 19:52:59 1999
@@ -39,10 +39,24 @@
 
 (if window-system
     (mapcar (lambda (fontset)
-	      (if (= (fontset-pixel-size fontset) 16)
+	      (let ((size (fontset-pixel-size fontset)))
+		(cond
+		 ((= size 12)
 		  (set-fontset-font
 		   fontset 'bitmap
-		   "-etl-fixed-medium-r-*--16-*-100-100-m-*-bitmap.8x16-0")
+		   "-etl-fixed-medium-r-*--12-*-100-100-m-*-bitmap.6x12-0"))
+		 ((= size 14)
+		  (set-fontset-font
+		   fontset 'bitmap
+		   "-etl-fixed-medium-r-*--14-*-100-100-m-*-bitmap.7x14-0"))
+		 ((= size 16)
+		  (set-fontset-font
+		   fontset 'bitmap
+		   "-etl-fixed-medium-r-*--16-*-100-100-m-*-bitmap.8x16-0"))
+		 ((= size 24)
+		  (set-fontset-font
+		   fontset 'bitmap
+		   "-etl-fixed-medium-r-*--24-*-100-100-m-*-bitmap.12x24-0")))
 		))
 	    (fontset-list))
   )

また、これに対応するフォントをまとめたものを、bitmap-font-1.0 として
次のところで配布しています。

  http://openlab.ring.gr.jp/lookup/DIST/misc/bitmap-font-1.0.tar.gz

bdfresize を利用して、etl8x16-bitmap.bdf から 6x12, 7x14, 12x24 の
各サイズを機械的に生成したものです。make install でインストール出来る
ようにもしてあります。

よろしければ、次版の bitmap-mule に取り込んで頂けますと幸いです。

-- Keisuke Nishida