+ lookat
+ id
+ make-active))))
+
+(define-method (add-camera-scene-node-fps! (scene-manager <scene-manager>) . rest)
+ (let-keywords rest #f
+ ((parent (make <scene-node>))
+ (rotate-speed 100)
+ (move-speed 0.5)
+ (id -1)
+ (key-map-array (make <key-map>))
+ (key-map-size 0)
+ (no-vertical-movement #f)
+ (jump-speed 0)
+ (invert-mouse #f)
+ (make-active #t))
+ (let ((addCameraSceneNodeFPS (get-irrlicht-proc "addCameraSceneNodeFPS"
+ scene-manager parent)))
+ (make <camera-scene-node>
+ #:irr-pointer
+ (addCameraSceneNodeFPS scene-manager #:parent parent #:rotate-speed rotate-speed
+ #:move-speed move-speed #:id id #:key-map-array key-map-array
+ #:key-map-size key-map-size
+ #:no-vertical-movement no-vertical-movement
+ #:jump-speed jump-speed #:invert-mouse invert-mouse
+ #:make-active make-active)))))
+
+(define-method (add-custom-scene-node! (scene-manager <scene-manager>) proc-render
+ proc-get-bounding-box proc-get-material-count
+ proc-get-material . rest)
+ (let-keywords rest #f
+ ((parent (make <scene-node>))
+ (id -1)
+ (position '(0 0 0))
+ (rotation '(0 0 0))
+ (scale '(1 1 1)))
+ (let ((addCustomSceneNode (get-irrlicht-proc "addCustomSceneNode" scene-manager parent)))
+ (make <scene-node>
+ #:irr-pointer
+ (addCustomSceneNode scene-manager proc-render proc-get-bounding-box proc-get-material-count
+ proc-get-material parent id position rotation scale)))))
+
+(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 (create-rotation-animator (scene-manager <scene-manager>) rotation-speed)
+ (let ((createRotationAnimator (get-irrlicht-proc "createRotationAnimator" scene-manager)))
+ (make <scene-node-animator>
+ #:irr-pointer
+ (createRotationAnimator scene-manager rotation-speed))))
+
+(define-method (draw-all (scene-manager <scene-manager>))
+ ((get-irrlicht-proc "drawAll" scene-manager)
+ scene-manager))