X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=examples%2F03-custom-scene-node.scm;h=198de3ded6d8a94cae48617681b63c242aff3e34;hb=3b7aef4a6faa68a67d3c8f1f355a169a42c8651e;hp=21e5be80edf07a0f66c55774e57c151de2d2b482;hpb=9137f8fdb1e89ffdec1fb498084f71e92e7f02a9;p=guile-irrlicht.git

diff --git a/examples/03-custom-scene-node.scm b/examples/03-custom-scene-node.scm
index 21e5be8..198de3d 100644
--- a/examples/03-custom-scene-node.scm
+++ b/examples/03-custom-scene-node.scm
@@ -53,8 +53,6 @@
   (create-device
    #:device-type device-type
    #:window-size '(640 480)))
-(when (not device)
-  (exit #f))
 
 ;; create engine and camera
 (set-window-caption! device "Custom Scene Node - Irrlicht Engine Demo")
@@ -75,10 +73,10 @@
         (make-vertex3d '(-10 0 -10) '(0 0 1) '(255 0 255 0) '(0 0))))
 (define material (make-material #:wireframe #f #:lighting #f))
 
-(box3d-reset! box (vertex3d-position (car vertices)))
+(reset-box3d! box (get-position (car vertices)))
 (for-each
  (lambda (vertex)
-   (box3d-add-internal-point! box (vertex3d-position vertex)))
+   (add-internal-point! box (get-position vertex)))
  (cdr vertices))
 
 (define (custom-render)