X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=examples%2F03.CustomSceneNode.scm;h=21e5be80edf07a0f66c55774e57c151de2d2b482;hb=f0d999bd6865a03c42a2d7378fd60c7a469201f2;hp=f5c9161e373ef047ec760c643030c48992ec3812;hpb=445b38f04b47d1d664afebc4304385ec8fa7a998;p=guile-irrlicht.git

diff --git a/examples/03.CustomSceneNode.scm b/examples/03.CustomSceneNode.scm
index f5c9161..21e5be8 100644
--- a/examples/03.CustomSceneNode.scm
+++ b/examples/03.CustomSceneNode.scm
@@ -109,20 +109,20 @@
 
 ;; loop
 (define frames 0)
-(while (device-run? device)
+(while (run device)
   (begin-scene driver #:color '(0 100 100 100))
-  (scene-draw-all scene-manager)
+  (draw-all scene-manager)
   (end-scene driver)
 
   (set! frames (+ frames 1))
   (when (= frames 100)
     (let ((fps (get-fps driver))
-          (driver-name (get-video-driver-name driver)))
+          (driver-name (get-name driver)))
       (let ((caption
              (format #f "Irrlicht Engine [~a] FPS:~a" driver-name fps)))
         (set-window-caption! device caption)))
     (set! frames 0)))
 
 ;; delete device
-(device-drop! device)
+(drop! device)
 (exit #t)