'*
(dynamic-func "irr_IrrlichtDevice_getVideoDriver" cirr)
(list '*)))
+
+(define-public get-scene-manager
+ (pointer->procedure
+ '*
+ (dynamic-func "irr_IrrlichtDevice_getSceneManager" cirr)
+ (list '*)))
+
+(define-public set-window-caption
+ (pointer->procedure
+ void
+ (dynamic-func "irr_IrrlichtDevice_setWindowCaption" cirr)
+ (list '* '*)))
+
+(define-public run
+ (pointer->procedure
+ int
+ (dynamic-func "irr_IrrlichtDevice_run" cirr)
+ (list '*)))
+
+(define-public drop
+ (pointer->procedure
+ int
+ (dynamic-func "irr_IrrlichtDevice_drop" cirr)
+ (list '*)))