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) |
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 |