/[emacs]/emacs/lisp/play/tetris.el
ViewVC logotype

Diff of /emacs/lisp/play/tetris.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by walters, Wed Apr 10 19:14:38 2002 UTC revision 1.8.2.1 by miles, Fri Apr 4 06:20:31 2003 UTC
# Line 160  Element 0 is ignored." Line 160  Element 0 is ignored."
160    
161  ;; ;;;;;;;;;;;;; display options ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;; ;;;;;;;;;;;;; display options ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
162    
 (defvar tetris-border-options  
   '(((glyph colorize)  
      (t ?\+))  
     ((color-x color-x)  
      (mono-x grid-x)  
      (t nil))  
     (((glyph color-x) [0.5 0.5 0.5])  
      (t nil))))  
   
163  (defvar tetris-blank-options  (defvar tetris-blank-options
164    '(((glyph colorize)    '(((glyph colorize)
165       (t ?\040))       (t ?\040))
166      ((color-x color-x)      ((color-x color-x)
167       (mono-x grid-x)       (mono-x grid-x)
168       (color-tty color-tty)       (color-tty color-tty))
      (t nil))  
169      (((glyph color-x) [0 0 0])      (((glyph color-x) [0 0 0])
170       (color-tty "black")       (color-tty "black"))))
      (t nil))))  
171    
172  (defvar tetris-cell-options  (defvar tetris-cell-options
173    '(((glyph colorize)    '(((glyph colorize)
# Line 187  Element 0 is ignored." Line 176  Element 0 is ignored."
176      ((color-x color-x)      ((color-x color-x)
177       (mono-x mono-x)       (mono-x mono-x)
178       (color-tty color-tty)       (color-tty color-tty)
179       (mono-tty mono-tty)       (mono-tty mono-tty))
      (t nil))  
180      ;; color information is taken from tetris-x-colors and tetris-tty-colors      ;; color information is taken from tetris-x-colors and tetris-tty-colors
181      ))      ))
182    
183    (defvar tetris-border-options
184      '(((glyph colorize)
185         (t ?\+))
186        ((color-x color-x)
187         (mono-x grid-x)
188         (color-tty color-tty))
189        (((glyph color-x) [0.5 0.5 0.5])
190         (color-tty "white"))))
191    
192  (defvar tetris-space-options  (defvar tetris-space-options
193    '(((t ?\040))    '(((t ?\040))
194      nil      nil

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.8.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26