]> git.jsancho.org Git - gacela.git/blob - src/ftgl.c
Gacela as Guile modules: main loop in a thread
[gacela.git] / src / ftgl.c
1 /* Gacela, a GNU Guile extension for fast games development
2    Copyright (C) 2009 by Javier Sancho Fernandez <jsf at jsancho dot org>
3
4    This program is free software: you can redistribute it and/or modify
5    it under the terms of the GNU General Public License as published by
6    the Free Software Foundation, either version 3 of the License, or
7    (at your option) any later version.
8
9    This program is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12    GNU General Public License for more details.
13
14    You should have received a copy of the GNU General Public License
15    along with this program.  If not, see <http://www.gnu.org/licenses/>.
16 */
17
18 #include <libguile.h>
19 #include <FTGL/ftgl.h>
20
21 struct font
22 {
23   SCM filename;
24   FTGLfont *font_address;
25 };
26
27 static scm_t_bits font_tag;
28
29 SCM
30 make_font (SCM file, FTGLfont *font_address)
31 {
32   SCM smob;
33   struct font *font;
34
35   font = (struct font *) scm_gc_malloc (sizeof (struct font), "font");
36
37   font->filename = SCM_BOOL_F;
38   font->font_address = NULL;
39
40   SCM_NEWSMOB (smob, font_tag, font);
41
42   font->filename = file;
43   font->font_address = font_address;
44
45   return smob;
46 }
47
48 FTGLfont *
49 get_font_address (SCM font_smob)
50 {
51   struct font *font;
52
53   scm_assert_smob_type (font_tag, font_smob);
54   font = (struct font *) SCM_SMOB_DATA (font_smob);
55   return font->font_address;
56 }
57
58 SCM
59 mark_font (SCM font_smob)
60 {
61   struct font *font = (struct font *) SCM_SMOB_DATA (font_smob);
62
63   scm_gc_mark (font->filename);
64      
65   return SCM_BOOL_F;
66 }
67
68 size_t
69 free_font (SCM font_smob)
70 {
71   struct font *font = (struct font *) SCM_SMOB_DATA (font_smob);
72
73   ftglDestroyFont (font->font_address);
74   scm_gc_free (font, sizeof (struct font), "font");
75
76   return 0;
77 }
78
79 static int
80 print_font (SCM font_smob, SCM port, scm_print_state *pstate)
81 {
82   struct font *font = (struct font *) SCM_SMOB_DATA (font_smob);
83
84   scm_puts ("#<font \"", port);
85   scm_display (font->filename, port);
86   scm_puts ("\">", port);
87
88   /* non-zero means success */
89   return 1;
90 }
91
92
93 SCM
94 gacela_ftglCreateTextureFont (SCM file)
95 {
96   FTGLfont *font_address = ftglCreateTextureFont (scm_to_locale_string (file));
97
98   if (font_address) {
99     return make_font (file, font_address);
100   }
101   else {
102     return SCM_BOOL_F;
103   }
104 }
105
106 SCM
107 gacela_ftglSetFontFaceSize (SCM font, SCM size, SCM res)
108 {
109   return scm_from_int (ftglSetFontFaceSize (get_font_address (font), scm_to_int (size), scm_to_int (res)));
110 }
111
112 SCM
113 gacela_ftglSetFontCharMap (SCM font, SCM encoding)
114 {
115   return scm_from_int (ftglSetFontCharMap (get_font_address (font), scm_to_int (encoding)));
116 }
117
118 SCM
119 gacela_ftglRenderFont (SCM font, SCM string, SCM mode)
120 {
121   ftglRenderFont (get_font_address (font), scm_to_locale_string(string), scm_to_int (mode));
122   return SCM_UNSPECIFIED;
123 }
124
125
126 void
127 init_gacela_ftgl (void *data)
128 {
129   font_tag = scm_make_smob_type ("font", sizeof (struct font));
130   scm_set_smob_mark (font_tag, mark_font);
131   scm_set_smob_free (font_tag, free_font);
132   scm_set_smob_print (font_tag, print_font);
133   //  scm_set_smob_equalp (surface_tag, equalp_surface);
134
135   scm_c_define ("ft_encoding_unicode", scm_from_int (ft_encoding_unicode));
136   scm_c_define ("FTGL_RENDER_ALL", scm_from_int (FTGL_RENDER_ALL));
137
138   scm_c_define_gsubr ("ftglCreateTextureFont", 1, 0, 0, gacela_ftglCreateTextureFont);
139   scm_c_define_gsubr ("ftglSetFontFaceSize", 3, 0, 0, gacela_ftglSetFontFaceSize);
140   scm_c_define_gsubr ("ftglSetFontCharMap", 2, 0, 0, gacela_ftglSetFontCharMap);
141   scm_c_define_gsubr ("ftglRenderFont", 3, 0, 0, gacela_ftglRenderFont);
142 }
143
144
145 void
146 scm_init_gacela_ftgl ()
147 {
148   init_gacela_ftgl (NULL);
149 }