Mercurial > emacs

comparison lisp/play/gamegrid.el @ 49598:0d8b17d428b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Trailing whitepace deleted.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 04 Feb 2003 13:24:35 +0000
parents 7e861822d947
children 755c2ca7f6cf d7ddb3e565de
comparison
equal deleted inserted replaced
49597:e88404e8f2cf 49598:0d8b17d428b5
234 gamegrid-mono-tty-face)))) 234 gamegrid-mono-tty-face))))
235 235
236 (defun gamegrid-colorize-glyph (color) 236 (defun gamegrid-colorize-glyph (color)
237 (find-image `((:type xpm :data ,gamegrid-xpm 237 (find-image `((:type xpm :data ,gamegrid-xpm
238 :ascent center 238 :ascent center
239 :color-symbols 239 :color-symbols
240 (("col1" . ,(gamegrid-color color 0.6)) 240 (("col1" . ,(gamegrid-color color 0.6))
241 ("col2" . ,(gamegrid-color color 0.8)) 241 ("col2" . ,(gamegrid-color color 0.8))
242 ("col3" . ,(gamegrid-color color 1.0)))) 242 ("col3" . ,(gamegrid-color color 1.0))))
243 (:type xbm :data ,gamegrid-xbm 243 (:type xbm :data ,gamegrid-xbm
244 :ascent center 244 :ascent center