From 0cf4e680bb5d72a58df86b989a3b10c1c0ec4d23 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 12 May 2020 14:39:20 -0400
Subject: ttf: Add TTF_GlyphMetrics binding.

Thanks to Gerry Agbobada for requesting this and sending an initial
patch.
---
 sdl2/bindings/ttf.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'sdl2/bindings/ttf.scm')

diff --git a/sdl2/bindings/ttf.scm b/sdl2/bindings/ttf.scm
index 9808fd4..fb3b717 100644
--- a/sdl2/bindings/ttf.scm
+++ b/sdl2/bindings/ttf.scm
@@ -57,6 +57,9 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
 (define-foreign ttf-font-height
   int "TTF_FontHeight" '(*))
 
+(define-foreign ttf-glyph-metrics
+  int "TTF_GlyphMetrics" (list '* uint16 '* '* '* '* '*))
+
 (define-foreign ttf-render-text-solid
   '* "TTF_RenderText_Solid" (list '* '* sdl-color))
 
-- 
cgit v1.2.3