-(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-foreign end-scene
+ int "irr_video_endScene" (list '*))
+
+(define-foreign get-fps
+ int "irr_video_getFPS" (list '*))