Sources Reorganization

[guile-assimp.git] / assimp / low-level / mesh.scm

diff --git a/assimp/low-level/mesh.scm b/assimp/low-level/mesh.scm
deleted file mode 100644 (file)
index 50d0bb8..0000000
--- a/assimp/low-level/mesh.scm
+++ /dev/null
@@ -1,69 +0,0 @@
-;;; guile-assimp, foreign interface to libassimp
-;;; Copyright (C) 2014 by Javier Sancho Fernandez <jsf at jsancho dot org>
-;;;
-;;; This program is free software: you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation, either version 3 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-
-(define-module (assimp low-level mesh)
-  #:use-module (assimp low-level)
-  #:use-module (assimp low-level types)
-  #:use-module (system foreign))
-
-
-(define-struct-parser parse-aiFace
-  (mNumIndices unsigned-int)
-  (mIndices '*))
-
-(export parse-aiFace)
-
-
-(define-struct-parser parser-aiVertexWeight
-  (mVertexId unsigned-int)
-  (mWeight float))
-
-(export parse-aiVertexWeight)
-
-
-(define-struct-parser parse-aiBone
-  (mName aiString-type)
-  (mNumWeights unsigned-int)
-  (mWeights '*)
-  (mOffsetMatrix aiMatrix4x4-type))
-
-(export parse-aiBone)
-
-
-(define AI_MAX_NUMBER_OF_COLOR_SETS #x8)
-(define AI_MAX_NUMBER_OF_TEXTURECOORDS #x8)
-
-(define-struct-parser parse-aiMesh
-  (mPrimitiveTypes unsigned-int)
-  (mNumVertices unsigned-int)
-  (mNumFaces unsigned-int)
-  (mVertices '*)
-  (mNormals '*)
-  (mTangents '*)
-  (mBitangents '*)
-  (mColors (make-list AI_MAX_NUMBER_OF_COLOR_SETS '*))
-  (mTextureCoords (make-list AI_MAX_NUMBER_OF_TEXTURECOORDS '*))
-  (mNumUVComponents (make-list AI_MAX_NUMBER_OF_TEXTURECOORDS unsigned-int))
-  (mFaces '*)
-  (mNumBones unsigned-int)
-  (mBones '*)
-  (mMaterialIndex unsigned-int)
-  (mName aiString-type)
-  (mNumAnimMeshes unsigned-int)
-  (mAnimMeshes '*))
-
-(export parse-aiMesh)