New foreign function ai-transform-vec-by-matrix4

[guile-assimp.git] / src / assimp.scm

diff --git a/src/assimp.scm b/src/assimp.scm
index 9954e8212bcb47cab6f070bc22e4f80654e091bb..917a6853732dece010142646e1294684b19cca5f 100644 (file)
--- a/src/assimp.scm
+++ b/src/assimp.scm
@@ -281,6 +281,12 @@
    (aiImportFile (string->pointer filename)
                 flags)))
 
+(define-public (ai-transform-vec-by-matrix4 vec mat)
+  (let ((cvec (parse-aiVector3D (map cdr (ai-vector3d-contents vec)) #:reverse #t))
+       (cmat (parse-aiMatrix4x4 (map cdr (ai-matrix4x4-contents mat)) #:reverse #t)))
+    (aiTransformVecByMatrix4 cvec cmat)
+    (wrap-ai-vector3d cvec)))
+
 (define-public (ai-multiply-matrix4 m1 m2)
   (let ((cm1 (parse-aiMatrix4x4 (map cdr (ai-matrix4x4-contents m1)) #:reverse #t))
        (cm2 (parse-aiMatrix4x4 (map cdr (ai-matrix4x4-contents m2)) #:reverse #t)))