- (background (draw-image-function "fondo_tetris.png"))
-; (background (draw-image-function "../../nehe/lesson06/data/nehe.bmp"))
+ (background (load-texture "fondo_tetris.png"))
+; (background (load-texture "../../nehe/lesson06/data/nehe.bmp"))
(cond ((collide-grids tetramine grid x y) (setq game-over t)))
(setq next (random-tetramine)))
(t (incf y) (start-timer timer)))))
(cond ((collide-grids tetramine grid x y) (setq game-over t)))
(setq next (random-tetramine)))
(t (incf y) (start-timer timer)))))