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