- (make <mesh-scene-node>
- #:irr-pointer
- (addOctreeSceneNode scene-manager mesh parent id minimal-polys-per-node
- also-add-if-mesh-pointer-zero)))))
+ (addOctreeSceneNode scene-manager mesh parent id minimal-polys-per-node
+ also-add-if-mesh-pointer-zero))))
+
+(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))))
+
+(define-method (create-fly-circle-animator (scene-manager <scene-manager>) . rest)
+ (let-keywords rest #f
+ ((center '(0 0 0))
+ (radius 100)
+ (speed 0.001)
+ (direction '(0 1 0))
+ (start-position 0)
+ (radius-ellipsoid 0))
+ (let ((createFlyCircleAnimator (get-irrlicht-proc "createFlyCircleAnimator" scene-manager)))
+ (createFlyCircleAnimator scene-manager center radius speed direction start-position
+ radius-ellipsoid))))
+
+(define-method (create-fly-straight-animator (scene-manager <scene-manager>)
+ start-point end-point time-for-way . rest)
+ (let-keywords rest #f
+ ((loop #f)
+ (pingpong #f))
+ (let ((createFlyStraightAnimator (get-irrlicht-proc "createFlyStraightAnimator" scene-manager)))
+ (createFlyStraightAnimator scene-manager start-point end-point time-for-way
+ loop pingpong))))
+
+(define-method (create-rotation-animator (scene-manager <scene-manager>) rotation-speed)
+ (let ((createRotationAnimator (get-irrlicht-proc "createRotationAnimator" scene-manager)))
+ (createRotationAnimator scene-manager rotation-speed)))