X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela_tetris.lisp;h=4bd3819dd3f1c2fe1ee2371a9644db0be450fbac;hb=1f3c099ac8e547fa510085b935d691f24e3940dd;hp=4d83b70f3b69af0076aefc4b53078dd7899a32c0;hpb=678a1561ca858c34fecf04792831caf68559c2ac;p=gacela.git diff --git a/gacela_tetris.lisp b/gacela_tetris.lisp index 4d83b70..4bd3819 100644 --- a/gacela_tetris.lisp +++ b/gacela_tetris.lisp @@ -129,10 +129,10 @@ (setq next (random-tetramine))) (t (incf y) (start-timer timer))))) - (draw-square :size 1 :texture texture) - (translate -25 19) - (draw-grid (join-grids tetramine grid x y)) - (translate 40 40) - (draw-grid next))) + (draw-square :size 20 :texture texture))) +; (translate -25 19) +; (draw-grid (join-grids tetramine grid x y)) +; (translate 40 40) +; (draw-grid next))) (run-game "Gacela Tetris" (tetramine))