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   int size;
  26 };
  27
  28 static scm_t_bits font_tag;
  29
  30 SCM
  31 make_font (SCM file, SCM size, FTGLfont *font_address)
  32 {
  33   SCM smob;
  34   struct font *font;
  35
  36   font = (struct font *) scm_gc_malloc (sizeof (struct font), "font");
  37
  38   font->filename = SCM_BOOL_F;
  39   font->size = scm_to_int (size);
  40   font->font_address = NULL;
  41
  42   SCM_NEWSMOB (smob, font_tag, font);
  43
  44   font->filename = file;
  45   font->font_address = font_address;
  46
  47   return smob;
  48 }
  49
  50 FTGLfont *
  51 get_font_address (SCM font_smob)
  52 {
  53   struct font *font;
  54
  55   scm_assert_smob_type (font_tag, font_smob);
  56   font = (struct font *) SCM_SMOB_DATA (font_smob);
  57   return font->font_address;
  58 }
  59
  60 SCM
  61 get_font_size (SCM font_smob)
  62 {
  63   struct font *font;
  64
  65   scm_assert_smob_type (font_tag, font_smob);
  66   font = (struct font *) SCM_SMOB_DATA (font_smob);
  67   return scm_from_int (font->size);
  68 }
  69
  70 SCM
  71 mark_font (SCM font_smob)
  72 {
  73   struct font *font = (struct font *) SCM_SMOB_DATA (font_smob);
  74
  75   scm_gc_mark (font->filename);
  76
  77   return SCM_BOOL_F;
  78 }
  79
  80 size_t
  81 free_font (SCM font_smob)
  82 {
  83   struct font *font = (struct font *) SCM_SMOB_DATA (font_smob);
  84
  85   ftglDestroyFont (font->font_address);
  86   scm_gc_free (font, sizeof (struct font), "font");
  87
  88   return 0;
  89 }
  90
  91 static int
  92 print_font (SCM font_smob, SCM port, scm_print_state *pstate)
  93 {
  94   struct font *font = (struct font *) SCM_SMOB_DATA (font_smob);
  95
  96   scm_puts ("#<font \"", port);
  97   scm_display (font->filename, port);
  98   scm_puts ("\", size ", port);
  99   scm_display (scm_from_int (font->size), port);
 100   scm_puts (">", port);
 101
 102   /* non-zero means success */
 103   return 1;
 104 }
 105
 106
 107 SCM
 108 gacela_ftglCreateTextureFont (SCM file, SCM size)
 109 {
 110   FTGLfont *font_address = ftglCreateTextureFont (scm_to_locale_string (file));
 111
 112   if (font_address) {
 113     return make_font (file, size, font_address);
 114   }
 115   else {
 116     return SCM_BOOL_F;
 117   }
 118 }
 119
 120 SCM
 121 gacela_ftglSetFontFaceSize (SCM font, SCM size, SCM res)
 122 {
 123   return scm_from_int (ftglSetFontFaceSize (get_font_address (font), scm_to_int (size), scm_to_int (res)));
 124 }
 125
 126 SCM
 127 gacela_ftglGetFontFaceSize (SCM font)
 128 {
 129   return scm_from_int (ftglGetFontFaceSize (get_font_address (font)));
 130 }
 131
 132 SCM
 133 gacela_ftglSetFontCharMap (SCM font, SCM encoding)
 134 {
 135   return scm_from_int (ftglSetFontCharMap (get_font_address (font), scm_to_int (encoding)));
 136 }
 137
 138 SCM
 139 gacela_ftglRenderFont (SCM font, SCM string, SCM mode)
 140 {
 141   ftglRenderFont (get_font_address (font), scm_to_locale_string(string), scm_to_int (mode));
 142   return SCM_UNSPECIFIED;
 143 }
 144
 145
 146 void
 147 init_gacela_ftgl (void *data)
 148 {
 149   font_tag = scm_make_smob_type ("font", sizeof (struct font));
 150   scm_set_smob_mark (font_tag, mark_font);
 151   scm_set_smob_free (font_tag, free_font);
 152   scm_set_smob_print (font_tag, print_font);
 153   //  scm_set_smob_equalp (surface_tag, equalp_surface);
 154   scm_c_define_gsubr ("font-size", 1, 0, 0, get_font_size);
 155
 156   scm_c_define ("ft_encoding_unicode", scm_from_int (ft_encoding_unicode));
 157   scm_c_define ("FTGL_RENDER_ALL", scm_from_int (FTGL_RENDER_ALL));
 158
 159   scm_c_define_gsubr ("ftglCreateTextureFont", 2, 0, 0, gacela_ftglCreateTextureFont);
 160   scm_c_define_gsubr ("ftglSetFontFaceSize", 3, 0, 0, gacela_ftglSetFontFaceSize);
 161   scm_c_define_gsubr ("ftglGetFontFaceSize", 1, 0, 0, gacela_ftglGetFontFaceSize);
 162   scm_c_define_gsubr ("ftglSetFontCharMap", 2, 0, 0, gacela_ftglSetFontCharMap);
 163   scm_c_define_gsubr ("ftglRenderFont", 3, 0, 0, gacela_ftglRenderFont);
 164 }
 165
 166
 167 void
 168 scm_init_gacela_ftgl ()
 169 {
 170   init_gacela_ftgl (NULL);
 171 }