(in-package :gacela)
-(setq *frames-per-second* 15)
+(set-frames-per-second 15)
(defun tetramine-i ()
(let ((color '(1 0 0)))
(next (random-tetramine))
(timer (make-timer))
(grid (make-list 20 :initial-element (make-list 14)))
- (background (draw-image-function "fondo_tetris2.png")))
+ (background (draw-image-function "fondo_tetris.png")))
(defun tetramine ()
(cond ((eq (timer-state timer) 'stopped) (start-timer timer)))