dimension2d as a foreign record type

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

diff --git a/examples/02.Quake3Map.scm b/examples/02.Quake3Map.scm
index a3b897bf87506c874722d73dd2642c4dd6f4c090..5f26f2a6beb6f216dece757decd926ac19dbbcd9 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)
@@ -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))