X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Flow-level%2Fcimport.scm;h=023dc7a44f42456c97e1d1cf5fa795b8365bc0bd;hb=fe037abb54b99784fa30c9f8ffa1c594482b97bf;hp=9bc0c99afcb038b355869bf02617fc004d049797;hpb=3232da94d35e82b13b04e703fe68c5f1f3232838;p=guile-assimp.git

diff --git a/src/low-level/cimport.scm b/src/low-level/cimport.scm
index 9bc0c99..023dc7a 100644
--- a/src/low-level/cimport.scm
+++ b/src/low-level/cimport.scm
@@ -19,14 +19,19 @@
   #:use-module (assimp low-level)
   #:use-module (system foreign)
   #:export (aiImportFile
-	    aiMultiplyMatrix4))
-
-(define libassimp (dynamic-link "libassimp"))
-
-(define-syntax define-assimp-function
-  (syntax-rules (->)
-    ((_ (name arg-type ...) -> return-type)
-     (define-foreign-function ((libassimp name) arg-type ...) -> return-type))))
+	    aiTransformVecByMatrix4
+	    aiMultiplyMatrix3
+	    aiMultiplyMatrix4
+	    aiIdentityMatrix3
+	    aiIdentityMatrix4
+	    aiTransposeMatrix3
+	    aiTransposeMatrix4))
 
 (define-assimp-function (aiImportFile '* unsigned-int) -> '*)
+(define-assimp-function (aiTransformVecByMatrix4 '* '*) -> void)
+(define-assimp-function (aiMultiplyMatrix3 '* '*) -> void)
 (define-assimp-function (aiMultiplyMatrix4 '* '*) -> void)
+(define-assimp-function (aiIdentityMatrix3 '*) -> void)
+(define-assimp-function (aiIdentityMatrix4 '*) -> void)
+(define-assimp-function (aiTransposeMatrix3 '*) -> void)
+(define-assimp-function (aiTransposeMatrix4 '*) -> void)