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

diff --git a/examples/03.CustomSceneNode.scm b/examples/03.CustomSceneNode.scm
index 1c0d656..21e5be8 100644
--- a/examples/03.CustomSceneNode.scm
+++ b/examples/03.CustomSceneNode.scm
@@ -67,7 +67,7 @@
                         #:lookat '(0 0 0))
 
 ;; create our custom scene node
-(define box (make-aabbox3df))
+(define box (make-box3d))
 (define vertices
   (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))
@@ -75,17 +75,17 @@
         (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)))
-(for-each (lambda (vertex)
-            (aabbox3d-add-internal-point! box (vertex-position vertex)))
-          (cdr vertices))
+(box3d-reset! box (vertex3d-position (car vertices)))
+(for-each
+ (lambda (vertex)
+   (box3d-add-internal-point! box (vertex3d-position vertex)))
+ (cdr vertices))
 
 (define (custom-render)
   (let ((indices '((0 2 3) (2 1 3) (1 0 3) (2 0 1))))
-    ;;(set-material! driver material)
-    ;;(set-transform! driver 'world (get-absolute-transformation my-node))
-    ;;(draw-vertex-primitive-list driver vertices indices)))
-    #f))
+    (set-material! driver material)
+    (set-transform! driver 'world (get-absolute-transformation my-node))
+    (draw-vertex-primitive-list driver vertices indices)))
 
 (define (custom-get-bounding-box)
   box)
@@ -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)