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=023dc7a44f42456c97e1d1cf5fa795b8365bc0bd;hp=b0d71e7e252e4c7fe896df4aeb8206416f131c04;hb=fe037abb54b99784fa30c9f8ffa1c594482b97bf;hpb=708fbd4d04091af33626837f4a5141d20748762d

diff --git a/src/low-level/cimport.scm b/src/low-level/cimport.scm
index b0d71e7..023dc7a 100644
--- a/src/low-level/cimport.scm
+++ b/src/low-level/cimport.scm
@@ -20,15 +20,18 @@
   #:use-module (system foreign)
   #:export (aiImportFile
 	    aiTransformVecByMatrix4
-	    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))))
+	    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)