+(define-method (add-cube-scene-node! (scene-manager <scene-manager>) . rest)
+ (let-keywords rest #f
+ ((size 10)
+ (parent (make <scene-node>))
+ (id -1)
+ (position '(0 0 0))
+ (rotation '(0 0 0))
+ (scale '(1 1 1)))
+ (let ((addCubeSceneNode (get-irrlicht-proc "addCubeSceneNode" scene-manager parent)))
+ (addCubeSceneNode scene-manager size parent id position rotation scale))))
+