X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=examples%2F02.Quake3Map.scm;h=208740127c5ba01c2d7ab41352e35911bf8499b6;hb=a1fe598c49e7222ec5a01ad62b49026825f595d9;hp=47c81254b679a84f2e213aa9327a9d8006f7c49d;hpb=9eb3d3607d4468b525df34096657fd04f77724e7;p=guile-irrlicht.git

diff --git a/examples/02.Quake3Map.scm b/examples/02.Quake3Map.scm
index 47c8125..2087401 100644
--- a/examples/02.Quake3Map.scm
+++ b/examples/02.Quake3Map.scm
@@ -72,14 +72,14 @@
 
 ;; 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)))
@@ -89,8 +89,8 @@
                (set-window-caption! device caption))
              (set! last-fps fps))))
         (else
-         (yield device))))
+         ((@ (irrlicht) yield) device))))
 
 ;; delete device
-(device-drop! device)
+(drop! device)
 (exit #t)