+(define-method (add-animated-mesh-scene-node! (scene-manager <scene-manager>) mesh . rest)
+ (let-keywords rest #f
+ ((parent (make <scene-node>))
+ (id -1)
+ (position '(0 0 0))
+ (rotation '(0 0 0))
+ (scale '(1 1 1))
+ (also-add-if-mesh-pointer-zero #f))
+ (make <animated-mesh-scene-node>
+ #:irr-pointer
+ ((get-irrlicht-proc "addAnimatedMeshSceneNode" scene-manager parent)
+ (irr-pointer scene-manager)
+ (irr-pointer mesh)
+ (irr-pointer parent)
+ id
+ position
+ rotation
+ scale
+ also-add-if-mesh-pointer-zero))))
+