add-octree-scene-node!

[guile-irrlicht.git] / examples / 02.Quake3Map.scm

diff --git a/examples/02.Quake3Map.scm b/examples/02.Quake3Map.scm
index a3b897bf87506c874722d73dd2642c4dd6f4c090..47c81254b679a84f2e213aa9327a9d8006f7c49d 100644 (file)
--- a/examples/02.Quake3Map.scm
+++ b/examples/02.Quake3Map.scm
@@ -18,8 +18,8 @@
 ;;; <http://www.gnu.org/licenses/>.
 
 
-;;; Irrlicht 01.HelloWorld example
-;;; http://irrlicht.sourceforge.net/docu/example001.html
+;;; Irrlicht 02.Quake3Map example
+;;; http://irrlicht.sourceforge.net/docu/example002.html
 
 
 (use-modules (irrlicht)
@@ -59,13 +59,13 @@
 ;; instances for doing things
 (define driver (get-video-driver device))
 (define scene-manager (get-scene-manager device))
-(define driver-name (get-video-driver-name driver))
+(define driver-name (get-name driver))
 
 ;; load Quake3 map
 (add-file-archive! (get-file-system device) "media/map-20kdm2.pk3")
 
 (define mesh (get-mesh scene-manager "20kdm2.bsp"))
-(define node (add-octree-scene-node-am
+(define node (add-octree-scene-node!
               scene-manager mesh
               #:minimal-polys-per-node 1024))
 (set-position! node '(-1300 -144 -1249))