[Mew-dist 03485] kiki と jiji を表示しよう ! (Re: BDF font durability test)

[小関 吉則 (KOSEKI Yoshinori)]

こせきです。

ichikawa> BDF フォントの耐久試験て訳ではないですが、Gnus を使用されている方
ichikawa> Openning Message で Gnu の絵がでますよね。
ichikawa> そこを BDF フォントで bitmap 表示するような Gnus を作ってみました。

yamagus> いやはや、すごいです。 :-)
yamagus> ＃同様にやれば、Meadow + Mewで猫も出せそう。 :-)

そんな事を言ったらやってみたくなっちゃうじゃないですかぁ。:-)

o XEmacs以外のEmacs(Mule)で mew-hello で猫の絵を表示します。
  (とっても表示が遅いですけど。)

o bitmap.elが必要です。
ftp://ftp.jaist.ac.jp/pub/GNU/elisp/mime/alpha/bitmap-mule-7.18.tar.gz

o (setq mew-demo-picture t) してください。

o xpmtoppm Mew.xpm | ppmtopgm | pgmtopbm | pbmtoxbm > Mew.xbm
 で作成したので調整すればもう少しきれいなXBMを作れると思います。

(*参考)
Windowsでcygnus gccでnetpbmをcompileする話は
http://www.NetLaputa.ne.jp/~kose/Software/compile/
にpatchと共に置いてあります。

-------------- next part --------------
cd h:/Meadow/elisp/mew/mew-1.93b8/
diff -c "h:/Meadow/elisp/mew/mew-1.93b8/mew-demo.el.orig" "h:/Meadow/elisp/mew/mew-1.93b8/mew-demo.el"
*** h:/Meadow/elisp/mew/mew-1.93b8/mew-demo.el.orig	Tue Dec 02 22:40:27 1997
--- h:/Meadow/elisp/mew/mew-1.93b8/mew-demo.el	Sun Jan 25 09:32:05 1998
***************
*** 78,83 ****
--- 78,89 ----
         )
        (sit-for 0) ;; to redraw
        )
+      ((and (featurep 'bitmap) mew-demo-picture)
+       (bitmap-insert-xbm-file 
+        (expand-file-name mew-icon-mew-mono mew-icon-directory))
+       (center-region (point-min) (point-max))
+       (sit-for 0) ;; to redraw
+       )
       (t
        (insert "/\\\\ - \\\\/")
        (center-line)

Diff finished at Sun Jan 25 09:32:21
-------------- next part --------------
cd h:/Meadow/elisp/mew/mew-1.93b8/
diff -c "h:/Meadow/elisp/mew/mew-1.93b8/mew-vars.el.orig" "h:/Meadow/elisp/mew/mew-1.93b8/mew-vars.el"
*** h:/Meadow/elisp/mew/mew-1.93b8/mew-vars.el.orig	Tue Dec 23 16:33:07 1997
--- h:/Meadow/elisp/mew/mew-1.93b8/mew-vars.el	Sun Jan 25 00:10:25 1998
***************
*** 611,616 ****
--- 611,617 ----
    "*A picture of cats is displayed if non-nil on XEmacs.")
  
  (defvar mew-icon-mew "Mew.xpm")
+ (defvar mew-icon-mew-mono "Mew.xbm")
  
  (defvar mew-logo nil)
  

Diff finished at Sun Jan 25 09:33:59
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: 無し
型:         application/octet-stream
サイズ:     11055 バイト
説明:       Mew.xbm.gz
URL:        <http://www.mew.org/pipermail/mew-dist/attachments/19980125/2bdefe89/attachment.obj>
-------------- next part --------------
もう少し速くうごかないかなぁ。
--
こせき @ I love GNU, Mule and Meadowのページ作成中
http://www.NetLaputa.ne.jp/~kose/
kose at example.com