diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-03-01 08:08:28 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-03-01 08:08:28 +0000 |
| commit | 059e5edba1175504698637f734eb5bf975b299fa (patch) | |
| tree | 95e6f08169d73d1ce763ae90945204783c0132eb /chess-images.el | |
| parent | f115e4627966ae900aef55cb10f9e6207dbe7adf (diff) | |
Playing against crafty now works.
Diffstat (limited to 'chess-images.el')
| -rw-r--r-- | chess-images.el | 29 |
1 files changed, 9 insertions, 20 deletions
diff --git a/chess-images.el b/chess-images.el index 10d1821..2a0a602 100644 --- a/chess-images.el +++ b/chess-images.el @@ -127,11 +127,6 @@ jww (2001-06-23): This is still not fully implemented." :set 'chess-images-clear-image-cache :group 'chess-images) -(defun chess-images (game) - "A chessboard display that uses graphical images." - (chess-display game 'chess-images-handler - )) - ;;; Code: (defconst chess-images-piece-names @@ -202,8 +197,7 @@ jww (2001-06-23): This is still not fully implemented." (goto-char (point-min))) (while (if inverted (>= rank 0) (< rank 8)) (while (if inverted (>= file 0) (< file 8)) - (let* ((piece (chess-pos-piece board - (chess-rf-to-index rank file))) + (let* ((piece (chess-pos-piece board (chess-rf-to-index rank file))) (image (if (= piece ? ) (aref chess-images-cache @@ -418,8 +412,6 @@ This is necessary for bizzare Emacs reasons." chess-images-light-color)) (piece-colors (list chess-images-black-color chess-images-white-color)) - (c 0) (b 0) - (pieces chess-images-piece-names) blank name image-data) (dotimes (c 2) (dotimes (b 2) @@ -427,24 +419,21 @@ This is necessary for bizzare Emacs reasons." (let ((file (expand-file-name (format "%s-%s.%s" (nth c colors) (nth 1 piece) chess-images-extension) - chess-images-directory)) - image) - (cond - ((file-readable-p file) - (aset (aref (aref chess-images-cache c) b) - (nth 2 piece) - (chess-images-create-image file b c))) - ;; try loading an xboard format file - (t + chess-images-directory))) + (if (file-readable-p file) + (aset (aref (aref chess-images-cache c) b) + (nth 2 piece) + (chess-images-create-image file b c)) + ;; try loading an xboard format file (setq file (expand-file-name - (format "%c%c%c%d.%s" (caar pieces) + (format "%c%c%c%d.%s" (car piece) (if (= c 0) ?d ?l) (if (= b 0) ?d ?l) chess-images-size chess-images-extension) chess-images-directory)) (aset (aref (aref chess-images-cache c) b) (nth 2 piece) - (chess-images-create-image file b c)))))))) + (chess-images-create-image file b c))))))) (cond ((file-readable-p (setq blank (expand-file-name |