From e5e7eb38adfd41fb25e8f808f0501ffaac2812b8 Mon Sep 17 00:00:00 2001 From: Javier Sancho Date: Thu, 3 Oct 2019 13:35:22 +0200 Subject: [PATCH] get-scene-manager --- examples/hello.scm | 1 + irrlicht.scm | 6 +++++- irrlicht/bindings.scm | 6 ++++++ 3 files changed, 12 insertions(+), 1 deletion(-) diff --git a/examples/hello.scm b/examples/hello.scm index 116c408..4f9026e 100644 --- a/examples/hello.scm +++ b/examples/hello.scm @@ -22,3 +22,4 @@ (define device (create-device 'opengl)) (define driver (get-video-driver device)) +(define scene-manager (get-scene-manager device)) diff --git a/irrlicht.scm b/irrlicht.scm index 6da6ce9..7cbb886 100644 --- a/irrlicht.scm +++ b/irrlicht.scm @@ -25,7 +25,8 @@ #:use-module ((irrlicht bindings core) #:prefix ffi-core:) #:use-module ((irrlicht bindings video) #:prefix ffi-video:) #:export (create-device - get-video-driver)) + get-video-driver + get-scene-manager)) (define* (create-device #:optional (device-type 'software) @@ -50,3 +51,6 @@ (define (get-video-driver device) (ffi:get-video-driver device)) + +(define (get-scene-manager device) + (ffi:get-scene-manager device)) diff --git a/irrlicht/bindings.scm b/irrlicht/bindings.scm index 102494e..eab8e33 100644 --- a/irrlicht/bindings.scm +++ b/irrlicht/bindings.scm @@ -34,3 +34,9 @@ '* (dynamic-func "irr_IrrlichtDevice_getVideoDriver" cirr) (list '*))) + +(define-public get-scene-manager + (pointer->procedure + '* + (dynamic-func "irr_IrrlichtDevice_getSceneManager" cirr) + (list '*))) -- 2.39.5