Function: tetris-shift-row

tetris-shift-row is a byte-compiled function defined in tetris.el.gz.

Signature

(tetris-shift-row Y)

Source Code

;; Defined in /usr/src/emacs/lisp/play/tetris.el.gz
(defun tetris-shift-row (y)
  (if (= y 0)
      (dotimes (x tetris-width)
	(gamegrid-set-cell (+ tetris-top-left-x x)
			   (+ tetris-top-left-y y)
			   tetris-blank))
    (dotimes (x tetris-width)
      (let ((c (gamegrid-get-cell (+ tetris-top-left-x x)
                                  (+ tetris-top-left-y y -1))))
        (gamegrid-set-cell (+ tetris-top-left-x x)
                           (+ tetris-top-left-y y)
			   c)))))