X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fbindings%2Fscene.scm;h=752825bfc265c4f468b7ebf67ecaa251ae836cb5;hb=954186a692ada723b904a9a28a7b9043deeb7552;hp=2cf4568ae623c9f6708fb18936385401eb4a31f6;hpb=6d96d2506407a538ddb88fa97c9375b512571dda;p=guile-irrlicht.git

diff --git a/irrlicht/bindings/scene.scm b/irrlicht/bindings/scene.scm
index 2cf4568..752825b 100644
--- a/irrlicht/bindings/scene.scm
+++ b/irrlicht/bindings/scene.scm
@@ -60,6 +60,18 @@
    (dynamic-func "irr_scene_addCameraSceneNode" cirr)
    (list '* '* '* '* int int)))
 
+(define-public add-camera-scene-node-fps
+  (pointer->procedure
+   '*
+   (dynamic-func "irr_scene_addCameraSceneNodeFPS" cirr)
+   (list '* '* float float int '* int int float int int)))
+
+(define-public add-octree-scene-node-am
+  (pointer->procedure
+   '*
+   (dynamic-func "irr_scene_addOctreeSceneNodeAM" cirr)
+   (list '* '* '* int int int)))
+
 (define-public draw-all
   (pointer->procedure
    void
@@ -89,3 +101,9 @@
    void
    (dynamic-func "irr_scene_setMD2Animation" cirr)
    (list '* int)))
+
+(define-public set-position
+  (pointer->procedure
+   void
+   (dynamic-func "irr_scene_setPosition" cirr)
+   (list '* '*)))