+ (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))
+