#: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)