(define-module (irrlicht bindings gui)
- #:use-module (system foreign))
+ #:use-module (system foreign)
+ #:use-module (irrlicht util foreign))
-(define cirr (dynamic-link "libCIrrlicht"))
+(define-foreign add-static-text
+ '* "irr_gui_addStaticText" (list '* '* '* int int '* int int))
-(define-public add-static-text
- (pointer->procedure
- '*
- (dynamic-func "irr_gui_IGUIEnvironment_addStaticText" cirr)
- (list '* '* '* int int '* int int)))
+(define-foreign draw-all
+ void "irr_gui_drawAll" (list '*))
-(define-public draw-all
- (pointer->procedure
- void
- (dynamic-func "irr_gui_IGUIEnvironment_drawAll" cirr)
- (list '*)))
+(define-foreign set-visible-cursor
+ void "irr_gui_setVisibleCursor" (list '* int))