add-camera-scene-node!

[guile-irrlicht.git] / irrlicht / scene.scm

diff --git a/irrlicht/scene.scm b/irrlicht/scene.scm
index f3191a0b808844dd1c112d86e26352b0a79a9eda..115d2e856a5d6477ef57435715b5516cacc0b8bd 100644 (file)
--- a/irrlicht/scene.scm
+++ b/irrlicht/scene.scm
@@ -19,7 +19,8 @@
 
 
 (define-module (irrlicht scene)
-  #:export (add-animated-mesh-scene-node
+  #:export (add-animated-mesh-scene-node!
+            add-camera-scene-node!
             get-mesh
             set-material-flag!
             set-material-texture!
@@ -27,20 +28,35 @@
 
 (load-extension "libguile-irrlicht" "init_guile_irrlicht")
 
-(define irr-add-animated-mesh-scene-node add-animated-mesh-scene-node)
-(define* (add-animated-mesh-scene-node scene-manager mesh
-                                       #:key
-                                       (parent #f)
-                                       (id -1)
-                                       (position '(0 0 0))
-                                       (rotation '(0 0 0))
-                                       (scale '(1 1 1))
-                                       (also-add-if-mesh-pointer-zero #f))
-  (irr-add-animated-mesh-scene-node scene-manager
-                                    mesh
-                                    parent
-                                    id
-                                    position
-                                    rotation
-                                    scale
-                                    also-add-if-mesh-pointer-zero))
+(define irr-add-animated-mesh-scene-node! add-animated-mesh-scene-node!)
+(define* (add-animated-mesh-scene-node! scene-manager mesh
+                                        #:key
+                                        (parent #f)
+                                        (id -1)
+                                        (position '(0 0 0))
+                                        (rotation '(0 0 0))
+                                        (scale '(1 1 1))
+                                        (also-add-if-mesh-pointer-zero #f))
+  (irr-add-animated-mesh-scene-node! scene-manager
+                                     mesh
+                                     parent
+                                     id
+                                     position
+                                     rotation
+                                     scale
+                                     also-add-if-mesh-pointer-zero))
+
+(define irr-add-camera-scene-node! add-camera-scene-node!)
+(define* (add-camera-scene-node! scene-manager
+                                 #:key
+                                 (parent #f)
+                                 (position '(0 0 0))
+                                 (lookat '(0 0 100))
+                                 (id -1)
+                                 (make-active #t))
+  (irr-add-camera-scene-node! scene-manager
+                              parent
+                              position
+                              lookat
+                              id
+                              make-active))