X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=examples%2F03.CustomSceneNode.scm;h=ee1c67e05791d87bba1ae33bc0a2c60f62e0f0a6;hb=5e5b0caed972e0b225199551aff09c399edb8d3c;hp=11869fbfcae554f6aebf2c20625b17d4af312157;hpb=37217d692d4ead81cfed829395a9a7a5caf9325c;p=guile-irrlicht.git

diff --git a/examples/03.CustomSceneNode.scm b/examples/03.CustomSceneNode.scm
index 11869fb..ee1c67e 100644
--- a/examples/03.CustomSceneNode.scm
+++ b/examples/03.CustomSceneNode.scm
@@ -78,7 +78,7 @@
 (box3d-reset! box (vertex3d-position (car vertices)))
 (for-each
  (lambda (vertex)
-   (aabbox3d-add-internal-point! box (vertex3d-position vertex)))
+   (box3d-add-internal-point! box (vertex3d-position vertex)))
  (cdr vertices))
 
 (define (custom-render)
@@ -109,9 +109,9 @@
 
 ;; 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))
@@ -124,5 +124,5 @@
     (set! frames 0)))
 
 ;; delete device
-(device-drop! device)
+(drop! device)
 (exit #t)