;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-(define-module (assimp assimp)
+(define-module (assimp)
#:use-module (assimp low-level)
#:use-module (assimp low-level cimport)
#:use-module (assimp low-level color)
#:use-module (assimp low-level material)
#:use-module (assimp low-level matrix)
#:use-module (assimp low-level mesh)
+ #:use-module (assimp low-level postprocess)
#:use-module (assimp low-level scene)
#:use-module (assimp low-level types)
#:use-module (assimp low-level vector)
- #:use-module (system foreign))
+ #:use-module (system foreign)
+ #:export (ai-import-file
+ ai-release-import
+ ai-attach-predefined-log-stream
+ ai-transform-vec-by-matrix4
+ ai-multiply-matrix3
+ ai-multiply-matrix4
+ ai-identity-matrix3
+ ai-identity-matrix4
+ ai-transpose-matrix3
+ ai-transpose-matrix4)
+ #:re-export (ai-material-key
+ ai-process-steps
+ ai-process-convert-to-left-handed
+ ai-process-preset-target-realtime-fast
+ ai-process-preset-target-realtime-quality
+ ai-process-preset-target-realtime-max-quality
+ ai-default-log-stream
+ (aiDetachAllLogStreams . ai-detach-all-log-streams)))
;;; Scenes
(name (sized-string (field 'mName)))
(primitive-types (field 'mPrimitiveTypes))
(vertices (wrap
- (array (field 'mNumVertices) (field 'mVertices) #:element-proc get-element-address)
+ (array (field 'mNumVertices) (field 'mVertices) #:element-size 12 #:element-proc get-element-address)
wrap-ai-vector3d))
(faces (wrap
(array (field 'mNumFaces) (field 'mFaces) #:element-size 8 #:element-proc get-element-address)
ai-material-num-allocated)
+(define-public (ai-get-material-color mat color-type)
+ (let ((pmat (unwrap-ai-material mat))
+ (pkey (string->pointer (car color-type)))
+ (type (cadr color-type))
+ (index (caddr color-type))
+ (pout (parse-aiColor4D (make-list 4 0) #:reverse #t)))
+ (let ((res (aiGetMaterialColor pmat pkey type index pout)))
+ (if (< res 0)
+ res
+ (wrap-ai-color4d pout)))))
+
+(define-public (ai-get-material-float-array mat color-type max)
+ (let ((pmat (unwrap-ai-material mat))
+ (pkey (string->pointer (car color-type)))
+ (type (cadr color-type))
+ (index (caddr color-type))
+ (pout (bytevector->pointer (list->f32vector (make-list max 0))))
+ (pmax (bytevector->pointer (list->u32vector (list max)))))
+ (let ((res (aiGetMaterialFloatArray pmat pkey type index pout pmax)))
+ (if (< res 0)
+ res
+ (f32vector->list (pointer->bytevector pout max 0 'f32))))))
+
+(define-public (ai-get-material-integer-array mat color-type max)
+ (let ((pmat (unwrap-ai-material mat))
+ (pkey (string->pointer (car color-type)))
+ (type (cadr color-type))
+ (index (caddr color-type))
+ (pout (bytevector->pointer (list->s32vector (make-list max 0))))
+ (pmax (bytevector->pointer (list->u32vector (list max)))))
+ (let ((res (aiGetMaterialIntegerArray pmat pkey type index pout pmax)))
+ (if (< res 0)
+ res
+ (s32vector->list (pointer->bytevector pout max 0 's32))))))
+
+
;;; Faces
(define-conversion-type parse-aiFace -> ai-face
;;; Functions
-(define-public (ai-import-file filename flags)
+(define (ai-import-file filename flags)
(wrap-ai-scene
(aiImportFile (string->pointer filename)
flags)))
-(define-public (ai-multiply-matrix4 m1 m2)
+(define (ai-release-import scene)
+ (aiReleaseImport (unwrap-ai-scene scene)))
+
+(define* (ai-attach-predefined-log-stream type #:optional file)
+ (aiAttachLogStream
+ (aiGetPredefinedLogStream
+ type
+ (if file
+ (string->pointer file)
+ %null-pointer))))
+
+(define (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 (ai-multiply-matrix3 m1 m2)
+ (let ((cm1 (parse-aiMatrix3x3 (map cdr (ai-matrix3x3-contents m1)) #:reverse #t))
+ (cm2 (parse-aiMatrix3x3 (map cdr (ai-matrix3x3-contents m2)) #:reverse #t)))
+ (aiMultiplyMatrix3 cm1 cm2)
+ (wrap-ai-matrix3x3 cm1)))
+
+(define (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)))
(aiMultiplyMatrix4 cm1 cm2)
(wrap-ai-matrix4x4 cm1)))
+
+(define (ai-identity-matrix3)
+ (let ((cmat (parse-aiMatrix3x3 (make-list 9 0) #:reverse #t)))
+ (aiIdentityMatrix3 cmat)
+ (wrap-ai-matrix3x3 cmat)))
+
+(define (ai-identity-matrix4)
+ (let ((cmat (parse-aiMatrix4x4 (make-list 16 0) #:reverse #t)))
+ (aiIdentityMatrix4 cmat)
+ (wrap-ai-matrix4x4 cmat)))
+
+(define (ai-transpose-matrix3 mat)
+ (let ((cmat (parse-aiMatrix3x3 (map cdr (ai-matrix3x3-contents mat)) #:reverse #t)))
+ (aiTransposeMatrix3 cmat)
+ (wrap-ai-matrix3x3 cmat)))
+
+(define (ai-transpose-matrix4 mat)
+ (let ((cmat (parse-aiMatrix4x4 (map cdr (ai-matrix4x4-contents mat)) #:reverse #t)))
+ (aiTransposeMatrix4 cmat)
+ (wrap-ai-matrix4x4 cmat)))