From aedbf810996ce4bd355541e462e620e6873d45c8 Mon Sep 17 00:00:00 2001 From: Javier Sancho Date: Fri, 22 May 2020 08:29:27 +0200 Subject: [PATCH] create-fly-straight-animator --- irrlicht.scm | 1 + irrlicht/scene.scm | 13 +++++++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/irrlicht.scm b/irrlicht.scm index 964c91a..7947093 100644 --- a/irrlicht.scm +++ b/irrlicht.scm @@ -70,6 +70,7 @@ begin-scene create-device create-fly-circle-animator + create-fly-straight-animator create-rotation-animator draw-vertex-primitive-list drop! diff --git a/irrlicht/scene.scm b/irrlicht/scene.scm index cfb4da2..3cdc689 100644 --- a/irrlicht/scene.scm +++ b/irrlicht/scene.scm @@ -176,6 +176,15 @@ (createFlyCircleAnimator scene-manager center radius speed direction start-position radius-ellipsoid)))) +(define-method (create-fly-straight-animator (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 ) rotation-speed) (let ((createRotationAnimator (get-irrlicht-proc "createRotationAnimator" scene-manager))) (createRotationAnimator scene-manager rotation-speed))) @@ -198,8 +207,8 @@ (export 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-fly-circle-animator create-rotation-animator draw-all - get-root-scene-node get-mesh) + add-sphere-scene-node! create-fly-circle-animator create-fly-straight-animator + create-rotation-animator draw-all get-root-scene-node get-mesh) ;; ISceneNode -- 2.39.2