X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=examples%2F03-custom-scene-node.scm;h=e84f36abb4286dd7616b39d17b22eacf2559aadd;hp=0476e729b149c02dfc5859439049b79e6d504dc7;hb=061e994acc2fe7806d3911a715993c442e56f7ef;hpb=df1088b80d2c90a390b0229ce5c6ffcc7665fda4

diff --git a/examples/03-custom-scene-node.scm b/examples/03-custom-scene-node.scm
index 0476e72..e84f36a 100644
--- a/examples/03-custom-scene-node.scm
+++ b/examples/03-custom-scene-node.scm
@@ -75,10 +75,10 @@
         (make-vertex3d '(-10 0 -10) '(0 0 1) '(255 0 255 0) '(0 0))))
 (define material (make-material #:wireframe #f #:lighting #f))
 
-(reset-box3d! 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)