X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fscene.scm;h=115d2e856a5d6477ef57435715b5516cacc0b8bd;hb=626e88180d4a966f12defc721c4a4411451ea916;hp=b815700b436b0aef5e80f0a831237514d259b04c;hpb=21f12bf4ba8c031b36784e1e0a479535f477cc59;p=guile-irrlicht.git

diff --git a/irrlicht/scene.scm b/irrlicht/scene.scm
index b815700..115d2e8 100644
--- a/irrlicht/scene.scm
+++ b/irrlicht/scene.scm
@@ -18,26 +18,45 @@
 ;;; <http://www.gnu.org/licenses/>.
 
 
-(define-module (irrlicht gui)
-  #:export (add-animated-mesh-scene-node
-            get-mesh))
+(define-module (irrlicht scene)
+  #:export (add-animated-mesh-scene-node!
+            add-camera-scene-node!
+            get-mesh
+            set-material-flag!
+            set-material-texture!
+            set-md2-animation!))
 
 (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))