1 ;;; guile-assimp, foreign interface to libassimp
2 ;;; Copyright (C) 2014 by Javier Sancho Fernandez <jsf at jsancho dot org>
4 ;;; This program is free software: you can redistribute it and/or modify
5 ;;; it under the terms of the GNU General Public License as published by
6 ;;; the Free Software Foundation, either version 3 of the License, or
7 ;;; (at your option) any later version.
9 ;;; This program is distributed in the hope that it will be useful,
10 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
11 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 ;;; GNU General Public License for more details.
14 ;;; You should have received a copy of the GNU General Public License
15 ;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
18 (define-module (assimp low-level mesh)
19 #:use-module (assimp low-level)
20 #:use-module (assimp low-level types)
21 #:use-module (system foreign))
24 (define-struct-parser parse-aiFace
25 (mNumIndices unsigned-int)
31 (define-struct-parser parser-aiVertexWeight
32 (mVertexId unsigned-int)
35 (export parse-aiVertexWeight)
38 (define-struct-parser parse-aiBone
40 (mNumWeights unsigned-int)
42 (mOffsetMatrix aiMatrix4x4-type))
47 (define AI_MAX_NUMBER_OF_COLOR_SETS #x8)
48 (define AI_MAX_NUMBER_OF_TEXTURECOORDS #x8)
50 (define-struct-parser parse-aiMesh
51 (mPrimitiveTypes unsigned-int)
52 (mNumVertices unsigned-int)
53 (mNumFaces unsigned-int)
58 (mColors (make-list AI_MAX_NUMBER_OF_COLOR_SETS '*))
59 (mTextureCoords (make-list AI_MAX_NUMBER_OF_TEXTURECOORDS '*))
60 (mNumUVComponents (make-list AI_MAX_NUMBER_OF_TEXTURECOORDS unsigned-int))
62 (mNumBones unsigned-int)
64 (mMaterialIndex unsigned-int)
66 (mNumAnimMeshes unsigned-int)