Lines Matching +defs:name +defs:pos
107 (defcustom tetris-buffer-name "*Tetris*"
262 (defvar tetris-pos-x 0)
263 (defvar tetris-pos-y 0)
272 (make-variable-buffer-local 'tetris-pos-x)
273 (make-variable-buffer-local 'tetris-pos-y)
361 (setq tetris-pos-x (/ (- tetris-width (tetris-shape-width)) 2))
362 (setq tetris-pos-y 0)
384 tetris-pos-x
387 tetris-pos-y
395 (px (+ tetris-top-left-x tetris-pos-x x))
396 (py (+ tetris-top-left-y tetris-pos-y y)))
407 (xx (+ tetris-pos-x x))
408 (yy (+ tetris-pos-y y))
480 tetris-pos-x 0
481 tetris-pos-y 0
504 (setq tetris-pos-y (1+ tetris-pos-y))
507 (setq tetris-pos-y (1- tetris-pos-y)))
519 (setq tetris-pos-y (1+ tetris-pos-y))
521 (setq tetris-pos-y (1- tetris-pos-y))
528 (unless (or (= tetris-pos-x 0)
531 (setq tetris-pos-x (1- tetris-pos-x))
533 (setq tetris-pos-x (1+ tetris-pos-x)))
539 (unless (or (= (+ tetris-pos-x (tetris-shape-width))
543 (setq tetris-pos-x (1+ tetris-pos-x))
545 (setq tetris-pos-x (1- tetris-pos-x)))
609 (setq mode-name "Tetris")
650 (switch-to-buffer tetris-buffer-name)