emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/play/tetris.el


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/play/tetris.el
Date: Fri, 04 Apr 2003 01:22:47 -0500

Index: emacs/lisp/play/tetris.el
diff -c emacs/lisp/play/tetris.el:1.8 emacs/lisp/play/tetris.el:1.9
*** emacs/lisp/play/tetris.el:1.8       Wed Apr 10 15:14:38 2002
--- emacs/lisp/play/tetris.el   Fri Sep 13 09:33:57 2002
***************
*** 160,184 ****
  
  ;; ;;;;;;;;;;;;; display options ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
- (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))))
- 
  (defvar tetris-blank-options
    '(((glyph colorize)
       (t ?\040))
      ((color-x color-x)
       (mono-x grid-x)
!      (color-tty color-tty)
!      (t nil))
      (((glyph color-x) [0 0 0])
!      (color-tty "black")
!      (t nil))))
  
  (defvar tetris-cell-options
    '(((glyph colorize)
--- 160,173 ----
  
  ;; ;;;;;;;;;;;;; display options ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defvar tetris-blank-options
    '(((glyph colorize)
       (t ?\040))
      ((color-x color-x)
       (mono-x grid-x)
!      (color-tty color-tty))
      (((glyph color-x) [0 0 0])
!      (color-tty "black"))))
  
  (defvar tetris-cell-options
    '(((glyph colorize)
***************
*** 187,196 ****
      ((color-x color-x)
       (mono-x mono-x)
       (color-tty color-tty)
!      (mono-tty mono-tty)
!      (t nil))
      ;; color information is taken from tetris-x-colors and tetris-tty-colors
      ))
  
  (defvar tetris-space-options
    '(((t ?\040))
--- 176,193 ----
      ((color-x color-x)
       (mono-x mono-x)
       (color-tty color-tty)
!      (mono-tty mono-tty))
      ;; color information is taken from tetris-x-colors and tetris-tty-colors
      ))
+ 
+ (defvar tetris-border-options
+   '(((glyph colorize)
+      (t ?\+))
+     ((color-x color-x)
+      (mono-x grid-x)
+      (color-tty color-tty))
+     (((glyph color-x) [0.5 0.5 0.5])
+      (color-tty "white"))))
  
  (defvar tetris-space-options
    '(((t ?\040))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]