Hi,
This is my first trial to make XEmacs metallic logos:
ftp://ftp.jpl.org/xemacs/logo/
There are four xpm logos and raw materials. You may use the
following command to view xpm logos after downloading them.
(defun view-xemacs-logos (directory)
(interactive "DDirectory: ")
(let ((files (directory-files directory t "\\.xpm\\'")))
(unless files
(error "No xpm files in %s" directory))
(switch-to-buffer (get-buffer-create "*XEmacs logos*"))
(erase-buffer)
(dolist (file files)
(set-extent-begin-glyph (make-extent (point) (point))
(make-glyph (vector 'xpm :file file)))
(insert "\n"))
(goto-char (point-min))))
--
Katsumi Yamaoka <yamaoka(a)jpl.org>