- (grid (make-list 20 :initial-element (make-list 14))) ;320x460
- (background (draw-image-function "fondo_tetris.png")))
+ (grid (make-list 20 :initial-element (make-list 14)))
+ (background (load-texture "fondo_tetris.png"))
+; (background (load-texture "../../nehe/lesson06/data/nehe.bmp"))
+ (font (load-font "lazy.ttf" :size 20))
+ (game-over))
+
+ (defun game ()
+ (if game-over (game-over) (tetramine)))
+
+ (defun game-over ()
+ (translate -100 0)
+ (render-text "Game Over" font :size 50))
+