From c05abaebcb1d568b9e0140db11b8a07abe783749 Mon Sep 17 00:00:00 2001 From: jsancho Date: Sat, 21 May 2011 11:48:19 +0000 Subject: [PATCH] --- src/gacela_ttf.scm | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 src/gacela_ttf.scm diff --git a/src/gacela_ttf.scm b/src/gacela_ttf.scm new file mode 100644 index 0000000..2281532 --- /dev/null +++ b/src/gacela_ttf.scm @@ -0,0 +1,26 @@ +;;; Gacela, a GNU Guile extension for fast games development +;;; Copyright (C) 2009 by Javier Sancho Fernandez +;;; +;;; This program is free software: you can redistribute it and/or modify +;;; it under the terms of the GNU General Public License as published by +;;; the Free Software Foundation, either version 3 of the License, or +;;; (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with this program. If not, see . + + +(define* (load-font font-file #:key (size 40) (encoding ft_encoding_unicode)) + (let ((font (ftglCreateTextureFont font-file))) + (ftglSetFontFaceSize font size 72) + (ftglSetFontCharMap font encoding) + font)) + +(define* (render-text text font #:key (size #f)) + (cond (size (ftglSetFontFaceSize font size 72))) + (ftglRenderFont font text FTGL_RENDER_ALL)) -- 2.39.5