]> git.jsancho.org Git - guile-assimp.git/blob - src/assimp/low-level/mesh.scm
Sources Reorganization
[guile-assimp.git] / src / assimp / low-level / mesh.scm
1 ;;; guile-assimp, foreign interface to libassimp
2 ;;; Copyright (C) 2014 by Javier Sancho Fernandez <jsf at jsancho dot org>
3 ;;;
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.
8 ;;;
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.
13 ;;;
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/>.
16
17
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))
22
23
24 (define-struct-parser parse-aiFace
25   (mNumIndices unsigned-int)
26   (mIndices '*))
27
28 (export parse-aiFace)
29
30
31 (define-struct-parser parser-aiVertexWeight
32   (mVertexId unsigned-int)
33   (mWeight float))
34
35 (export parse-aiVertexWeight)
36
37
38 (define-struct-parser parse-aiBone
39   (mName aiString-type)
40   (mNumWeights unsigned-int)
41   (mWeights '*)
42   (mOffsetMatrix aiMatrix4x4-type))
43
44 (export parse-aiBone)
45
46
47 (define AI_MAX_NUMBER_OF_COLOR_SETS #x8)
48 (define AI_MAX_NUMBER_OF_TEXTURECOORDS #x8)
49
50 (define-struct-parser parse-aiMesh
51   (mPrimitiveTypes unsigned-int)
52   (mNumVertices unsigned-int)
53   (mNumFaces unsigned-int)
54   (mVertices '*)
55   (mNormals '*)
56   (mTangents '*)
57   (mBitangents '*)
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))
61   (mFaces '*)
62   (mNumBones unsigned-int)
63   (mBones '*)
64   (mMaterialIndex unsigned-int)
65   (mName aiString-type)
66   (mNumAnimMeshes unsigned-int)
67   (mAnimMeshes '*))
68
69 (export parse-aiMesh)