;; 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)))