X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fbindings%2Fvideo.scm;fp=irrlicht%2Fbindings%2Fvideo.scm;h=994543d811836e6bf545457cf894f4398d77fc3f;hb=4f9f0b90027aa3a254de58aea48a649727a05cda;hp=20445520e7b4b0162773235d975d611e92b566ee;hpb=d8367430b147ccdb2505295a7d50f1f412b4e6e1;p=guile-irrlicht.git

diff --git a/irrlicht/bindings/video.scm b/irrlicht/bindings/video.scm
index 2044552..994543d 100644
--- a/irrlicht/bindings/video.scm
+++ b/irrlicht/bindings/video.scm
@@ -19,9 +19,8 @@
 
 
 (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)
@@ -60,32 +59,17 @@
   (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 '*))