X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;ds=sidebyside;f=irrlicht%2Fbindings%2Fvideo.scm;h=20445520e7b4b0162773235d975d611e92b566ee;hb=954186a692ada723b904a9a28a7b9043deeb7552;hp=47b05d1c24cf046d64b232708ea6b792835ef42c;hpb=6d96d2506407a538ddb88fa97c9375b512571dda;p=guile-irrlicht.git

diff --git a/irrlicht/bindings/video.scm b/irrlicht/bindings/video.scm
index 47b05d1..2044552 100644
--- a/irrlicht/bindings/video.scm
+++ b/irrlicht/bindings/video.scm
@@ -72,8 +72,20 @@
    (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 '*)))