X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=examples%2F02.Quake3Map.scm;h=a79b8492c478c7358cb1247d517c97806550e5c8;hb=fd10e89f595a8ae45d4471a7d77426d0a1b77502;hp=1407f29159abc5ba97956c2b2b4958019f28e5a2;hpb=f215da151462c3d0fe9bacc535083529ba43e716;p=guile-irrlicht.git

diff --git a/examples/02.Quake3Map.scm b/examples/02.Quake3Map.scm
index 1407f29..a79b849 100644
--- a/examples/02.Quake3Map.scm
+++ b/examples/02.Quake3Map.scm
@@ -65,21 +65,21 @@
 (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))
 
 ;; FPS camera
 (add-camera-scene-node-fps! scene-manager)
-(set-visible-cursor! (get-cursor-control device) #f)
+(set-visible! (get-cursor-control device) #f)
 
 ;; loop
 (define last-fps -1)
-(while (device-run? device)
+(while (run device)
   (cond ((is-window-active? device)
          (begin-scene driver #:color '(255 200 200 200))
-         (scene-draw-all scene-manager)
+         (draw-all scene-manager)
          (end-scene driver)
 
          (let ((fps (get-fps driver)))
@@ -92,5 +92,5 @@
          (yield device))))
 
 ;; delete device
-(device-drop! device)
+(drop! device)
 (exit #t)