create-fly-circle-animator

diff --git a/irrlicht.scm b/irrlicht.scm
index a6e3eb12324d2b1eb50cf276289e9a3f1e6d6e9e..964c91a17c3b50d9f0633365d88ef451ebd20f26 100644 (file)
--- a/irrlicht.scm
+++ b/irrlicht.scm
@@ -69,6 +69,7 @@
                add-static-text!
                begin-scene
                create-device
+               create-fly-circle-animator
                create-rotation-animator
                draw-vertex-primitive-list
                drop!

diff --git a/irrlicht/scene.scm b/irrlicht/scene.scm
index 34a11eadd9ee8cc3d3560208b3e8c60cf9907405..cfb4da2e5509dab6b84260277cc660090f170441 100644 (file)
--- 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