]> git.jsancho.org Git - gacela.git/blobdiff - gacela_tetris.lisp
(no commit message)
[gacela.git] / gacela_tetris.lisp
index 4d83b70f3b69af0076aefc4b53078dd7899a32c0..4bd3819dd3f1c2fe1ee2371a9644db0be450fbac 100644 (file)
                  (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))