add-octree-scene-node!

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

diff --git a/examples/02.Quake3Map.scm b/examples/02.Quake3Map.scm
index 5f26f2a6beb6f216dece757decd926ac19dbbcd9..47c81254b679a84f2e213aa9327a9d8006f7c49d 100644 (file)
--- a/examples/02.Quake3Map.scm
+++ b/examples/02.Quake3Map.scm
@@ -52,20 +52,20 @@
 (define device
   (create-device
    #:device-type driver
-   #:window-size (make-dimension2d 640 480)))
+   #:window-size '(640 480)))
 (when (not device)
   (exit #f))
 
 ;; 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
+(define node (add-octree-scene-node!
               scene-manager mesh
               #:minimal-polys-per-node 1024))
 (set-position! node '(-1300 -144 -1249))