X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=src%2FIrrlicht.cpp;h=fc425792b1bd196f02f7de7958c70cab795cad47;hp=2d4fd5c35a2158ece8d7618ba7d1caa8c5e57f28;hb=6e3f5a53745ccdc3d03a5f1fa95899adbba562b3;hpb=8994b42fea213a741631efbe7fd9c09c0aab7100

diff --git a/src/Irrlicht.cpp b/src/Irrlicht.cpp
index 2d4fd5c..fc42579 100644
--- a/src/Irrlicht.cpp
+++ b/src/Irrlicht.cpp
@@ -23,6 +23,7 @@
 #include <libguile.h>
 #include "EDriverTypes.h"
 #include "Irrlicht.h"
+#include "dimension2d.h"
 
 extern "C" {
 
@@ -32,7 +33,7 @@ extern "C" {
   init_irrlicht (void)
   {
     init_irrlicht_device ();
-    scm_c_define_gsubr ("irr_createDevice", 7, 0, 0, (scm_t_subr)irr_createDevice);
+    scm_c_define_gsubr ("create-device", 7, 0, 0, (scm_t_subr)irr_createDevice);
   }
 
   void
@@ -58,7 +59,13 @@ extern "C" {
                     SCM vsync,
                     SCM receiver)
   {
-    irr::IrrlichtDevice* device = irr::createDevice (scm_to_driver_type (deviceType));
+    irr::IrrlichtDevice* device =
+      irr::createDevice (scm_to_driver_type (deviceType),
+                         scm_to_dimension2d_u32 (windowSize),
+                         scm_to_uint32 (bits),
+                         scm_to_bool (fullscreen),
+                         scm_to_bool (stencilbuffer),
+                         scm_to_bool (vsync));
     return scm_make_foreign_object_1 (irrlicht_device, device);
   }