X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fscene.scm;h=cfb4da2e5509dab6b84260277cc660090f170441;hp=34a11eadd9ee8cc3d3560208b3e8c60cf9907405;hb=ace8386881644858f698721372167ba146987367;hpb=c666734625238d6e4405ad5e42def3203503a137

diff --git a/irrlicht/scene.scm b/irrlicht/scene.scm
index 34a11ea..cfb4da2 100644
--- a/irrlicht/scene.scm
+++ b/irrlicht/scene.scm
@@ -164,6 +164,18 @@
     (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-rotation-animator (scene-manager <scene-manager>) rotation-speed)
   (let ((createRotationAnimator (get-irrlicht-proc "createRotationAnimator" scene-manager)))
     (createRotationAnimator scene-manager rotation-speed)))
@@ -186,7 +198,8 @@
 
 (export <scene-manager> add-animated-mesh-scene-node! add-cube-scene-node! add-camera-scene-node!
         add-camera-scene-node-fps! add-custom-scene-node! add-octree-scene-node!
-        add-sphere-scene-node! create-rotation-animator draw-all get-root-scene-node get-mesh)
+        add-sphere-scene-node! create-fly-circle-animator create-rotation-animator draw-all
+        get-root-scene-node get-mesh)
 
 
 ;; ISceneNode