From 0e67e98bfd1eedf78f3e9c27a6d9726f225deac1 Mon Sep 17 00:00:00 2001 From: jsancho Date: Tue, 18 Aug 2009 16:27:17 +0000 Subject: [PATCH] --- gacela_draw.lisp | 2 +- gacela_tetris.lisp | 14 +++++++------- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/gacela_draw.lisp b/gacela_draw.lisp index 3ec9458..3149f4d 100644 --- a/gacela_draw.lisp +++ b/gacela_draw.lisp @@ -40,7 +40,7 @@ (apply #'glColor3f color)) (defun load-texture (filename &optional (min-filter GL_LINEAR) (mag-filter GL_LINEAR)) -; (init-textures) + (init-textures) (init-video-mode) (let ((image (IMG_Load filename)) (texture (car (glGenTextures 1)))) diff --git a/gacela_tetris.lisp b/gacela_tetris.lisp index 4d83b70..c0e7a38 100644 --- a/gacela_tetris.lisp +++ b/gacela_tetris.lisp @@ -1,6 +1,6 @@ (in-package :gacela) -(setq *zoom* -50) +(setq *zoom* -10) (defun tetramine-i () (let ((color '(1 0 0))) @@ -103,7 +103,7 @@ (next (random-tetramine)) (timer (make-timer)) (grid (make-list 20 :initial-element (make-list 14))) - (texture (load-texture "fondo_tetris.png"))) + (texture (load-texture "background.bmp")));fondo_tetris.png"))) (defun tetramine () (cond ((eq (timer-state timer) 'stopped) (start-timer timer))) @@ -129,10 +129,10 @@ (setq next (random-tetramine))) (t (incf y) (start-timer timer))))) - (draw-square :size 1 :texture texture) - (translate -25 19) - (draw-grid (join-grids tetramine grid x y)) - (translate 40 40) - (draw-grid next))) + (draw-square :size 1 :texture texture))) +; (translate -25 19) +; (draw-grid (join-grids tetramine grid x y)) +; (translate 40 40) +; (draw-grid next))) (run-game "Gacela Tetris" (tetramine)) -- 2.39.2