+(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)
+ (irr-pointer scene-manager)
+ (irr-pointer parent)
+ position
+ lookat
+ id
+ make-active))))
+