X-Git-Url: https://git.jsancho.org/?p=guile-assimp.git;a=blobdiff_plain;f=src%2Flow-level%2Fcimport.scm;fp=src%2Flow-level%2Fcimport.scm;h=b0d71e7e252e4c7fe896df4aeb8206416f131c04;hp=9bc0c99afcb038b355869bf02617fc004d049797;hb=8a8592cd6be5281fecb5da7252e92944786e3df4;hpb=d53c6fdc3383148b2e73599fb955693aa6f597a5 diff --git a/src/low-level/cimport.scm b/src/low-level/cimport.scm index 9bc0c99..b0d71e7 100644 --- a/src/low-level/cimport.scm +++ b/src/low-level/cimport.scm @@ -19,6 +19,7 @@ #:use-module (assimp low-level) #:use-module (system foreign) #:export (aiImportFile + aiTransformVecByMatrix4 aiMultiplyMatrix4)) (define libassimp (dynamic-link "libassimp")) @@ -29,4 +30,5 @@ (define-foreign-function ((libassimp name) arg-type ...) -> return-type)))) (define-assimp-function (aiImportFile '* unsigned-int) -> '*) +(define-assimp-function (aiTransformVecByMatrix4 '* '*) -> void) (define-assimp-function (aiMultiplyMatrix4 '* '*) -> void)