From: Javier Sancho Date: Mon, 11 May 2020 11:54:06 +0000 (+0200) Subject: set-md2-animation! X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=87e6d9b96167c5db7ef3c824b47c0d575b0fc4d2;p=guile-irrlicht.git set-md2-animation! --- diff --git a/irrlicht.scm b/irrlicht.scm index c9d8867..6c0fb98 100644 --- a/irrlicht.scm +++ b/irrlicht.scm @@ -32,4 +32,5 @@ get-video-driver is-empty? set-material-flag! + set-md2-animation! set-window-caption!)) diff --git a/irrlicht/scene.scm b/irrlicht/scene.scm index ee47d4c..9ecb782 100644 --- a/irrlicht/scene.scm +++ b/irrlicht/scene.scm @@ -92,4 +92,9 @@ (define-class () (irr-class #:init-value "IAnimatedMeshSceneNode" #:getter irr-class)) -(export ) +(define-method (set-md2-animation! (node ) anim) + ((get-irrlicht-proc "setMD2Animation" node) + (irr-pointer node) + anim)) + +(export set-md2-animation!)