X-Git-Url: https://git.jsancho.org/?p=guile-assimp.git;a=blobdiff_plain;f=src%2Fassimp.scm;fp=src%2Fassimp.scm;h=917a6853732dece010142646e1294684b19cca5f;hp=9954e8212bcb47cab6f070bc22e4f80654e091bb;hb=8a8592cd6be5281fecb5da7252e92944786e3df4;hpb=d53c6fdc3383148b2e73599fb955693aa6f597a5

diff --git a/src/assimp.scm b/src/assimp.scm
index 9954e82..917a685 100644
--- 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)))