X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fscene.scm;h=264a4bd9883fce2d46d5a70257216ede6820736b;hp=8c622efec9c19512e6479a7f1651357bc2a3d5b0;hb=d8367430b147ccdb2505295a7d50f1f412b4e6e1;hpb=eaa186435f0c641c53841d8d15581525bd542249

diff --git a/irrlicht/scene.scm b/irrlicht/scene.scm
index 8c622ef..264a4bd 100644
--- a/irrlicht/scene.scm
+++ b/irrlicht/scene.scm
@@ -24,6 +24,7 @@
   #:use-module ((irrlicht bindings core) #:prefix ffi-core:)
   #:use-module ((irrlicht bindings scene) #:prefix ffi-scene:)
   #:use-module ((irrlicht bindings video) #:prefix ffi-video:)
+  #:use-module (irrlicht util)
   #:export (add-animated-mesh-scene-node
             add-camera-scene-node
             add-camera-scene-node-fps!
@@ -51,7 +52,7 @@
                (make-c-struct ffi-core:vector3df position)
                (make-c-struct ffi-core:vector3df rotation)
                (make-c-struct ffi-core:vector3df scale)
-               (if also-add-if-mesh-pointer-zero 1 0))))
+               (bool->integer also-add-if-mesh-pointer-zero))))
     (if (null-pointer? node) #f node)))
 
 (define* (add-camera-scene-node scene-manager
@@ -67,7 +68,7 @@
                  (make-c-struct ffi-core:vector3df position)
                  (make-c-struct ffi-core:vector3df lookat)
                  id
-                 (if make-active 1 0))))
+                 (bool->integer make-active))))
     (if (null-pointer? camera) #f camera)))
 
 (define* (add-camera-scene-node-fps! scene-manager
@@ -90,10 +91,10 @@
    id
    key-map-array
    key-map-size
-   (if no-vertical-movement 1 0)
+   (bool->integer no-vertical-movement)
    jump-speed
-   (if invert-mouse 1 0)
-   (if make-active 1 0)))
+   (bool->integer invert-mouse)
+   (bool->integer make-active)))
 
 (define* (add-octree-scene-node-am scene-manager mesh
                                    #:key
@@ -107,7 +108,7 @@
    parent
    id
    minimal-polys-per-node
-   (if also-add-if-mesh-pointer-zero 1 0)))
+   (bool->integer also-add-if-mesh-pointer-zero)))
 
 (define (get-mesh scene-manager filename)
   (let ((mesh (ffi-scene:get-mesh scene-manager (string->pointer filename))))
@@ -142,7 +143,7 @@
     (ffi-scene:set-material-flag-am
      node
      material-flag
-     (if newvalue 1 0))))
+     (bool->integer newvalue))))
 
 (define (set-material-texture-am! node texture-layer texture)
   (ffi-scene:set-material-texture-am node texture-layer texture))