+(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))))
+