   } deriving (Show)
 
 data Animation = Animation {
-    mName'Animation           :: String
-  , mDuration'Animation       :: Double
-  , mTicksPerSecond'Animation :: Double
-  , mChannels'Animation       :: [NodeAnim]
-  , mMeshChannels'Animation   :: [MeshAnim]
+    animationMName           :: String
+  , mDuration       :: Double
+  , mTicksPerSecond :: Double
+  , mChannels       :: [NodeAnim]
+  , mMeshChannels   :: [MeshAnim]
   } deriving (Show)
 {#pointer *aiAnimation as AnimationPtr -> Animation#}
 

{#pointer *aiString as StringPtr -> AiString#}

data Matrix3x3 = Matrix3x3 {
  matrix'Matrix3x3 :: Vector (Vector Float)
  } deriving (Show)
{#pointer *aiMatrix3x3 as Matrix3x3Ptr -> Matrix3x3#}

data Matrix4x4 = Matrix4x4 {
  matrix'Matrix4x4 :: Vector (Vector Float)
  } deriving (Show)
{#pointer *aiMatrix4x4 as Matrix4x4Ptr -> Matrix4x4#}


{#pointer *aiMaterialProperty as MaterialPropertyPtr -> MaterialProperty#}

data Material = Material {
    mProperties :: [MaterialProperty]
  } deriving (Show)
{#pointer *aiMaterial as MaterialPtr -> Material#}

