+(define-method (add-sphere-scene-node! (scene-manager <scene-manager>) . rest)
+ (let-keywords rest #f
+ ((radius 5)
+ (poly-count 16)
+ (parent (make <scene-node>))
+ (id -1)
+ (position '(0 0 0))
+ (rotation '(0 0 0))
+ (scale '(1 1 1)))
+ (let ((addSphereSceneNode (get-irrlicht-proc "addSphereSceneNode" scene-manager parent)))
+ (addSphereSceneNode scene-manager radius poly-count parent id position rotation scale))))
+