(dynamic-func "irr_video_endScene" cirr)
(list '*)))
+(define-public get-fps
+ (pointer->procedure
+ int
+ (dynamic-func "irr_video_getFPS" cirr)
+ (list '*)))
+
(define-public get-texture
(pointer->procedure
'*
(dynamic-func "irr_video_getTexture" cirr)
(list '* '*)))
+
+(define-public get-video-driver-name
+ (pointer->procedure
+ '*
+ (dynamic-func "irr_video_getName" cirr)
+ (list '*)))