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

diff --git a/src/video.scm b/src/video.scm
index 5a5ef2b..726694a 100644
--- a/src/video.scm
+++ b/src/video.scm
@@ -408,5 +408,9 @@
     font))
 
 (define* (render-text text font #:key (size #f))
-  (cond (size (ftglSetFontFaceSize font size 72)))
+  (cond (size
+	 (cond ((not (= (ftglGetFontFaceSize font) size))
+		(ftglSetFontFaceSize font size 72))))
+	((not (= (ftglGetFontFaceSize font) (font-size font)))
+	 (ftglSetFontFaceSize font (font-size font) 72)))
   (ftglRenderFont font text FTGL_RENDER_ALL))