(in-package :gacela)
+(setq *frames-per-second* 15)
+
(defun tetramine-i ()
(let ((color '(1 0 0)))
`((,color ,color ,color ,color))))
(let ((tetramine (random-tetramine)) (x 6) (y 0)
(next (random-tetramine))
(timer (make-timer))
- (grid (make-list 20 :initial-element (make-list 14))) ;320x460
+ (grid (make-list 20 :initial-element (make-list 14)))
(background (draw-image-function "fondo_tetris.png")))
(defun tetramine ()
(cond ((eq (timer-state timer) 'stopped) (start-timer timer)))
(translate 440 440)
(draw-grid next)))
-(run-game "Gacela Tetris" (tetramine))
+(let ((frame 0.0) (fps (make-timer)) (update (make-timer)))
+ (start-timer update)
+ (start-timer fps)
+ (run-game "Gacela Tetris"
+ (tetramine)
+ (incf frame)
+ (cond ((> (get-time update) 1000) (print (/ frame (/ (get-time fps) 1000.0))) (start-timer update)))))