(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")
(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)