X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fvideo.scm;h=5a5ef2b135a904d98c74414b6238401857378a86;hb=9b3316341b69c34ecb4a6f7e58a1bd4c971e4e84;hp=18d51852ef0c105b77da2ab68ecb7e44c6b751af;hpb=1e23ab1af645ad52cdbb0fde99d01fa21226f1cc;p=gacela.git

diff --git a/src/video.scm b/src/video.scm
index 18d5185..5a5ef2b 100644
--- a/src/video.scm
+++ b/src/video.scm
@@ -402,7 +402,7 @@
 ;;; Text and fonts
 
 (define* (load-font font-file #:key (size 40) (encoding ft_encoding_unicode))
-  (let ((font (ftglCreateTextureFont font-file)))
+  (let ((font (ftglCreateTextureFont font-file size)))
     (ftglSetFontFaceSize font size 72)
     (ftglSetFontCharMap font encoding)
     font))