From d866df206e703854cfa95e6aabe3ed5ed3bfbcaa Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Tue, 11 Jun 2019 02:21:46 -0400 Subject: Fixed Sundqvist v and vt parsing. --- src/Graphics/WaveFront/Parse/OBJ.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Graphics/WaveFront/Parse/OBJ.hs') diff --git a/src/Graphics/WaveFront/Parse/OBJ.hs b/src/Graphics/WaveFront/Parse/OBJ.hs index 37aa5a0..69cce47 100644 --- a/src/Graphics/WaveFront/Parse/OBJ.hs +++ b/src/Graphics/WaveFront/Parse/OBJ.hs @@ -139,12 +139,12 @@ normal = OBJNormal <$> point3D -- | Two coordinates, separated by whitespace texcoord :: (Fractional f) => Atto.Parser (OBJToken f Text i m) -texcoord = OBJTexCoord <$> point2D +texcoord = OBJTexCoord <$> pointTo3 1 0.0 -- | Three coordinates, separated by whitespace vertex :: (Fractional f) => Atto.Parser (OBJToken f s i m) -vertex = OBJVertex <$> point3D +vertex = OBJVertex <$> pointTo4 3 1.0 -- | Object names, separated by whitespace @@ -170,4 +170,4 @@ lib = LibMTL <$> (space *> name) -- | An MTL material name use :: Atto.Parser (OBJToken f Text i m) -use = UseMTL <$> (space *> name) \ No newline at end of file +use = UseMTL <$> (space *> name) -- cgit v1.2.3