Function: tetris-rotate-next

tetris-rotate-next is an interactive and byte-compiled function defined in tetris.el.gz.

Signature

(tetris-rotate-next)

Documentation

Rotate the shape anticlockwise.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/play/tetris.el.gz
(defun tetris-rotate-next ()
  "Rotate the shape anticlockwise."
  (interactive nil tetris-mode)
  (unless tetris-paused
        (tetris-erase-shape)
        (setq tetris-rot (% (+ 3 tetris-rot)
                            (tetris-shape-rotations)))
        (if (tetris-test-shape)
            (setq tetris-rot (% (+ 1 tetris-rot)
                                (tetris-shape-rotations))))
        (tetris-draw-shape)))