X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=examples%2F02.Quake3Map.scm;h=5f26f2a6beb6f216dece757decd926ac19dbbcd9;hb=5f5b7536e4f044eb617925db8d4df9b02be3ba7d;hp=a3b897bf87506c874722d73dd2642c4dd6f4c090;hpb=954186a692ada723b904a9a28a7b9043deeb7552;p=guile-irrlicht.git

diff --git a/examples/02.Quake3Map.scm b/examples/02.Quake3Map.scm
index a3b897b..5f26f2a 100644
--- 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)
@@ -52,7 +52,7 @@
 (define device
   (create-device
    #:device-type driver
-   #:window-size '(640 480)))
+   #:window-size (make-dimension2d 640 480)))
 (when (not device)
   (exit #f))
 
@@ -65,7 +65,7 @@
 (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))