X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=examples%2F03.CustomSceneNode.scm;h=1c0d65661b5d69a40b10b67fa3ba835dffab822d;hb=0e0782653487ad1691d7879ff433bc5ffd7c3791;hp=46e35fd1cd44d57d636cd4937d2097d41c52620d;hpb=6260608f2ca73178ffd580af1c26ee0c424aa047;p=guile-irrlicht.git

diff --git a/examples/03.CustomSceneNode.scm b/examples/03.CustomSceneNode.scm
index 46e35fd..1c0d656 100644
--- a/examples/03.CustomSceneNode.scm
+++ b/examples/03.CustomSceneNode.scm
@@ -69,10 +69,10 @@
 ;; create our custom scene node
 (define box (make-aabbox3df))
 (define vertices
-  (list (make-s3dvertex '(0 0 10) '(1 1 0) '(255 0 255 255) '(0 1))
-        (make-s3dvertex '(10 0 -10) '(1 0 0) '(255 255 0 255) '(1 1))
-        (make-s3dvertex '(0 20 0) '(0 1 1) '(255 255 255 0) '(1 0))
-        (make-s3dvertex '(-10 0 -10) '(0 0 1) '(255 0 255 0) '(0 0))))
+  (list (make-vertex3d '(0 0 10) '(1 1 0) '(255 0 255 255) '(0 1))
+        (make-vertex3d '(10 0 -10) '(1 0 0) '(255 255 0 255) '(1 1))
+        (make-vertex3d '(0 20 0) '(0 1 1) '(255 255 255 0) '(1 0))
+        (make-vertex3d '(-10 0 -10) '(0 0 1) '(255 0 255 0) '(0 0))))
 (define material (make-material #:wireframe #f #:lighting #f))
 
 (aabbox3d-reset! box (vertex-position (car vertices)))