src/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)