From 43b3e4fbfc4a80af937ba223dfa15ee8b6b8e736 Mon Sep 17 00:00:00 2001
From: Javier Sancho <jsf@jsancho.org>
Date: Sat, 23 May 2020 09:00:20 +0200
Subject: [PATCH] get-built-in-font

---
 irrlicht.scm     | 1 +
 irrlicht/gui.scm | 6 +++++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/irrlicht.scm b/irrlicht.scm
index 4cb3d8f..5b6481e 100644
--- a/irrlicht.scm
+++ b/irrlicht.scm
@@ -81,6 +81,7 @@
                drop!
                end-scene
                get-absolute-transformation
+               get-built-in-font
                get-cursor-control
                get-event-key
                get-event-key-pressed
diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index 6012037..5e2017b 100644
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -73,6 +73,10 @@
   ((get-irrlicht-proc "drawAll" gui-environment)
    gui-environment))
 
+(define-method (get-built-in-font (gui-environment <gui-environment>))
+  (let ((getBuiltInFont (get-irrlicht-proc "getBuiltInFont" gui-environment)))
+    (getBuiltInFont gui-environment)))
+
 (define-method (get-font (gui-environment <gui-environment>) filename)
   (let ((getFont (get-irrlicht-proc "getFont" gui-environment)))
     (getFont gui-environment filename)))
@@ -81,7 +85,7 @@
   (let ((getSkin (get-irrlicht-proc "getSkin" gui-environment)))
     (getSkin gui-environment)))
 
-(export <gui-environment> add-image! add-static-text! draw-all get-font get-skin)
+(export <gui-environment> add-image! add-static-text! draw-all get-built-in-font get-font get-skin)
 
 
 ;; IGUIStaticText
-- 
2.39.2