+FTGLfont *
+get_font_address (SCM font_smob)
+{
+ struct font *font;
+
+ scm_assert_smob_type (font_tag, font_smob);
+ font = (struct font *) SCM_SMOB_DATA (font_smob);
+ return font->font_address;
+}
+
+SCM
+gacela_ftglCreateTextureFont (SCM file)
+{
+ FTGLfont *font_address = NULL;
+
+ font_address = ftglCreateTextureFont (scm_to_locale_string (file));
+
+ if (font_address) {
+ return make_font (file, font_address);