From 95d31ad231800026e7b0a44ddda42c584dad5671 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@member.fsf.org>
Date: Mon, 26 Aug 2013 22:09:45 -0400
Subject: Make the origin the top-left corner of the window again.

---
 2d/wrappers/ftgl.scm | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

(limited to '2d/wrappers/ftgl.scm')

diff --git a/2d/wrappers/ftgl.scm b/2d/wrappers/ftgl.scm
index 1d18fad..537655c 100644
--- a/2d/wrappers/ftgl.scm
+++ b/2d/wrappers/ftgl.scm
@@ -73,6 +73,12 @@
 (define-foreign %ftgl-render-font
   void "ftglRenderFont" (list '* '* unsigned-int))
 
+(define-foreign %ftgl-get-font-descender
+  float "ftglGetFontDescender" '(*))
+
+(define-foreign %ftgl-get-font-ascender
+  float "ftglGetFontAscender" '(*))
+
 (define (ftgl-create-texture-font filename)
   (wrap-ftgl-font
    (%ftgl-create-texture-font (string->pointer filename))))
@@ -85,9 +91,17 @@
                      (string->pointer text)
                      render-mode))
 
+(define (ftgl-get-font-descender font)
+  (%ftgl-get-font-descender (unwrap-ftgl-font font)))
+
+(define (ftgl-get-font-ascender font)
+  (%ftgl-get-font-ascender (unwrap-ftgl-font font)))
+
 (export ftgl-create-texture-font
         ftgl-set-font-face-size
-        ftgl-render-font)
+        ftgl-render-font
+        ftgl-get-font-descender
+        ftgl-get-font-ascender)
 
 ;;;
 ;;; SimpleLayout
-- 
cgit v1.2.3