X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=src%2Fdevice.cpp;h=b9ce376dbe93419e42bad291038f785e47914d8e;hp=195ff5dcb13dbe301216f87fd27b67229346bb88;hb=f842432ad7cfd7f530188e2a4848aea3da03719e;hpb=564416a9178fd8cef21364c2d921af6c8166115d

diff --git a/src/device.cpp b/src/device.cpp
index 195ff5d..b9ce376 100644
--- a/src/device.cpp
+++ b/src/device.cpp
@@ -40,6 +40,8 @@ extern "C" {
   {
     init_device_type ();
     DEFINE_GSUBR ("irr_createDevice", 7, 0, 0, irr_createDevice);
+    DEFINE_GSUBR ("irr_IrrlichtDevice_getVideoDriver", 1, 0, 0,
+                  irr_IrrlichtDevice_getVideoDriver);
     DEFINE_GSUBR ("irr_IrrlichtDevice_setWindowCaption", 2, 0, 0,
                   irr_IrrlichtDevice_setWindowCaption);
     DEFINE_GSUBR ("get-timer", 1, 0, 0, irr_getTimer);
@@ -74,6 +76,14 @@ extern "C" {
     return scm_from_pointer ((void*)device, NULL);
   }
 
+  SCM
+  irr_IrrlichtDevice_getVideoDriver (SCM device)
+  {
+    video::IVideoDriver* driver =
+      ((IrrlichtDevice*)scm_to_pointer (device))->getVideoDriver ();
+    return scm_from_pointer ((void*)driver, NULL);
+  }
+
   SCM
   irr_IrrlichtDevice_setWindowCaption (SCM device,
                                        SCM text)