Function: pong-update-bat

pong-update-bat is a byte-compiled function defined in pong.el.gz.

Signature

(pong-update-bat X Y)

Documentation

Move a bat (suppress a cell and draw another one on the other side).

Source Code

;; Defined in /usr/src/emacs/lisp/play/pong.el.gz
(defun pong-update-bat (x y)
  "Move a bat (suppress a cell and draw another one on the other side)."

  (cond
   ((string-equal (buffer-name (current-buffer)) pong-buffer-name)
    (gamegrid-set-cell x y pong-bat)
    (gamegrid-set-cell x (1- (+ y pong-bat-width)) pong-bat)
    (if (> y 1)
	(gamegrid-set-cell x (1- y) pong-blank))
    (if (< (+ y pong-bat-width) (1- pong-height))
	(gamegrid-set-cell x (+ y pong-bat-width) pong-blank)))))