Lines Matching +defs:top +defs:pos
132 (defcustom tetris-top-left-x 3
133 "X position of top left of playing area."
137 (defcustom tetris-top-left-y 1
138 "Y position of top left of playing area."
142 (defvar tetris-next-x (+ (* 2 tetris-top-left-x) tetris-width)
145 (defvar tetris-next-y tetris-top-left-y
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)
383 (gamegrid-set-cell (+ tetris-top-left-x
384 tetris-pos-x
386 (+ tetris-top-left-y
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))
409 (px (+ tetris-top-left-x xx))
410 (py (+ tetris-top-left-y yy)))
421 (if (= (gamegrid-get-cell (+ tetris-top-left-x x)
422 (+ tetris-top-left-y y))
430 (gamegrid-set-cell (+ tetris-top-left-x x)
431 (+ tetris-top-left-y y)
434 (let ((c (gamegrid-get-cell (+ tetris-top-left-x x)
435 (+ tetris-top-left-y y -1))))
436 (gamegrid-set-cell (+ tetris-top-left-x x)
437 (+ tetris-top-left-y y)
459 (gamegrid-set-cell (+ tetris-top-left-x x)
460 (+ tetris-top-left-y y)
464 (gamegrid-set-cell (+ tetris-top-left-x x)
465 (+ tetris-top-left-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)))
632 Shapes drop from the top of the screen, and the user has to move and