(no commit message)

diff --git a/gacela.lisp b/gacela.lisp
index eecc4893ee41e5196887514e79932e302bb571d8..6597f784cd0955e4ce38427859885fd4e1bde20f 100644 (file)
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -153,8 +153,8 @@
 (defun make-resource-texture (&key filename min-filter mag-filter)
   `(:type texture :filename ,filename :min-filter ,min-filter :mag-filter ,mag-filter))
 
-(defun make-resource-font (&key filename size encoding)
-  `(:type font :filename ,filename :size ,size :enconding ,encoding))
+(defun make-resource-font (&key filename encoding)
+  `(:type font :filename ,filename :enconding ,encoding))
 
 (let ((resources-table (make-hash-table :test 'equal)))
 

diff --git a/gacela_tetris.lisp b/gacela_tetris.lisp
index a89d138e2970f9634c2eb70e7b7a3a7a10eff6fe..aadcb5238005f568d2f98155cd512e1fd9ee177b 100644 (file)
--- a/gacela_tetris.lisp
+++ b/gacela_tetris.lisp
@@ -99,12 +99,16 @@
                         (t (fill (cons (make-list 14) grid) (- n 1))))))
            (fill res (- 20 (length res))))))
 
+(let ((points 0))
+  (defun get-points ()
+    points))
+
 (let ((tetramine (random-tetramine)) (x 6) (y 0)
       (next (random-tetramine))
       (timer (make-timer))
       (grid (make-list 20 :initial-element (make-list 14)))
       (background (draw-image-function "fondo_tetris.png"))
-      (font (load-font "lazy.ttf")))
+      (font (load-font "lazy.ttf" :size 20)))
   (defun tetramine ()
     (cond ((eq (timer-state timer) 'stopped) (start-timer timer)))
 

diff --git a/gacela_ttf.lisp b/gacela_ttf.lisp
index 3cb84932e975b4303fcd72dbb52cd85e69897eff..f0e21a26babfcd9d8f3e7de6a034cae287f19c2e 100644 (file)
--- a/gacela_ttf.lisp
+++ b/gacela_ttf.lisp
@@ -16,23 +16,27 @@
 
 (in-package :gacela)
 
-(defun load-font (font-file &key (size 80) (encoding ft_encoding_unicode) static)
-  (let ((key (make-resource-font :filename font-file :size size :encoding encoding)))
-    (cond ((get-resource key) key)
+(defun load-font (font-file &key (size 40) (encoding ft_encoding_unicode) static)
+  (let* ((key (make-resource-font :filename font-file :encoding encoding))
+        (res (get-resource key)))
+    (cond (res (ftglSetFontFaceSize (getf res :id-font) size 72)
+              key)
          (t (true-load-font font-file size encoding static)))))
 
 (defun true-load-font (font-file size encoding static)
-  (let ((key (make-resource-font :filename font-file :size size :encoding encoding))
+  (let ((key (make-resource-font :filename font-file :encoding encoding))
        (font (ftglCreateTextureFont font-file)))
     (cond ((/= font 0)
           (ftglSetFontFaceSize font size 72)
           (ftglSetFontCharMap font encoding)
           (set-resource key
                         `(:id-font ,font)
-                        (lambda () (true-load-font font-file size encoding static))
+                        (lambda () (true-load-font font-file encoding static))
                         (lambda () (ftglDestroyFont font))
                         :static static)
           key))))
 
-(defun render-text (text font)
-  (ftglRenderFont (getf (get-resource font) :id-font) text FTGL_RENDER_ALL))
+(defun render-text (text font &key size)
+  (let ((id-font (getf (get-resource font) :id-font)))
+    (cond (size (ftglSetFontFaceSize id-font size 72)))
+    (ftglRenderFont id-font text FTGL_RENDER_ALL)))