+(define-method (add-camera-scene-node! (scene-manager <scene-manager>) . rest)
+ (let-keywords rest #f
+ ((parent (make <scene-node>))
+ (position '(0 0 0))
+ (lookat '(0 0 100))
+ (id -1)
+ (make-active #t))
+ (make <camera-scene-node>
+ #:irr-pointer
+ ((get-irrlicht-proc "addCameraSceneNode" scene-manager parent)
+ scene-manager
+ parent
+ position
+ lookat
+ id
+ make-active))))
+
+(define-method (add-octree-scene-node! (scene-manager <scene-manager>)
+ (mesh <animated-mesh>)
+ . rest)
+ (let-keywords rest #f
+ ((parent (make <scene-node>))
+ (id -1)
+ (minimal-polys-per-node 512)
+ (also-add-if-mesh-pointer-zero #f))
+ (let ((addOctreeSceneNode (get-irrlicht-proc "addOctreeSceneNode" scene-manager parent mesh)))
+ (make <mesh-scene-node>
+ #:irr-pointer
+ (addOctreeSceneNode scene-manager mesh parent id minimal-polys-per-node
+ also-add-if-mesh-pointer-zero)))))
+
+(define-method (add-octree-scene-node! (scene-manager <scene-manager>)
+ (mesh <mesh>)
+ . rest)
+ (let-keywords rest #f
+ ((parent (make <scene-node>))
+ (id -1)
+ (minimal-polys-per-node 256)
+ (also-add-if-mesh-pointer-zero #f))
+ (let ((addOctreeSceneNode (get-irrlicht-proc "addOctreeSceneNode" scene-manager parent mesh)))
+ (make <mesh-scene-node>
+ #:irr-pointer
+ (addOctreeSceneNode scene-manager mesh parent id minimal-polys-per-node
+ also-add-if-mesh-pointer-zero)))))
+
+(define-method (draw-all (scene-manager <scene-manager>))
+ ((get-irrlicht-proc "drawAll" scene-manager)
+ scene-manager))
+