diff options
author | Matthias Schiffer <matthias@gamezock.de> | 2010-04-12 02:17:42 +0200 |
---|---|---|
committer | Matthias Schiffer <matthias@gamezock.de> | 2010-04-12 02:17:42 +0200 |
commit | 68d71025f47fd3d4d2c1e4d4dcda2180f2565ddd (patch) | |
tree | 87ccf62c566bc5a23561f4ee1d64638d148b3487 /src/Data/Obj3D.hs | |
parent | 67e1d2569baa712c40be26998dd3661ad8f3caa4 (diff) | |
download | obj-model-68d71025f47fd3d4d2c1e4d4dcda2180f2565ddd.tar obj-model-68d71025f47fd3d4d2c1e4d4dcda2180f2565ddd.zip |
Diffstat (limited to 'src/Data/Obj3D.hs')
-rw-r--r-- | src/Data/Obj3D.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/Data/Obj3D.hs b/src/Data/Obj3D.hs index c25deb8..4ef8151 100644 --- a/src/Data/Obj3D.hs +++ b/src/Data/Obj3D.hs @@ -1,9 +1,10 @@ -module Data.Obj3D ( processObj +module Data.Obj3D ( ObjModel(..) + , processObj , loadObj , loadObjFile , Vertex , VertexNormal - , TexCoords + , TexCoord , FaceVertex , Face , SourceName @@ -18,7 +19,7 @@ import Data.Obj3D.Parser data ObjModel = ObjModel { objVertices :: [Vertex] - , objTexCoords :: [TexCoords] + , objTexCoords :: [TexCoord] , objNormals :: [VertexNormal] , objFaces :: [[Face]] } deriving Show @@ -36,7 +37,7 @@ processObj objlines = ObjModel vertex _ = Nothing texcoords = catMaybes $ map texcoord objlines - texcoord (TexCoordsLine v) = Just v + texcoord (TexCoordLine v) = Just v texcoord _ = Nothing |