(in-package :gacela)
-(setq *zoom* -10)
+(setq *zoom* -50)
(defun tetramine-i ()
(let ((color '(1 0 0)))
(next (random-tetramine))
(timer (make-timer))
(grid (make-list 20 :initial-element (make-list 14)))
- (texture (load-texture "background.bmp")));fondo_tetris.png")))
+ (texture (load-texture "fondo_tetris.png")))
(defun tetramine ()
(cond ((eq (timer-state timer) 'stopped) (start-timer timer)))
(setq next (random-tetramine)))
(t (incf y) (start-timer timer)))))
- (draw-square :size 1 :texture texture)))
+ (draw-square :size 20 :texture texture)))
; (translate -25 19)
; (draw-grid (join-grids tetramine grid x y))
; (translate 40 40)