(define-module (irrlicht bindings video)
- #:use-module (system foreign))
-
-(define cirr (dynamic-link "libCIrrlicht"))
+ #:use-module (system foreign)
+ #:use-module (irrlicht util))
;; E_DRIVER_TYPE enum
(define-public EDT_NULL 0)
(list uint32 uint32 uint32 uint32))
;; Driver functions
-(define-public begin-scene
- (pointer->procedure
- int
- (dynamic-func "irr_video_beginScene" cirr)
- (list '* int int '* '* '*)))
+(define-foreign begin-scene
+ int "irr_video_beginScene" (list '* int int '* '* '*))
-(define-public end-scene
- (pointer->procedure
- int
- (dynamic-func "irr_video_endScene" cirr)
- (list '*)))
+(define-foreign end-scene
+ int "irr_video_endScene" (list '*))
-(define-public get-fps
- (pointer->procedure
- int
- (dynamic-func "irr_video_getFPS" cirr)
- (list '*)))
+(define-foreign get-fps
+ int "irr_video_getFPS" (list '*))
-(define-public get-texture
- (pointer->procedure
- '*
- (dynamic-func "irr_video_getTexture" cirr)
- (list '* '*)))
+(define-foreign get-texture
+ '* "irr_video_getTexture" (list '* '*))
-(define-public get-video-driver-name
- (pointer->procedure
- '*
- (dynamic-func "irr_video_getName" cirr)
- (list '*)))
+(define-foreign get-video-driver-name
+ '* "irr_video_getName" (list '*))